G
Gus Chuch
I’m using this code to find a record and it works OK if the record has no
single quote mark like Tiny’s bar or Mark’s place. If any record has the
quote mark I get a run time error 3077
Syntax error missing operator in expression.
Is their a way to fix this or do I have to change all my records?
Private Sub Combo5_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Name] = '" & Me![Combo5] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
single quote mark like Tiny’s bar or Mark’s place. If any record has the
quote mark I get a run time error 3077
Syntax error missing operator in expression.
Is their a way to fix this or do I have to change all my records?
Private Sub Combo5_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Name] = '" & Me![Combo5] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub