Combo Box error

[Jyoti]

I have a combo box on the form which lists values from a
Table. When I select a data from the list, it displays the
record details based on a combo box selection. However if
there is data in the list with a 'Apostrophe'(Ex: Sam's)
I get an error.

Here is the code.

Dim Rs As Object
Set Rs = Me.Recordset.Clone
Rs.FindFirst "[CUSTOMER] = '" & Me![Combo1] & "'"
Me.Bookmark = Rs.Bookmark

Thanks in advance.

Jyoti

 

[MacDermott]

Try using this:

Rs.FindFirst "[CUSTOMER] = '" & Replace(Me![Combo1],"'","''") & "'"

HTH

 

[Guest]

Thanks.

-----Original Message-----
Try using this:

Rs.FindFirst "[CUSTOMER] = '" & Replace(Me! [Combo1],"'","''") & "'"

HTH

I have a combo box on the form which lists values from a
Table. When I select a data from the list, it displays the
record details based on a combo box selection. However if
there is data in the list with a 'Apostrophe'(Ex: Sam's)
I get an error.

Here is the code.

Dim Rs As Object
Set Rs = Me.Recordset.Clone
Rs.FindFirst "[CUSTOMER] = '" & Me![Combo1] & "'"
Me.Bookmark = Rs.Bookmark

Thanks in advance.

Jyoti

.