Add new property to TableDef : TableDefs « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. TableDefs

Add new property to TableDef

 

Sub exaUserDefinedProperty()
    Dim db As Database
    Dim tbl As TableDef
    Dim prp As Property
     
    Set db = CurrentDb
    Set tbl = db!BOOKS
     
    Set prp = tbl.CreateProperty("UserProperty", dbText, "Programming DAO is fun.")
    tbl.Properties.Append prp
    For Each prp In tbl.Properties
       Debug.Print prp.Name
       Debug.Print prp.Value
       Debug.Print prp.Type
       Debug.Print prp.Inherited
    Next prp
     
    Debug.Print tbl.Properties.Count
     
End Sub

 

Related examples in the same category