Multiple filters

diasflac

Registered User.
Local time
Today, 17:03
Joined
May 13, 2013
Messages
45
I have these 3 combo boxes filtering results into a subform.

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.:confused:
 

Users who are viewing this thread

Back
Top Bottom