Search Button with Text Box won't work

[lisanoe]

Hello,

I have a form that I need to search on last name to find the person I need edit. THe code I am using brings back the 3077 error code for missing syntax. Please review and let me know what is wrong with the code. Would also like to add a button to add new data, I know I can do that at the bottom but I still would like a button.

Private Sub Search_Click()
     Dim bkmk As Variant
     Dim strField As String    Me.RecordsetClone.MoveFirst
    Me.RecordsetClone.FindFirst "LAST NAME Like" _
    & Chr(34) & Me.SearchText & "*" & Chr(34)
     
     If Me.RecordsetClone.NoMatch Then
         MsgBox "No Match"
     Else
         bkmk = Me.RecordsetClone.Bookmark
         Me.Recordset.Bookmark = bkmk
     End If
End Sub

[ranman256]

just use a filter

Private Sub Search_Click()
   me.filter = "[lastName] like '*" & txtSearch & "*'"
   me.filterOn = true
end sub

[Micron]

Filter is a good suggestion, but just so you learn from your experience, I think it's the way you wrote the criteria expression that is the problem.
Your code likely results in a string that looks like
Last NameLike"textvaluehere*" (no spaces at all)
instead of
Last Name Like "textvaluehere*"
When possible, I also prefer the nested single quotes like ranman256 used over the character codes you used.

[June7]

Advise no spaces or special characters/punctuation (underscore is exception) in naming convention. Space in field name may also be causing an issue. If used enclose in [] as shown by ranman.

[Micron]

Am I getting too old for this? How did I miss that? [ ]