Apostrophe problem in filter.

[sdawson]

I’m using a combo box to select real names and using the following event to filter
Private Sub Combo45_Click()
Me.Filter = "[CustomerName] = '" & [Combo45] & "'"
Me.FilterOn = True
Me.GHSpickups.SetFocus
End Sub

Simply stuff so far.

The problem is a real name such as O’Reilly gives a problem because of the apostrophe.
Any way round this would be welcome.

 

[Guus2005]

Seen this before:
Use double double quotes:

Me.Filter = "[CustomerName] = """ & [Combo45] & """"

 

[sdawson]

Thanks Guss2005.
Works a treat.