Combo Box Error 1

[istone]

Hi,
I created a combo box to filter client name. The combo box is working fine except on this case:
when I filter one of these name:
David's Financial or Rao's Specialty
I get this error:

Private Sub Combo170_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

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

I believe the error comes up because the names have an Apostrophe (').

Anyone have any idea
Thank you in advance

 

[jebry]

Hi!

You can use the following:

Const DblQuote = """"
rs.FindFirst "[Client Name] = " & DblQuote & Me![Combo170] & DblQuote

hth


Jeff Bridgham
Purdue University
Graduate School
Data Analyst

 

[pbail1]

Replace the single quotes with double so line reads:

rs.FindFirst "[Client Name] = "" & Me![Combo170] & """

 

[PHV]

A safer way:

rs.FindFirst "[Client Name] = '" & Replace(Me![Combo170], "'", "''") & "'"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886