Probably could do something like
Code:
Dim qdf As DAO.QueryDef
Dim fld As Field
Dim strOut As String
Set qdf = CurrentDb.CreateQueryDef("", Me.RecordSource)
For Each fld In qdf.Fields
strOut = strOut & "Name: " & fld.Name & vbTab & "Position: " & fld.OrdinalPosition & vbTab & _
"size: " & fld.Properties("size") & vbTab & "Type: " & fld.Type & vbNewLine & vbNewLine
Next
MsgBox strOut
lots of properties available https://learn.microsoft.com/en-us/of...properties-dao
Personally I would debug.print instead of msgbox.
If this helped, please click the star * at the bottom left and add to my reputation- Thanks