テーブル名とフィールド名を取得する

Windows Access VBA 
Sub GetFieldName()
  Dim db  As DAO.Database
  Dim fld As DAO.Field
  Dim tbl As DAO.TableDef
  
  Set db = CurrentDb
  
  For Each tbl In db.TableDefs
    ' テーブル名出力
    Debug.Print tbl.Name
    
    For Each fld In tbl.Fields
      ' フィールド名出力
      Debug.Print " "; fld.Name
    Next fld
  Next tbl
End Sub

参考