Search function on listbox.

[Onlylonely]

Hi,

Am having issue on search function on the listbox.
Anyone can advise?

Private Sub txtfind_Change()

        
        Dim strSource As String
        strSource = "SELECT FirstName" & _
         "FROM Guests " & _
         "Where FirstName Like '*" & Me.txtfind.Text & "*' "
         
        Me.List0.RowSource = strSource


End Sub

 

[isladogs]

Private Sub txtfind_Change()
        
        Dim strSource As String
     [B][/B]   strSource = "SELECT FirstName[COLOR="red"] "[/COLOR] & _
         "FROM Guests " & _
         "Where FirstName Like[COLOR="red"] "[/COLOR]*" & Me.txtfind.Text & "*[COLOR="Red"]"[/COLOR];"
         
        Me.List0.RowSource = strSource

End Sub

Single quotes should be double
Missing space after FirstName - ALWAYS enter space BEFORE or AFTER each line continuation - I prefer at start of line but it doesn't matter which - be consistent so you can spot errors

P.S. Thanks to your user name I've now got the old Roy Orbison song on my brain

 

[Onlylonely]

Private Sub txtfind_Change()
        
        Dim strSource As String
     [B][/B]   strSource = "SELECT FirstName[COLOR="red"] "[/COLOR] & _
         "FROM Guests " & _
         "Where FirstName Like[COLOR="red"] "[/COLOR]*" & Me.txtfind.Text & "*[COLOR="Red"]"[/COLOR];"
         
        Me.List0.RowSource = strSource

End Sub

Single quotes should be double
Missing space after FirstName - ALWAYS enter space BEFORE or AFTER each line continuation - I prefer at start of line but it doesn't matter which - be consistent so you can spot errors

P.S. Thanks to your user name I've now got the old Roy Orbison song on my brain

Not sure why still not able to use the find function.
May need your help to download the attachment and take a look on it.

 

[isladogs]

Post deleted - my error

 

[arnelgp]

mr.ridder the op already has a working code.

 

[isladogs]

arnel
You posted just after my previous comment - glad its solved