I keep playing around with this code and keep getting an error message "Type Mismatch" when trying to run the query. The code error is on the line after 'Else'. Does anyone know how this needs to be modified? Thanks
If Me!lstRRep.ItemsSelected.Count > 0 Then
For Each varItem In Me!lstRRep.ItemsSelected
strCriteria5 = strCriteria5 & "SalesbyRSM3.Relay_Rep = " & Chr(34) _
& Me!lstRRep.ItemData(varItem) & Chr(34) & "OR "
Next varItem
strCriteria5 = Left(strCriteria5, Len(strCriteria5) - 3)
Else
strCriteria5 = "SalesbyRSM3.Relay_Rep Like '3'" Or "SalesbyRSM3.Relay_Rep" Is Null
End If
If Me!lstRRep.ItemsSelected.Count > 0 Then
For Each varItem In Me!lstRRep.ItemsSelected
strCriteria5 = strCriteria5 & "SalesbyRSM3.Relay_Rep = " & Chr(34) _
& Me!lstRRep.ItemData(varItem) & Chr(34) & "OR "
Next varItem
strCriteria5 = Left(strCriteria5, Len(strCriteria5) - 3)
Else
strCriteria5 = "SalesbyRSM3.Relay_Rep Like '3'" Or "SalesbyRSM3.Relay_Rep" Is Null
End If