Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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("rntsoftTable")    ' retrieve table properties    For Each pr In myTable.Properties       Debug.Print myTable.Name & ": " & _           pr.Name & "= "; pr.Value    Next    Set cat = Nothing End Sub