Listing Table Properties : Table Properties « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Table Properties

Listing Table Properties

 
Sub List_TableProperties()
   Dim cat As ADOX.Catalog
   Dim myTable As ADOX.Table
   Dim pr As ADOX.Property

   Set cat = New ADOX.Catalog
   Set cat.ActiveConnection = CurrentProject.Connection

   Set myTable = cat.Tables("java2sTable")

   ' retrieve table properties
   For Each pr In myTable.Properties
      Debug.Print myTable.Name & ": " & _
          pr.Name & "= "; pr.Value
   Next
   Set cat = Nothing
End Sub

 

Related examples in the same category