Multi Value list box selects all customer

[Alan]

I have this code as a multiValue listbox but everytime i select which
customer i want it select them all, can anyone tell me how i can fix's this

thanks

Dim varitem As Variant
Dim strTempItem As String

For Each varitem In Me.lstReportFilter.ItemsSelected
strTempItem = strTempItem & " [SalesGroupingField]=" &
Me.lstReportFilter.ItemData(varitem) & " Or "
Next

strTempItem = "(" & Left(strTempItem, Len(strTempItem) - 4) & ")"

 

[Wayne-I-M]

Have you set the MultiSelect to Simple on the list's property box (it's in
the Other colum) ?