Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function GetQuerySQL(strQuery as String)
Dim db as DAO.Database
Dim qd as DAO.QueryDef
Set db = CurrentDb
Set qd = db.QueryDefs(strQuery)
GetQuerySQL = qd.SQL
End Function
INSERT INTO tblQuerySQL ( QueryName, QuerySQL, QueryDate )
SELECT msysObjects.Name, GetQuerySQL([Name]) AS Expr1, Now() AS Expr2
FROM msysObjects
WHERE (((msysObjects.Name)="YourQueryNameHere"));