using listbox criteria

[kidrobot]

I currently use this code to open a query based on listbox criteria.

Dim ctl As Control
Dim varItm As Variant
Dim stItem As String
Dim strString As String
Dim qdfTemp As QueryDef

Set ctl = Me!lstT

    For i = 0 To lstT.ListCount - 1
        If lstTrains.Selected(i) Then
            If lstT.Column(0, i) = "All" Then
                flgSelectAll = True
            End If
            strIN = strIN & "'" & lstT.Column(0, i) & "',"
        End If
    Next i

Set qdfTemp = CurrentDb.CreateQueryDef("zzTempTable", "SELECT * FROM zz WHERE TT in (" & strIN & ");")

DoCmd.OpenQuery "zzTempTable"
DoCmd.OpenQuery "zz2final"
'Or alternatively output a report that references the query

'Delete query and free memory
CurrentDb.QueryDefs.Delete "qryTestQuery"
Set qdfTemp = Nothing

currently I am opening this query with a new temp query "zzTempTable", is there anyway I can use this code to just open my zz table with the appropriate listbox criteria?

 

[modest]

Is this program for Norfolk Southern?

Just set the report data to the SQL info.

Report.Recordset = "SELECT * FROM zz WHERE TT in (" & strIN & ");"

 

[pbaldy]

I would build a wherecondition for either OpenForm or OpenReport.

 

[kidrobot]

Is this program for Norfolk Southern?

Just set the report data to the SQL info.

Report.Recordset = "SELECT * FROM zz WHERE TT in (" & strIN & ");"

Yes, how could you tell?

 

[modest]

Used to intern for them in Norfolk. Was looking for a job there, but not really anymore. This is off-topic though, did the new recordset work?

 

[kidrobot]

Used to intern for them in Norfolk. Was looking for a job there.

Pretty good job, I started about 2 months ago.