Copy queries between Access DBs with Module

[Colin Steadman]

Is it possible to automate the process of copying queries from one
Access database into another using a Module? If so could anyone give
me a pointer as to how this might be achieved.

TIA,

Colin

[Wayne Morgan]

Check DoCmd.TransferDatabase

--
Wayne Morgan
MS Access MVP
"Colin Steadman" <go****@colinsteadman.com> wrote in message
news:40**************************@posting.google.c om...

Is it possible to automate the process of copying queries from one
Access database into another using a Module? If so could anyone give
me a pointer as to how this might be achieved.

[Pieter Linden]

Public Sub ExportAllQueries()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Const strDestDB as String = "F:\SaveUs\ShowCourses.mdb"
Set db = CurrentDb
For Each qdf In db.QueryDefs
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strDestDB, acQuery, qdf.Name, qdf.Name
Next qdf

Set qdf = Nothing
Set db = Nothing

Debug.Print "done exporting Queries..."
End Sub

[Colin Steadman]

> Public Sub ExportAllQueries()

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Const strDestDB as String = "F:\SaveUs\ShowCourses.mdb"
Set db = CurrentDb
For Each qdf In db.QueryDefs
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strDestDB, acQuery, qdf.Name, qdf.Name
Next qdf

Set qdf = Nothing
Set db = Nothing

Debug.Print "done exporting Queries..."
End Sub

Thankyou! This looks looks like it does exactly what I trying to do.

Colin