Help Needed
I am using the following code to accomdate apostrophes in my combo box
Private Sub Combo8_Dirty(Cancel As Integer)
Dim srchreplace As String
Dim gfindstring As String
If (InStr(Combo8, "'")) Then
gfindstring = srchreplace(Combo8)
Else
gfindstring = Combo8
End If
End Sub
but when a person's name appears in the combo box with an apostrophes I am getting the following error message
Error no 3077 Description Syntax error (Missing operator)in expression

Brendan Bartley

__________________
Brendan Bartley

Hiya Brendan!

What is the combo box for? What's in the after update code? The problem is that if you're selecting a record for a form based on the combobox, the code that is automatically generated, won't work if the field has apostrophes.

Send me the code and I'll show you how to fix it.

Kevin

dartcoach

the code is as follows
Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[OFFICE] = '" & Me![Combo8] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Thanks
Brendan


Brendan Bartley

Brendan,

Try this:

rs.FindFirst "[OFFICE] = " & """" & Me![Combo8] & """"

Kevin

dartcoach

Thanks Kevin working well so far

Brendan Bartley

Glad to help Brendan.
Let me know if you need anything else.

Kevin

dartcoach