این یک نمونه کوچک از یک تابع است که نام تمام فیلدهای تمام جداول در پایگاه داده شما را در پنجره مستقیم محیط VBA چاپ می کند.
Sub allColumns()
Dim x As Integer
Dim y As Integer
Dim db As DAO.Database
Set db = CurrentDb
For x = 0 To db.TableDefs.Count - 1
Debug.Print db.TableDefs(x).name
For y = 0 To CurrentDb.TableDefs(x).Fields.Count - 1
Debug.Print CurrentDb.TableDefs(x).Fields(y).name
Next
Next
db.Close Set db = Nothing
End Sub