I have done this before with success but can't seem to sort this out for some reason. Maybe someone can spot the trouble...
I am trying to filter a listbox on my form with a combo. Here is the code behind the combo:
After changing the combo (RepSort), the listbox is blank. I have tried this with a table as source and as a query as source. Also with and without the requery.
If someone can spot what is wrong with the code, please fill me in!
Thanks
I am trying to filter a listbox on my form with a combo. Here is the code behind the combo:
Code:
Private Sub RepSort_AfterUpdate()
Me.listbox1.RowSource = "SELECT [Basic Entry].[Record Number], [Basic Entry].[Reps], [Basic Entry].[Date], [Basic Entry].[Inquiry Type], [Basic Entry].[Inquiry Sub-category], [Basic Entry].[Policy Type], [Basic Entry].[Caller Type], [Basic Entry].[Irate Call] " & _
"FROM Basic Entry " & _
"Where {{{[Basic Entry].[Reps]=[Forms]![Entry_Form]![RepSort] Or [Forms]![Entry_Form]![RepSort] Is Null)=True))"
listbox1.Requery
End Sub
After changing the combo (RepSort), the listbox is blank. I have tried this with a table as source and as a query as source. Also with and without the requery.
If someone can spot what is wrong with the code, please fill me in!
Thanks