Here you go, maybe try this (using Split() to get the individual IDs):
Code:
Private Sub btnOpenReport_Click()On Error GoTo Err_Handler
Dim strReport As String
Dim strDateField As String
Dim strWhere As String
Dim lngView As Long
Dim strFilter As String
Dim sCustomerID() as string,i As Integer "Vlad
Set frm = Forms!frmSearchTool
strFilter = ""
Const strcJetDate = "\#mm\/dd\/yyyy\#"
strReport = Me.ComboSelectedReport
lngView = acViewReport
'Customer ID
If Not IsNull(frm!txtCustomerID) Then
sCustomerID=Split(frm!txtCustomerID,";")
For i = LBound(sCustomerID) To UBound(sCustomerID)
If strWhere <> "" Then
strWhere = strWhere & " AND "
End If
strWhere = strWhere & "[CustomerID] ='" & frm!txtCustomerID & "'"
Next i
End If
If CurrentProject.AllReports(strReport).IsLoaded Then
DoCmd.Close acReport, strReport
End If
If IsNull(Me.txtStartDate) And IsNull(Me.txtEndDate) And IsNull(Me.txtPatientID) And IsNull(Me.txtEmployeeResponsible) And IsNull(Me.ComboLocation) And IsNull(Me.ComboCategory) And IsNull(Me.ComboSubCategory) Then Exit Sub
DoCmd.OpenReport strReport, lngView, , strWhere
Exit_Handler:
Exit Sub
Err_Handler:
If Err.Number <> 2501 Then
MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "Cannot open report"
End If
Resume Exit_Handler
End Sub