This is the coding for a name search that filters the details.
It works well but while John Smith is fine John O'Smith is a problem.
Is there another way

Private Sub CboSearch_AfterUpdate()
Dim strFilter As String

'decide what values are in the filter boxes
If Me.CboSearch <> "" Then
'if first filter not blank, filter by Name
strFilter = Me.CboSearch
DoCmd.ApplyFilter , "Name = '" & strFilter & "'"
Else
'if both filters blank, don't turn on filter
Me.FilterOn = False
End If
Me.Refresh
Me.btnApply.SetFocus
End Sub

"Duncan" <duncanjx (AT) optusnet (DOT) com.au> wrote

Try:

DoCmd.ApplyFilter , "Name = " & Chr(34) & strFilter & Chr(34)

Or you could double-up the single quote:

strFilter = Replace(strFilter, "'", "''")