Unanswered: using two multi-select list boxes to filter report
I'm trying to figure out how to use two multi-select list boxes to filter a report. I want the user to select a CR code (a code that identifies the reason for a value change) from a multi-select list box and select a district from another multi-select list box and have the report be based on which values they select from the two boxes. I'm able to filter the report using one multi-select list box using this VBA code
Private Sub Open_Report_Click()
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
If Me.CRlb.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 Change Reason Code"
Set ctl = Me.CRlb
For Each varItem In ctl.ItemsSelected
strWhere = strWhere & "'" & ctl.ItemData(varItem) & "',"