Help with Multi Select List Box

[mattc66 via AccessMonster.com]

Hi All,

I have a multi-select list box for print reports.


I am using the following code to print the reports. The Column1 is the report
name.

However when I select more then one report in my list box it only print the
last in the list. How would I change my code to allow me to print all that
are selected?


If Not IsNull(Me.lbMultiSelectListbox__.Column(1)) Then
DoCmd.OpenReport Me.lbMultiSelectListbox__.Column(1), , ,
acViewNormal
End If

Thanks
Matt

 

[Carl Rapson]

You need to iterate through all selected items in the list box:

Dim vnt as Variant
For Each vnt In lbMultiSelectListbox__.ItemsSelected
DoCmd.OpenReport lbMultiSelectListbox__.Column(1, vnt),,,acViewNormal
Next vnt

HTH,

Carl Rapson

 

[mattc66 via AccessMonster.com]

Thank you that worked great..

You need to iterate through all selected items in the list box:

Dim vnt as Variant
For Each vnt In lbMultiSelectListbox__.ItemsSelected
DoCmd.OpenReport lbMultiSelectListbox__.Column(1, vnt),,,acViewNormal
Next vnt

HTH,

Carl Rapson

Hi All,

[quoted text clipped - 16 lines]

Thanks
Matt