User Defined Property : Query « Access « VBA / Excel / Access / Word

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

User Defined Property

 
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

 

Related examples in the same category