Bit of code for a multiselect list box please...

[MajorChaos]

I need a bit of code for a multiselect list box please.
also show me how to implement it. i.e. (function, sub, etc.) Im kinda new at this. Its the last chunk I need to get things going on a special form... ( my first!) so details please.. LOL

 

[PaulF]

This example uses the results of a multi-select listbox to set the criteria for a report. Listbox contains the ID Field and the LastName Field. It might get you started in the right direction.

Private Sub cmdViewReport_Click()
Dim strCriteria As String, strLng As Long, strField As String
Dim lngItem As Long
Dim varItem As Variant
strField = "[LastName]= "

For Each varItem In lstNames.ItemsSelected()
lngItem = varItem
strCriteria = strCriteria & " Or " & strField & Chr(39) & lstNames.Column(1, lngItem) & Chr(39)
Next

strLng = Len(strCriteria)
strCriteria = Right(strCriteria, strLng - 4)

MsgBox "Criteria is : " & strCriteria

DoCmd.OpenReport "rptEmployees", acViewPreview, , strCriteria
End Sub

PaulF