[AccessD] List fields in a querydef

[Arthur Fuller]

Thanks, Gustav.

On Wed, Sep 8, 2021 at 8:01 AM Gustav Brock via AccessD <
accessd at databaseadvisors.com> wrote:

> Hi Arthur
>
> For the fields, you can reduce it to:
>
> Dim Field As DAO.Field
> For Each Field In
> CurrentDb.QueryDefs("BooksandAuthors").OpenRecordset.Fields
>     Debug.Print Field.Name
> Next
>
> For the table/query names, you will have to parse the SQL (look up FROM
> and JOIN):
>
>     CurrentDb.QueryDefs("BooksandAuthors").SQL
>
> /gustav