FredixBlog

Creates a new or replace an existing query.

Public Function BuildQuery(QueryName As String, QuerySQL As String)
Dim db As Database
Dim qd As QueryDef

    Set db = CurrentDb

    On Error Resume Next
    DoCmd.DeleteObject acQuery, QueryName
    On Error GoTo 0

    Set qd = db.CreateQueryDef(QueryName, QuerySQL)

End Function

No related posts.