Copying and Pasting Access 2000 Queries

[Paperclipper]

Is there a faster way to copy and paste queries from db to db? i should have made a template of all the queries and then put the tables on them, but now it's too late and it would take longer...

anyone know how to do the same as selecting 10 queries and duping them on another db?

thanks!

 

[Dugantrain]

Maybe it would be easier to, from the Destination db, use a File->Get External Data->Import, and then Select the 10 queries that you want imported?

 

[mdmilner]

If you just want to get the raw SQL, try something like this:
This iterates through the full list of queries and throws them into a msgbox just to display. You could automate an export routine sending it to another mdb or just dump the contents into a text file and work with it there.

Sub GrabSQL()
Dim db As DAO.Database
Dim qry As QueryDef
Dim strVal, strDest As String
Set db = CurrentDb()
strDest = "full_path_to_file"
 ' "C:\folder\folder1\database.mdb"
For Each qry In db.QueryDefs
  strVal = qry.Name
  DoCmd.TransferDatabase acExport, "Microsoft Access", strDest, acQuery, strVal, strVal, False
Next qry
          
End Sub

qry.SQL would give you the actual SQL in the queries. You could export that to a text file.


Mike

 

[Paperclipper]

thanks guys!

Dugantrain actually gave me the novice something i can use right away and did the trick!

Mike, yours was good to know ...and i'll definitely give a try if/when i get up to that level!

good teamwork! thanks!