I have these 3 combo boxes filtering results into a subform.
It would be nice if I could use more than one at the same time to further filter down the results.
Code:
Private Sub Combo5_AfterUpdate()
If Len(Nz(Combo5, "")) > 0 Then
FindRFQsubform.Form.Filter = "[RFQ Title] = '" & Combo5 & "'"
FindRFQsubform.Form.FilterOn = True
Else
FindRFQsubform.Form.Filter = ""
FindRFQsubform.Form.FilterOn = False
End If
End Sub
Private Sub Combo7_AfterUpdate()
If Len(Nz(Combo7, "")) > 0 Then
FindRFQsubform.Form.Filter = "[Supplier Name] = '" & Combo7 & "'"
FindRFQsubform.Form.FilterOn = True
Else
FindRFQsubform.Form.Filter = ""
FindRFQsubform.Form.FilterOn = False
End If
End Sub
Private Sub Combo9_AfterUpdate()
If Len(Nz(Combo9, "")) > 0 Then
FindRFQsubform.Form.Filter = "[Requestor] = '" & Combo9 & "'"
FindRFQsubform.Form.FilterOn = True
Else
FindRFQsubform.Form.Filter = ""
FindRFQsubform.Form.FilterOn = False
End If
End Sub
It would be nice if I could use more than one at the same time to further filter down the results.
