Question

I have an Access database with a single query in it. I can currently copy the query via VBA, using DoCmd.CopyObject. However, I need to be able to edit the SQL in each instance of the query individually. All the examples I have seen, however, involve recordset, which is something I am not using.

Any ideas?

Answer 1

The question is a bit thin on what kind of query you want to edit, but say it is a select query that doesn’t need any dynamic parameters.

Then, using the CopyObject method, make a copy of the query as you did. Use the Catalog object (you will need to reference the ADO Ext). Then, you can just change the SQL of the copy as below. Depending on your query, it may be a View or a Procedure, but a Select query should be listed as a View.

Dim catDB As ADOX.Catalog
Dim cmd As ADODB.Command
Dim sQueryName As String
Dim sSQL As String

Set cn = CurrentProject.Connection
Set catDB = New ADOX.Catalog

catDB.ActiveConnection = cn
DoCmd.CopyObject , "Query1_c", acQuery, "Query1"
sQueryName = "Query1_c"
sSQL = "SELECT a,b,c FROM Table1"

Set cmd = New ADODB.Command
Set cmd = catDB.Views(sQueryName).Command
cmd.CommandText = sSQL
Set catDB.Views(sQueryName).Command = cmd

Set catDB = Nothing
cn.Close