FredixBlog


Just my log about anything I could find enjoyable.



BuildQuery()

author Posted by: fredometro on date Jan 1st, 2004 | filed Filed under: MS-Access

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

tags