VBA Query's

[amfroehlich]

I have done some visual basic programming and am just now getting into VBA. I am wanting to run a for each... loop to run Append Querys. How can i code

For each Append Query in Queries
run query
loop

Thanks,

Aaron

 

[SydneyGeek]

Hi Aaron,

you need to use the QueryDefs collection. In DAO, you use something like:

Sub AppendQRY_Loop()
  Dim dbs as DAO.Database
  Dim qdf as DAO.QueryDef

  Set dbs=CurrentDB()
  For Each qdf In dbs.QueryDefs
    'require test to see if qdf is Append query
    
    'if so, run the query
    DoCmd.OpenQuery(qdf)

  Next qdf
End Sub

Check the syntax -- not currently at an Access machine, so I couldn't check it myself.

Hope this gets you started.

Denis