Evaluating Which Items Are Selected in the Multiselect List Box : ListBox « Forms « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Forms
  3. ListBox

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








Related examples in the same category

1.Add item to List Box
2.Add names of all open workbooks to the list box
3.Add items to ListBox
4.Assign the data in a worksheet to RowSource of a ListBox
5.Make sure the RowSource property is empty
6.Select the items programmatically
7.Get all selected items in a list box
8.Determining the selected item
9.Get selected from ListBox
10.Get the selected items in a ListBox