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

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("java2sTable").Columns("Id")

   MsgBox col.Properties.Count
   For Each pr In col.Properties
      Debug.Print pr.Name & "="; pr.Value
   Set cat = Nothing
End Sub


Related examples in the same category

1.Append new columns to new table
2.Delete a column
3.Adding a New Field to a Table
4.Removing a Field from a Table
5.Set column properties by using ADOX.Table
6.Get field properties
7.Listing Tables and Their Fields Using the OpenSchema Method
8.Adding a New Money type Field to an Existing Table
9.Adding a Field with SQL command
10.Changing the Field Data Type with SQL command
11.Changing the Size of a Field with SQL command
12.Deleting a Field from a Table with SQL command
13.Setting a Default Value for a Field with SQL command
14.Changing the Start (Seed) Value of the AutoNumber Field with SQL command
15.Read record in recordset by referening the field name with '!'
16.Open a table and read data by column
17.Show field name, type and value data type
18.Read specific columns from Recordset
19.Checking for Existence of a Field