Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub ListFields()
Dim dbs As Database, tdf As TableDef, fld As Field
' Return Database object variable pointing to current database.
Set dbs = CurrentDb
' Return TableDef object variable pointing to the table.
Set tdf = dbs.TableDefs![b]MyTABLE[/b]
' Enumerate fields in the table.
For Each fld In tdf.Fields
Debug.Print fld.Name & " " & fld.Size & " " & fld.Type
Next fld
End Sub