1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
Private Sub btSearch_Click()
Dim strRowSource As String
Dim strWhere As String
If Me.Check1.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*ABTHERA*' "
If Me.Check2.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*ABTHERA ADVANCE*' "
If Me.Check3.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*AWD*' "
If Me.Check4.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*CELLUTOME*' "
If Me.Check5.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*FISTULA*' "
If Me.Check6.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*PREVENA*' "
If Me.Check7.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*PREVENA SELECT*' "
If Me.Check8.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*SNAP*' "
If Me.Check9.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*VAC*' "
If Me.Check10.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*VERAFLO*' "
If Me.Check11.Value Then strWhere = strWhere & IIf(strWhere = "", "", "OR ") & "[Products] LIKE '*VERAFLO CLEANSE CHOISE*' "
If (Me.Check1.Value = False And Me.Check2.Value = False And Me.Check3.Value = False And Me.Check4.Value = False And Me.Check5.Value = False And Me.Check6.Value = False And Me.Check7.Value = False And Me.Check8.Value = False And Me.Check9.Value = False And Me.Check10.Value = False And Me.Check11.Value = False) Then
Reponse = MsgBox("Please select at least one product to search ", vbOKOnly, "Select product")
If Reponse = vbOK Then
strRowSource = "SELECT [ID],[LName],[FName],[Surgical_Specialty],[Function],[Country],[Products]" & _
"FROM Contacts " & _
"ORDER BY [LName]"
Me.Liste1.RowSource = strRowSource
End If
Else
strRowSource = "SELECT [ID],[LName],[FName],[Surgical_Specialty],[Function],[Country],[Products] " & _
"FROM Contacts " & _
IIf(strWhere = "", "", " WHERE " & strWhere) & ";"
Me.Liste1.RowSource = strRowSource
Me.Liste1.RowSource = Me.Liste1.RowSource
End If
End Sub |
Partager