|
Sub exaUserDefinedProperty()
Dim db As Database
Dim tbl As TableDef
Dim prp As Property
Dim str As String
Set db = CurrentDb
Set tbl = db!BOOKS
Set prp = tbl.CreateProperty("UserProperty", dbText, "Programming DAO is fun.")
tbl.Properties.Append prp
str = ""
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
|