listbox value to be used for query

[mukeshsrivastav]

Dear all,

I have developed one interface where user can select a single value form list box and system will take the selected value for retrieving records form my table.

Now My Question is how a user can select multiple value form list box and system take that for search .I now I have to change list box :multi select property to "simple or extended".but how to get value returned form selection can be taken.

suppose My list box has:
country name:
USA
UK
Austria
canada
etc.......

now a user want to see both usa and uk customer or even some time uk ,usa,and canada.how to retrieve data.

in single search i m using:

If Not IsNull(Lstcountry.Value) And Len(Lstcountry.Value) > 0 And Lstcountry.Value <> "ALL" Then
SWHERE = SWHERE & "[country]='" & Lstcountry.Value & "' And "
Else
SWHERE = SWHERE
End If
Plz can any body help me.!
Thanks.

[MMcCarthy]

Try this ...

Dim valSelect As Variant
 
  SWHERE = SWHERE & "[country] IN ("
  For Each valSelect In lstcountry.ItemsSelected
      SWHERE = SWHERE & "'" & Lstcountry.ItemData(valSelect) & "', "
  Next valSelect
 
  'Remove the last comma
  SWHERE = Left(SWHERE, Len(SWHERE)-2)
  'Add a closing bracket
  SWHERE = SWHERE & ")"