Error 3077 with ComboBox

[Manuel]

I have a combo box which looks up records in a table by user name, and
returns the data to the form. There is one user whose last name has an
apostrophe in it (i.e. O'Healy), and whenever I select this name from the
combo box I receive the following error:

Run-time '3077'

Syntax error (missing operator) in expression.

I'm almost certain that this error occurs because of the apostrophe in the
name (I don't receive an error when selecting other individuals from the
combo box), but I'm not sure how to resolve this issue.

Any suggestions would be appreciated.

Thanks,
Manuel

 

[RoyVidar]

I have a combo box which looks up records in a table by user name,
and returns the data to the form. There is one user whose last name
has an apostrophe in it (i.e. O'Healy), and whenever I select this
name from the combo box I receive the following error:

Run-time '3077'

Syntax error (missing operator) in expression.

I'm almost certain that this error occurs because of the apostrophe
in the name (I don't receive an error when selecting other
individuals from the combo box), but I'm not sure how to resolve
this issue.

Any suggestions would be appreciated.

Thanks,
Manuel

It's usually easier to assist when one also has some code to play with,
knowing which line it bombs on etc...

When passing the criterion to the .findfirst, try either

....myfield = """ & me!cboMyCombo.Value & """"

or

....myfield = '" & replace(me!cboMyCombo.Value, "'", "''") & "'"

using your own field/control names. If it doesn't help, please post
your code.

 

[Manuel]

Sorry about that... here's the code... the combo wizard wrote the code...

Private Sub EmployeeNameLookUp_AfterUpdate()

' Find the record that matches the control.
Dim rs As Object

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

End Sub

The code bombs out on the line that starts with:

rs.FindFirst "[Employee Name]

 

[RoyVidar]

Sorry about that... here's the code... the combo wizard wrote the
code...

Private Sub EmployeeNameLookUp_AfterUpdate()

' Find the record that matches the control.
Dim rs As Object

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

End Sub

The code bombs out on the line that starts with:

rs.FindFirst "[Employee Name]

I'm afraid that if my previous suggestion didn't work, I'm not sure
what
to do - but from what you pasted, it doesn't seem you tried.

Could you please try one (or both) of my previous suggestions, then
report back if it/they don't work?

 

[Manuel]

Your 1st suggestion worked! Thanks a bunch!
Manuel

Sorry about that... here's the code... the combo wizard wrote the
code...

Private Sub EmployeeNameLookUp_AfterUpdate()

' Find the record that matches the control.
Dim rs As Object

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

End Sub

The code bombs out on the line that starts with:

rs.FindFirst "[Employee Name]

I'm afraid that if my previous suggestion didn't work, I'm not sure
what
to do - but from what you pasted, it doesn't seem you tried.

Could you please try one (or both) of my previous suggestions, then
report back if it/they don't work?