try
Code:
Private Sub cmdSearch_Click()
If nz(cboSearchField,"")="" Then
MsgBox "You must select a field to search."
ElseIf nz(txtSearchString,"") = "" Then
MsgBox "You must enter a search string."
Else
'Generate search criteria
GCriteria = cboSearchField.Value & " LIKE '*" & txtSearchString & "*'"
if dcount("*","tblMember",GCriteria)=0 then
msgbox "No records match the search criteria"
else
'Filter Members based on search criteria
Form_frmMember.RecordSource = "select * from tblMember where " & GCriteria
Form_frmMember.Caption = "Members (" & cboSearchField & " contains '*" & txtSearchString & "*')"
'Close frmSearch
DoCmd.Close acForm, "frmSearch"
MsgBox "Results have been filtered."
End if
End If
End Sub