Display an SQL query using VBA

[Ludo Claes]

I know how to use SQL to perform an action Query using VBA code.
My question is
Is it possible to display an normal query or a cross-table query using a VBA
code such as

DoCmd.RunSQL "TRANSFORM
Sum(qxNietGebruikteEindtermenEnLesonderwerpen.AantalVanLesOndId)" & _
"SELECT
qxNietGebruikteEindtermenEnLesonderwerpen.Eindterm,
tblKlassen.Studierichting,
Sum(qxNietGebruikteEindtermenEnLesonderwerpen.AantalVanLesOndId) " & _
"FROM qxNietGebruikteEindtermenEnLesonderwerpen INNER
JOIN tblKlassen ON qxNietGebruikteEindtermenEnLesonderwerpen.Klas =
tblKlassen.Klas " & _
"WHERE (((tblKlassen.Studierichting) = '1e graad
beroepsvoorbereidend leerjaar')) " & _
"GROUP BY
qxNietGebruikteEindtermenEnLesonderwerpen.Eindterm,
tblKlassen.Studierichting " & _
"ORDER BY tblKlassen.Studierichting " & _
"PIVOT qxNietGebruikteEindtermenEnLesonderwerpen.Klas;"


or

DoCmd.RunSQL "SELECT tblKlasVak.KlasVakID, tblKlasVak.OndIns,
tblKlasVak.VakAfkorting, tblKlasVak.Klas, tblOpdracht.OpdrachtID,
tblOpdracht.Afkorting " & _
"FROM tblKlasVak LEFT JOIN tblOpdracht ON
tblKlasVak.KlasVakID = tblOpdracht.KlasVakID " & _
"WHERE (((tblKlasVak.OndIns)=[forms]![frmBasis]![ondins]));"

thanks for helping
Ludo

 

[Douglas J. Steele]

No, it's not. RunSQL only works with Action queries (INSERT INTO, UPDATE,
DELETE)

What you can do is create a QueryDef object and then use the OpenQuery
method.