Dim rs As Object runtime error 3077

[bfamo]

Hey you guys. Have a look at this.

I've set up a seach function in my DB. The search field in FrmSearchCustomer filters out my customers like this:

Private Sub CtrlSearch_AfterUpdate()
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Name] = '" & Me![CtrlSearch] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

The following passes CustomerID on to FrmCustomer:

Private Sub BtnOpenFrm_Click()

DoCmd.OpenForm "FrmCustomer", acNormal, , "[CustomerID]=Forms!FrmCusteomerSearch!CustomerID"

End Sub

Whenever a Customers name contains the character [red]'[/red], I get syntax error 3077: missing operator.

Is there any way to go around this?

thanks!

 

[Remou]

How about:

[tt]rs.FindFirst "[Name] = '" & Replace(Me![CtrlSearch],"'","''") & "'"[/tt]


It is best not to call fields Name, it is a reserved word.