Create a Query with SQL string, and then show the query 1

[kjv1611]

I haven't delved terribly deep into the usage of Queries and SQL just yet, but I think I am starting to get the hang of it. Anyway, my question is this: I have a SQL statement which creates a new query (works great so far), but I want to be able to view the query as soon as it is made (for now). Can I add something to or change something in the code I have posted here:

Private Sub cmbStatus_AfterUpdate()
    Dim strQueryName As String
    strQueryName = Me.cmbTeamLeader & " " & Me.cmbStatus

    Dim myquery As QueryDef
    Set myquery = CurrentDb.CreateQueryDef([strQueryName], _
    "SELECT tblStatusAudit.Year, tblStatusAudit.Month, " & _
    "tblStatusAudit.Director, " & _
    "tblStatusAudit.Manager, tblStatusAudit.[Team Leader], " & _
    "tblStatusAudit.Status " & _
    "FROM tblStatusAudit " & _
    "WHERE (((tblStatusAudit.[Team Leader])=[Forms]!" & _
    "[frmAuditReviewSelection]![cmbTeamLeader]) " & _
    "AND ((tblStatusAudit.Status)=[Forms]!" & _
    "[frmAuditReviewSelection]![cmbStatus]));")

??
Suggestions? I'm thinking it's probably something simple, I am just unaware of it..

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV

 

[smedvid]

I use the following...


Function Testmex()
Dim lcQueryName As String
lcQueryName = "qrySalary_Corrections" 'Where this is a saved query in the database.
DoCmd.OpenQuery lcQueryName
End Function

htwh,


Steve Medvid
"IT Consultant & Web Master"

http://www.saveourfarm.com

Chester County, PA Residents
Please Show Your Support...

 

[kjv1611]

Thanks, that worked perfectly... I just needed this part:

    DoCmd.OpenQuery strQueryName

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV

 

[kjv1611]

Yup, that works both in the even that creates the query, as well as in a separate button (which is my preferred method for now). That's great. I'm actually going to be sending the query to Excel or an Access Report in the long run, but this is great for testing purposes!

Thanks!

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV