Copying a query object in VBA

[Guest]

Hello,

I would like to copy querydef in VBA. Can this be done? Example:
qryMyQuery to qryMyCopiedQuery

Thank you!

 

[Ken Snell [MVP]]

DoCmd.CopyObject , "qryMyCopiedQuery", acQuery, "qryMyQuery"

 

[Jim Allensworth]

Hello,

I would like to copy querydef in VBA. Can this be done? Example:
qryMyQuery to qryMyCopiedQuery

Thank you!

I'm not sure why you would want to, but this should do it.

CurrentDb.CreateQueryDef "qryMyCopiedQuery", _
CurrentDb.QueryDefs ("qryMyQuery").SQL


- Jim