What is wrong? SQL error in VBA code?

[behedwin]

Hi

I can not find what i am doing wrong with this code.
Access does not give me any error message... it just does not show the correct data that i expect.

I use this code to filter in a listbox.
the problem is with the row in bold. It is something there that is not correct and i cant figure out what and why...

  strSource = "SELECT Profile_Table.Profile_ID, Profile_Table.FirstName, Profile_Table.LastName, Profile_Table.Personnummer, Profile_Table.AnstalldSom, Profile_Table.JobbarPa, Profile_Table.WorkEndDate, Profile_Table.JobbProcent " & _
    "FROM Profile_Table " & _
    "Where (Profile_Table.Profile_ID Like '*" & Me.txtSearch.Text & "*' " _
    & "or FirstName Like '*" & Me.txtSearch.Text & "*' " _
    & "or LastName Like '*" & Me.txtSearch.Text & "*' " _
    & "or Personnummer Like '*" & Me.txtSearch.Text & "*' " _
    & "or Anstalldsom Like '*" & Me.txtSearch.Text & "*' " _
    & "or JobbProcent Like '*" & Me.txtSearch.Text & "*' " _
    & "or Anstallningsform Like '*" & Me.txtSearch.Text & "*' " _
[B]    & "or JobbarPa Like '*" & Me.txtSearch.Text & "*') AND ProfileArchived Is Null AND Anstallningsform = 'Tillsvidare (fast)' OR Anstallningsform = 'Visstid (tidsbegränsad)' "[/B]
      Me.ListPicker.RowSource = strSource
      Me.ListPicker.Requery

ProfileArchived is Null does not trigger... it still shows cells that do have data in them.

 

[behedwin]

if i create a working query that i want it looks like this in SQL

SELECT Profile_Table.Profile_ID, Profile_Table.ProfileArchived, Profile_Table.FirstName, Profile_Table.LastName, Profile_Table.Personnummer, Profile_Table.AnstalldSom, Profile_Table.JobbarPa, Profile_Table.Anstallningsform, Profile_Table.JobbProcent
FROM Profile_Table
WHERE (((Profile_Table.ProfileArchived) Is Null) AND ((Profile_Table.Anstallningsform)='Visstid (tidsbegränsad)' Or (Profile_Table.Anstallningsform)='Tillsvidare (fast)'));



But i cant make it work in VBA.

Why?

 

[behedwin]

I think i found a solution.
I enclosed the two OR statments in the bold text with ()

like this

  strSource = "SELECT Profile_Table.Profile_ID, Profile_Table.FirstName, Profile_Table.LastName, Profile_Table.Personnummer, Profile_Table.AnstalldSom, Profile_Table.JobbarPa, Profile_Table.WorkEndDate, Profile_Table.JobbProcent " & _
    "FROM Profile_Table " & _
    "Where (Profile_Table.Profile_ID Like '*" & Me.txtSearch.Text & "*' " _
    & "or FirstName Like '*" & Me.txtSearch.Text & "*' " _
    & "or LastName Like '*" & Me.txtSearch.Text & "*' " _
    & "or Personnummer Like '*" & Me.txtSearch.Text & "*' " _
    & "or Anstalldsom Like '*" & Me.txtSearch.Text & "*' " _
    & "or JobbProcent Like '*" & Me.txtSearch.Text & "*' " _
    & "or JobbarPa Like '*" & Me.txtSearch.Text & "*') [B]AND [U]([/U]Anstallningsform = 'Tillsvidare (fast)' OR Anstallningsform = 'Visstid (tidsbegränsad)'[U]) [/U]AND[/B] ProfileArchived Is Null "
      Me.ListPicker.RowSource = strSource
      Me.ListPicker.Requery

Now it seems to work :D