Allen Browne Client Search Multiple Like Statements

[Guest]

Hi all,
I need to have this code search multiple fields, but I keep getting
"Expected end of statement" on the Me in the second to last line:

If Not IsNull(Me.txtFilterMainName) Then
'strWhere = strWhere & "([MainName] Like ""*" & Me.txtFilterMainName
& "*"") AND "
strWhere = strWhere & "([Address1] Like ""*" & Me.txtFilterMainName
& "*"") OR " & _
strWhere = strWhere & " ([StreetName] Like "" * " &
Me.txtFilterMainName & " * "") Or "
strWhere = strWhere & "([From] Like "" * " Me.txtFilterMainName
& " * "") Or "
strWhere = strWhere & "([To] Like "" * " & Me.txtFilterMainName
& " * "") And "
End If

Thanks,
NickX

 

[Douglas J. Steele]

You're missing an ampersand between "" * " and Me.txtFilterMainName

BTW, are those spaces actually in your code? If so, you won't find anything
unless the value in the From field starts and ends with a space.

 

[Guest]

It is usually the obvious ones that give you the isn't it?!?
Thank you very much, Douglas, I would have stared at that for hours and
still probably not seen it.
Agian, Thanks;
NickX

You're missing an ampersand between "" * " and Me.txtFilterMainName

BTW, are those spaces actually in your code? If so, you won't find anything
unless the value in the From field starts and ends with a space.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Hi all,
I need to have this code search multiple fields, but I keep getting
"Expected end of statement" on the Me in the second to last line:

If Not IsNull(Me.txtFilterMainName) Then
'strWhere = strWhere & "([MainName] Like ""*" &
Me.txtFilterMainName
& "*"") AND "
strWhere = strWhere & "([Address1] Like ""*" &
Me.txtFilterMainName
& "*"") OR " & _
strWhere = strWhere & " ([StreetName] Like "" * " &
Me.txtFilterMainName & " * "") Or "
strWhere = strWhere & "([From] Like "" * " Me.txtFilterMainName
& " * "") Or "
strWhere = strWhere & "([To] Like "" * " & Me.txtFilterMainName
& " * "") And "
End If

Thanks,
NickX

 

[Guest]

....that give you (the most trouble)...

You're missing an ampersand between "" * " and Me.txtFilterMainName

BTW, are those spaces actually in your code? If so, you won't find anything
unless the value in the From field starts and ends with a space.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Hi all,
I need to have this code search multiple fields, but I keep getting
"Expected end of statement" on the Me in the second to last line:

If Not IsNull(Me.txtFilterMainName) Then
'strWhere = strWhere & "([MainName] Like ""*" &
Me.txtFilterMainName
& "*"") AND "
strWhere = strWhere & "([Address1] Like ""*" &
Me.txtFilterMainName
& "*"") OR " & _
strWhere = strWhere & " ([StreetName] Like "" * " &
Me.txtFilterMainName & " * "") Or "
strWhere = strWhere & "([From] Like "" * " Me.txtFilterMainName
& " * "") Or "
strWhere = strWhere & "([To] Like "" * " & Me.txtFilterMainName
& " * "") And "
End If

Thanks,
NickX