I hope someone can help.

I have a combobox on a form searching for a last name in an underlying table. Initially I would get an error if anyones name had ' in it. From the access forum I was given a funtion to resolve this problem. I no longer get error reports, but it will now not find anyone with ' just gives some random name it finds.

I would appreciate any help.

Stephen




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

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Last Name] = '" & filterStr(Me![Combo332]) & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Function filterStr(ByVal str As String) As String
    Dim i As Integer
    Dim temp_str As String

    temp_str = ""
    For i = 1 To Len(str)
        If Mid(str, i, 1) = "'" Then
            temp_str = temp_str & "''"
        Else
            temp_str = temp_str & Mid(str,

i, 1)
        End If
    Next
    filterStr = temp_str
End Function

Stephen, simply replace single quotes ', with doubles "", keeping the doubles you already had.
Original; rs.FindFirst "[Last Name] = '" & filterStr(Me![Combo332]) & "'"
To This; rs.FindFirst "[Last Name] = """ & filterStr(Me![Combo332]) & """"
Always do this for string searches, if you anticipate there may be apostrophe's in the string, or even quotes.
The filterStr function's an "interesting" idea, but not necessary.
Double quotes, wherever you normally would put single, while keeping the obligatory doubles.
Hope this helps, good luck!

Hi DBoulos,

Thanks for the tip, tried it and I like it!

Thanks again,
Stephen

Your welcome, glad to help!