Private Sub OpenSelectedUsagerpt_Click()
If Me![Combo_User].ListIndex > -1 Then
With DoCmd
.SetParameter "cb1", Me![Combo_User]
.SetParameter "dt1", "#" & Format$(Nz(Me![txtstDate], #1/1/1899#), "mm\/dd\/yyyy") & "#"
.SetParameter "dt2", "#" & Format$(Nz(Me![txtEndate], #1/1/9999#), "mm\/dd\/yyyy") & "#"
.OpenReport "SuppliesUsagebyDepartment_Users_MultiSelectTest", acViewPreview
End With
Else
Msgbox "Please select a user from the list."
End If
End Sub