Private Sub cmdSearch_Click()
Dim LSQL As String
Dim LSearchString As String
If Len(txtSearchString) = 0 Or IsNull(txtSearchString) = True Then
MsgBox "You must enter a search string."
Else
LSearchString = txtSearchString
'Filter results based on search string
LSQL = "select * from MCS_All_Services_v8"
LSQL = LSQL & " where Country LIKE '*" & LSearchString & "*'"
Form_MCS_All_Services_v8_subform.RecordSource = LSQL
lblTitle.Caption = "Customer Details: Filtered by '" & LSearchString & "'"
'Clear search string
txtSearchString = ""
MsgBox "Results have been filtered. All Company Names containing " & LSearchString & "."
End If
it kept mention that is Identifier Under Cursor Not Recognized? on the line "FORM_MCS_All_Services_v8_subform. RecordSource....
ideas people?
Dim LSQL As String
Dim LSearchString As String
If Len(txtSearchString) = 0 Or IsNull(txtSearchString) = True Then
MsgBox "You must enter a search string."
Else
LSearchString = txtSearchString
'Filter results based on search string
LSQL = "select * from MCS_All_Services_v8"
LSQL = LSQL & " where Country LIKE '*" & LSearchString & "*'"
Form_MCS_All_Services_v8_subform.RecordSource = LSQL
lblTitle.Caption = "Customer Details: Filtered by '" & LSearchString & "'"
'Clear search string
txtSearchString = ""
MsgBox "Results have been filtered. All Company Names containing " & LSearchString & "."
End If
it kept mention that is Identifier Under Cursor Not Recognized? on the line "FORM_MCS_All_Services_v8_subform. RecordSource....
ideas people?