Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Listing Field Properties

Sub List_FieldProperties()    Dim cat As ADOX.Catalog    Dim col As ADOX.Column    Dim pr As ADOX.Property    Set cat = New ADOX.Catalog    Set cat.ActiveConnection = CurrentProject.Connection    Set col = New ADOX.Column    Set col = cat.Tables("rntsoftTable").Columns("Id")    MsgBox col.Properties.Count    For Each pr In col.Properties       Debug.Print pr.Name & "="; pr.Value    Next    Set cat = Nothing End Sub