Field List

D

Douglas J. Steele

Using DAO, something like:

Dim tdfCurr As DAO.TableDef
Dim fldCurr As DAO.Field

Set tdfCurr = CurrentDb().TablesDefs("MyTable")
For Each fldCurr In tdfCurr.Fields
Debug.Print fldCurr.Name
Next fldCurr

You can also use ADOX, but I'm afraid I don't have a sample handy.
 
Top