Export Query Text

[tjb2]

I have an access 97 application I need to deconstruct in order to rewrite as a .NET application. There are MANY queries in the database. Is there a way to print/export the code for all of the queries in the db with out "sql view - copy - paste"?

Thanks For Any And All Help

SimpleMusings!

 

[PWise]

create a folder c:\query
past this sub in a moudel and run

Sub SaveQueryiesAsText()
Dim mydb As Database
Dim qerdefs As QueryDefs
Dim qerdef As QueryDef
Set mydb = CurrentDb
Set qerdefs = mydb.QueryDefs

For Each qerdef In qerdefs
    
    Open "c:\Query\" & qerdef.Name & ".txt" For Output As 1
    Print #1, qerdef.SQL
    Close #1
    'SaveAsText acQuery, qerdef.Name, "c:\Query\" & qerdef.Name & ".txt"
Next


End Sub