Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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