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






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

1.List table types
2.Checking for Existence of Tables
3.Check table definition
4.Get Table documents
5.Table documents