I seem to have got my quote marks into a muddle.
I am trying to use a text box to filter the records in a field "EntryDetail". THe vba code I am using is:
RequeryForm

Private Sub RequeryForm()

Dim W As String
Dim R As String
Dim S As String

W = ""
S = " * "

If Not IsNull(DetailFilter) Then
W = "[EntryDetail] Like " & S & DetailFilter & S

End If

If Not IsNull(CatFilter) Then
If W <> "" Then W = W & " AND "
W = W & " CatID =" & CatFilter
End If

If Not IsNull(BankFilter) Then
If W <> "" Then W = W & " AND "
W = W & " AccID=" & BankFilter
End If


R = "SELECT * FROM AllAccsQ "

If W <> "" Then R = R & " WHERE " & W


Me.RecordSource = R

End Sub

The CatFilter and BankFilter code works perfectly, but I am using a combo box not a text box, It is the DetailFilter that does not work.

I get the message: Run-time error '3075'
Syntax error (missing operator) in query expression '[EntryDetail] Like * co-op *'

"co-op" is the text entered on which I wish to filter the records.

It appears that somewhere my quotes have got out of sync, because when I look at the SQL statement in the query it is: ... WHERE (((AllAccountsT.EntryDetail) Like "*" & [Enter Search String] & "*"))

Any suggestions?