data affecting vb syntax

[chamo]

This code works just perfect if I use something else than Lion's Club for the search, or something else without an apostrophe. I get the error Runtime error '3077'; Syntax error (mission operator) in expression. How can I do that whatever text I'm looking for doesnt affect the syntaxis. Thanks

Dim db As Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("agency", dbOpenDynaset)

xagency = Me.agency.Text
rst.FindFirst "[agency] =' "Lion's Club" ' "
If rst.NoMatch And xagency <> "" Then
MsgBox "No Records Matching " & InputText, vbOKOnly, "No Matching"
xno = 1
Else
xno = 0
End If

 

[ZmrAbdulla]

Try changing apostrophe from the word. It is the culprit. There was some work around.
Yeah it is here
thread705-860086
Regards

Zameer Abdulla
JVBP MDS
_{Jack of Visual Basic Programming, Master in Dining & Sleeping}
Visit Me

 

[PHV]

Personally I use this technique (works for DAO and ADO):
rst.FindFirst "[agency]=' & Replace(strSearch, [tt]"'", "''"[/tt]) & "'"


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244