VBA – Create Query with VBA

Posted on September 6, 2014 by

There are many ways to create a query in Access. However, creating a query with VBA code is something quite challenging. The code below creates an object of type query, named “MyQuery”. The SQL of the object is also given within the code. The result looks like this:

Thus, we have a new query, which is code-created. Quite interesting way of using the Data Access Objects (DAO) in Access.

Here come the few lines of code:

Sub CreateQuery()

    Dim db      As DAO.Database
    Dim qDef    As DAO.QueryDef

    Set db = CurrentDb
    Set qDef = db.CreateQueryDef("MyQuery")
    qDef.SQL = "SELECT * FROM Vitoshacademy"
    qDef.Close
    db.Close
    Set qDef = Nothing
    Set db = Nothing
    Application.RefreshDatabaseWindow

End Sub

Sub CreateQuery()

Dim db As DAO.Database

Dim qDef As DAO.QueryDef

Set db = CurrentDb

Set qDef = db.CreateQueryDef("MyQuery")

qDef.SQL = "SELECT * FROM Vitoshacademy"

qDef.Close

db.Close

Set qDef = Nothing

Set db = Nothing

Application.RefreshDatabaseWindow

End Sub

Enjoy it! 🙂

Tagged with: create query, ms access, query, VBA

VBA – Create Query with VBA

Related posts: