Help find error in code - search a listbox

[behedwin]

Hey

I need some help to search for errors in this code

I have used this code before to search a listbox.
But suddenly i dont get this one to work... it must be some silly error in the code, but i cant see it.
Anyone able to help me?

Private Sub txtSearch_Change()
Application.Echo False

  Dim strSource As String

  strSource = "SELECT BussElev_Table.BussElev_ID, BussElev_Table.[Elev Förnamn], BussElev_Table.[Elev Efternamn], BussElev_Table.[Elev Personnummer], Max(BussA_Table.Ansökningsdatum) AS MaxförAnsökningsdatum " & _
    "FROM BussElev_Table LEFT JOIN BussA_Table ON BussElev_Table.BussElev_ID = BussA_Table.BussElev_ID_SK " & _
    "GROUP BY BussElev_Table.BussElev_ID, BussElev_Table.[Elev Förnamn], BussElev_Table.[Elev Efternamn], BussElev_Table.[Elev Personnummer] " & _
    "Where (BussElev_Table.BussElev_ID Like '*" & Me.txtSearch.Text & "*' " _
    & "Or BussElev_Table.[Elev Förnamn] Like '*" & Me.txtSearch.Text & "*' " _
    & "Or BussElev_Table.[Elev Efternamn] Like '*" & Me.txtSearch.Text & "*' " _
    & "Or BussElev_Table.[Elev Personnummer] Like '*" & Me.txtSearch.Text & "*' " _
    & "Or BussA_Table.Ansökningsdatum Like '*" & Me.txtSearch.Text & "*') "

      Me.ListPicker.RowSource = strSource
      Me.ListPicker.Requery
      
Application.Echo True
End Sub

I dont get any error message when running it.
The listbox just emptys, so i guess the code is wrong and does not filter out what i want.

 

[behedwin]

Here are some screenshots that might help

http://prntscr.com/juw8pw
http://prntscr.com/juw8yw

still have not had any luck of figuring out what is wrong.

the code in the first post is placed in a text field.
it works in other setups jut perfectly...

this is another code where i use it, and it works just fine

Private Sub txtSearch_Change()
Application.Echo False

  Dim strSource As String

  strSource = "SELECT KeyOwnerSelect_Query.Key_ID, KeyOwnerSelect_Query.Nyckel_Kort_Nummer, KeyOwnerSelect_Query.Nyckeltyp, KeyOwnerSelect_Query.LasSystem, KeyOwnerSelect_Query.Profile_ID_SK, KeyOwnerSelect_Query.Firstname, KeyOwnerSelect_Query.Lastname, KeyOwnerSelect_Query.KeyArchived " & _
    "FROM KeyOwnerSelect_Query " & _
    "Where (KeyOwnerSelect_Query.Key_ID Like '*" & Me.txtSearch.Text & "*' " _
    & "Or Nyckel_Kort_Nummer Like '*" & Me.txtSearch.Text & "*' " _
    & "Or Nyckeltyp Like '*" & Me.txtSearch.Text & "*' " _
    & "Or LasSystem Like '*" & Me.txtSearch.Text & "*' " _
    & "Or Profile_ID_SK Like '*" & Me.txtSearch.Text & "*' " _
    & "Or Firstname Like '*" & Me.txtSearch.Text & "*' " _
    & "Or Lastname Like '*" & Me.txtSearch.Text & "*') AND KeyArchived is null "

      Me.ListPicker.RowSource = strSource
      Me.ListPicker.Requery
      
Application.Echo True
End Sub

this code works, but not the one in the first post. I can not figure out why....

 

[xenou]

Possibly in your sql the WHERE clause must come before the GROUP BY clause.

 

[behedwin]

That fixed it.
**** so easy... ive been looking at this code all day.
An just move one row and it fixed everything :D