AccessObjectProperty Object, AccessObjectProperties Collection Example

This illustrates how to add custom properties to a form using the AccessObjectProperties collection and Add method.

Sub AddCustomFormProperty(strFormName As String, _
                                  strPropName As String, _
                                  varPropValue As Variant)
    ' Add custom properties to the AccessObjectProperties
    '  collection that is associated with an AccessObject object.
    
    With CurrentProject.AllForms(strFormName).Properties
        .Add strPropName, varPropValue
    End With
End Sub