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
   Next
   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