Assuming you've got a reference set to DAO, something like:
Dim dbCurr As Database
Dim tdfCurr As TableDef
Dim fldCurr As DAO.Field
Set dbCurr = CurrentDb()
Set tdfCurr = dbCurr.TableDefs("MyTable")
For Each fldCurr In tdfCurr.Fields
Debug.Print fldCurr.Name
Next fldCurr
Set tdfCurr = Nothing
Set dbCurr = Nothing
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(No private e-mails, please)
"Joe User" <jo*@user.com> wrote in message
news:bu**********@tribune.mayo.edu...
This may sound silly, but is it possible to build a query to generate a
list of fields in a given table?
TIA
Joe