Hi there, with the following code, I am able to select one employee and have the report return the data accordingly. For some reason, when I select more than one employee the report runs and returns 0 records. Does anyone have a solution for this???
Private Sub BTN_EMPLOYEE_Click()
Dim strEmployee As String
Dim varItem As Variant
'make sure a selection has been made
If Me.LIST_EMPLOYEE.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 employee"
'add selected values to string
For Each varItem In Me.LIST_EMPLOYEE.ItemsSelected
If Len(strEmployee) > 0 Then strEmployee = strEmployee & "'"
strEmployee = strEmployee & Me.LIST_EMPLOYEE.ItemData(varItem) & "'"