I'm a little late to the game but thought I'd throw this out there anyway.
Have you considered .FindFirst rather than a filter?
Code:
Private Sub btnSearchCatNumber_Click()
Dim rs As DAO.Recordset
Dim strCatNumber As String
Set rs = Me.RecordsetClone
strCatNumber = InputBox("Enter Catalog Number", "Catalog Number", TitleNumber)
With rs
.FindFirst "TitleNumber = """ & strCatNumber & """"
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Title Number Not Found"
End If
End With
End Sub
If this helped, please click the star * at the bottom left and add to my reputation- Thanks