Print Query list

J

JDR

Is it possible to print a list of query names in an Access database and the
table structures?

Thanks!
 
W

Wayne Morgan

Try Tools|Analyze|Documenter. If that is more than you want,

Dim tdf As DAO.TableDef, qdf As DAO.QueryDef, fld As DAO.Field
For Each tdf In CurrentDb.TableDefs
Debug.Print tdf.Name
For Each fld In tdf.Fields
Debug.Print " " & fld.Name
Next
Next

For Each qdf In CurrentDb.QueryDefs
Debug.Print qdf.Name
Debug.Print qdf.SQL
Next

There is a limit to how much data the immediate window will display, so you
will probably want to "print" this somewhere else if you have very many
tables and/or queries.
 
Top