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.

 

[neileg]

You won't have this problem if you use a stored query to base your form on and use Combo45 as a criterion in the query. Then you don't need the filter in the form.

 

[RuralGuy]

Another options is to use double quotes to delimit rather than single quotes:
Me.Filter = "[CustomerName] = """ & [Combo45] & """"
or
Me.Filter = "[CustomerName] = " & Chr(34) & [Combo45] & Chr(34)

 

[sdawson]

Thanks chaps.
The double quotion marks did it for me.

What's puttering RuralGuy?

 

[RuralGuy]

http://dictionary.reference.com/browse/puttering

 

[sdawson]

Oh, I do that too with great flair.
Cheers.