I want to search multiple fields of a subform from an unbound textbox on the main form, but it doesn't seem to be filtering anything. No error messages come up either. My code is:
Private Sub btnSearch2_Click()
Dim strfilter As String
If Me.GlobalSearch.Value <> "" ThenMe.FilterOn = False
Me.GlobalSearch.SetFocus
Else strfilter = "(HarvestId LIKE '*" & Me.GlobalSearch.Value & "*' OR "strfilter = strfilter & "AssignedTo LIKE '*" & Me.GlobalSearch.Value & "*' OR "strfilter = strfilter & "HarvestStatus LIKE '*" & Me.GlobalSearch.Value & "*')"
End If
If strfilter <> "" Then Me.Filter = strfilter Me.FilterOn = True
Else Me.FilterOn = False
End If
End Sub
Where GlobalSearch is the search textbox and HarvestId, AssignedTo and HarvestStatus the fields I want to search on in the subform. Why isn't the code working? Thanks Mari
Private Sub btnSearch2_Click()
Dim strfilter As String
If Me.GlobalSearch.Value <> "" ThenMe.FilterOn = False
Me.GlobalSearch.SetFocus
Else strfilter = "(HarvestId LIKE '*" & Me.GlobalSearch.Value & "*' OR "strfilter = strfilter & "AssignedTo LIKE '*" & Me.GlobalSearch.Value & "*' OR "strfilter = strfilter & "HarvestStatus LIKE '*" & Me.GlobalSearch.Value & "*')"
End If
If strfilter <> "" Then Me.Filter = strfilter Me.FilterOn = True
Else Me.FilterOn = False
End If
End Sub
Where GlobalSearch is the search textbox and HarvestId, AssignedTo and HarvestStatus the fields I want to search on in the subform. Why isn't the code working? Thanks Mari