Creat a query object by code

  • Thread starter Thread starter Warrio
  • Start date Start date
W

Warrio

Hello!
Is it possible to create by code an object as a query (like the ones stored
in the access db window)?
I know that we can modify it, using
currentDB.QueryDefs("Query1").Sql and open it by
currentDB.QueryDefs("Query1").Open

but how can we create a new one assign it a name?

Thanks for any suggestion
 
Public Sub CreateQuery()

Dim db As DAO.Database
Dim qdf As DAO.QueryDef

Set db = CurrentDb
Set qdf = db.CreateQueryDef("MyQuery", "SELECT * FROM Categories")
DoCmd.OpenQuery "MyQuery"

End Sub
 
Hi,
Something like this:

Dim db As Database
Dim qdf As QueryDef
Dim strSql As String

strSql = "Select * From MyTable"

Set db = CurrentDb()
Set qdf = db.CreateQueryDef("MyQuery", strSql)

'do more stuff if you want

Set qdf = Nothing
Set db = Nothing
 
Back
Top