listbox and Select Query

[esengul]

i have a list box with multiselect option
i want to have a select query based on the items that user selects. the problem is it works with the last seleted item not all selected items. i don't know what i am doing wrong. Thanks

my code
For Each varItm In ctlanalytes.ItemsSelected
Debug.Print ctlanalytes.ItemData(varItm)
Next
sqlanalyte = "select " & ctlanalytes.ItemData(varItm) & " from tblanalyte"

 

[esengul]

I solved it. here is my code.
Dim strList As String
strList = ""

For Each varItm In ctlanalytes.ItemsSelected
strList = strList & ctlanalytes.ItemData(varItm) & ", "
Next
sqlanalyte = "select " & strList & " from tblanalytes"

thanks

 

[PHV]

sqlanalyte = ""
For Each varItm In ctlanalytes.ItemsSelected
sqlanalyte = sqlanalyte & "," & ctlanalytes.ItemData(varItm)
Next
If sqlanalyte <> "" Then
sqlanalyte = "select " & Mid(sqlanalyte, 2) & " from tblanalyte"
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244