Query data based on List Box multiple selection

[titlepusher]

I need to query data based upon the multiple criteria selected in a list box.
Can't seem to make it happen. I'm not a coder... please dumb it down.
Thanks

 

[Roger Carlson]

Unfortunately, you have to use code to get at the selected items in a
multi-select listbox. On my website (www.rogersaccesslibrary.com), is a
small Access database sample called "CreateQueries2.mdb" which illustrates
how to do this. Form5 shows how to use a listbox.

--
--Roger Carlson
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

 

[Ofer]

Try this to get all the item that were selected in the list box

Dim VarItm, OutputString As String, i As Integer
i = 1
For Each VarItm In prm_MyCtl.ItemsSelected
If i = 1 Then
'------------------------------create output string
If prm_DataType = 1 Then '--Integer data
OutputString = prm_MyCtl.ItemData(VarItm)
Else '--String data
OutputString = "'" & prm_MyCtl.ItemData(VarItm) & "'"
End If
Else
If prm_DataType = 1 Then
OutputString = OutputString & "," & prm_MyCtl.ItemData(VarItm)
Else
OutputString = OutputString & ",'" & prm_MyCtl.ItemData(VarItm)
& "'"
End If
End If
i = i + 1
Next VarItm

You can use the OutputString as a filter for the query

 

[Robbie Doo]

Where do you put this code?

Try this to get all the item that were selected in the list box

Dim VarItm, OutputString As String, i As Integer
i = 1
For Each VarItm In prm_MyCtl.ItemsSelected
If i = 1 Then
'------------------------------create output string
If prm_DataType = 1 Then '--Integer data
OutputString = prm_MyCtl.ItemData(VarItm)
Else '--String data
OutputString = "'" & prm_MyCtl.ItemData(VarItm) & "'"
End If
Else
If prm_DataType = 1 Then
OutputString = OutputString & "," & prm_MyCtl.ItemData(VarItm)
Else
OutputString = OutputString & ",'" & prm_MyCtl.ItemData(VarItm)
& "'"
End If
End If
i = i + 1
Next VarItm

You can use the OutputString as a filter for the query