Subforms based on selections on comboboxes

[pillaisg]

This line was added for having a blank selection in the combo box
cmb_PID_Inst_Type= " " (highlighted in Red)
But the sub form is not getting populated with the relevant data. (Subform query snap attached)
The requirement is based on selection in Ref_Type all records matching the criteria shall be appearing on the subform and further upon selection of PID_Inst_Type only records matching with Ref_Type and PID_Inst_Type shall be displayed .. like wise Installation_Type shall show all records in Subform based on selection on Ref_Type, PID_Inst_Type and Installation_Type.

The following is the code I had used. Any suggestion or observations on the below is appreciated.

Private Sub Form_Load()
Cmb_Enquiry_No.RowSourceType = "Table/Query"
Cmb_Enquiry_No.RowSource = "Select Distinct Enquiry_No from T_master_pid"
Cmb_Ref_No.RowSourceType = "Table/Query"
Cmb_Ref_No.RowSource = "Select Distinct Ref_No from T_master_pid"
Cmb_Ref_Type.RowSourceType = "Table/Query"
Cmb_Ref_Type.RowSource = "Select Distinct Ref_Type from T_master_pid"
Cmb_PID_Inst_Type.RowSourceType = "Table/Query"
Cmb_PID_Inst_Type = " "
Cmb_PID_Inst_Type.RowSource = "Select Distinct PID_Inst_Type from T_master_pid"
Cmb_Installation_Type.RowSourceType = "Table/Query"


Cmb_Installation_Type.RowSource = "Select Distinct Installation_Type from T_master_pid"

End Sub

[davegri]

You want cascading combo boxes. See
Ultimate Dynamic Multiple Cascading Comboboxes, synchronized in any order (accessforums.net)

The example if for a main form but code logic is easily adapted for a subform.
The last line in procedure ProcessAllCombos should be changed to:


Me.ControlnameHoldingSubform.Form.Recordsource = "Select * From YourTable " & strRSWhere


Change ControlnameHoldingSubform and YourTable to names appropriate for your DB.