Update: Listbox to a query, i am able to print to a report

[finsmith]

HELLO ALL

I am now rephrasing my work from a dropdown box, combo box into a list box, multi selection.
I am trying to again push to a query, I have some samle code which works, but it goes into a table.
Is there anyone that can help me modify the query button so it pushes it into a query.
I appreciate your assistance.
1MultiSelect1.mdb

[finsmith]

making lives easier,. here is the code


Option Compare Database
Option Explicit


Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click


Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant


'make sure a selection has been made
If Me.lstEmployees.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 employee"
Exit Sub
End If


'add selected values to string
Set ctl = Me.lstEmployees
For Each varItem In ctl.ItemsSelected
strWhere = strWhere & ctl.ItemData(varItem) & ","
Next varItem
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)
'open the report, restricted to the selected items
DoCmd.OpenReport "rptEmployees", acPreview, , "EmpID IN(" & strWhere & ")"


Exit_cmdOpenReport_Click:
Exit Sub


Err_cmdOpenReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenReport_Click


End Sub
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click


Dim stDocName As String


stDocName = "rptEmployees"
DoCmd.OpenReport stDocName, acViewReport


Exit_Command4_Click:
Exit Sub


Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub


Private Sub Command5_Click()
On Error GoTo Err_Command5_Click


'Dim stDocName As String


'stDocName = "qryAllEmployees"
'DoCmd.OpenQuery stDocName, acNormal, acEdit


Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant


'make sure a selection has been made
If Me.lstEmployees.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 employee"
Exit Sub
End If


'add selected values to string
Set ctl = Me.lstEmployees
For Each varItem In ctl.ItemsSelected
strWhere = strWhere & ctl.ItemData(varItem)
'& ","
Next varItem
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)
'open the report, restricted to the selected items
' DoCmd.OpenQuery strWhere, acNormal, acEdit
DoCmd.OpenQuery "qryAllEmployees" acPreview, , "EmpID IN(" & strWhere & ")"



Exit_Command5_Click:
Exit Sub

i just need help to do the query print.