Here's what Paul expected you to use, I hope:
Code:
Option Compare Database
Option Explicit
Private Sub ClearList_Click()
Dim varItm As Variant
With ManufacturerSearch
For Each varItm In .ItemsSelected
.Selected(varItm) = False
Next varItm
End With
'do same for this listbox
With Me.ModelSearch
For Each varItm In .ItemsSelected
.Selected(varItm) = False
Next varItm
End With
End Sub
Private Sub Manufacturer_Model_Click()
Dim Mfgcriteria As String
Dim ModCriteria As String
Dim i As Integer
'loop through listbox and build a filter string
With Me.ManufacturerSearch
For i = 0 To .ListCount - 1
If .Selected(i) Then
Mfgcriteria = Mfgcriteria & """" & .ItemData(i) & """, "
End If
Next i
End With
'do same for other listbox
With Me.ModelSearch
For i = 0 To .ListCount - 1
If .Selected(i) Then
Modcriteria = Modcriteria & """" & .ItemData(i) & """, "
End If
Next i
End With
'check the Mfgcriteria we built
If Mfgcriteria <> "" Then
'remove the trailing ', ' from the filter string
Mfgcriteria = Left(Mfgcriteria, Len(Mfgcriteria) - 2)
Else
'it appears no Manufacturer was selected
MsgBox "Please select one or more States"
Exit Sub
End If
'check the Modcriteria we built
If Modcriteria <> "" Then
'remove the trailing ', ' from the filter string
Modcriteria = Left(Modcriteria, Len(Modgcriteria) - 2)
Else
'it appears no Model was selected
MsgBox "Please select one or more Models"
Exit Sub
End If
'Debug.Print MfgCriterai
'Debug.Print Modcriteria
DoCmd.OpenReport "Manufacturer_Model", acViewPreview, , "[Manufacturer] IN (" & Mfgcriteria & ") AND Model_Name IN (" & Modcriteria & ")"
End Sub
I had to guess at Model_Name above. Change to whatever name you have.