[AccessD] List fields in a querydef

[jack drawbridge]

Arthur,
Here's a sample based on one of my queries.

Sub testqdfFields()
    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("BooksandAuthors")
    Set rst = qdf.OpenRecordset(dbOpenDynaset)
    Debug.Print qdf.SQL
    Debug.Print rst.Fields.Count
    For Each fld In rst.Fields
        Debug.Print fld.name
    Next fld
End Sub

Here is the result showing the qdf SQL

SELECT BOOKAuthors.BookID, AUTHOR.authorId, BOOK.BookTitle, BOOK.NumPages,
AUTHOR.Firstname, AUTHOR.Lastname
FROM BOOK INNER JOIN (AUTHOR INNER JOIN BOOKAuthors ON AUTHOR.authorId =
BOOKAuthors.AuthorId) ON BOOK.BookId = BOOKAuthors.BookID
ORDER BY BOOK.BookTitle, AUTHOR.Lastname;

 6   <-----count of fields in qdf
BookID  <---field names here and below
authorId
BookTitle
NumPages
Firstname
Lastname

Jack

On Tue, Sep 7, 2021 at 12:40 PM Arthur Fuller <fuller.artful at gmail.com>
wrote:

> Given the name of a query, how can I list the fields  and their tables, in
> the event that more than one table is involved?
>
> --
> Arthur
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>