Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Evaluating Which Items Are Selected in the Multiselect List Box

Private Sub cmdRunReports_Click()     Dim varItem As Variant     Dim lst As ListBox     Set lst = Me.yourList     If lst.MultiSelect > 0 Then         If lst.ItemsSelected.Count > 0 Then             For Each varItem In lst.ItemsSelected                 DoCmd.OpenReport lst.ItemData(varItem), acViewPreview             Next varItem          End If      End If End Sub