Properties Property

Microsoft Access Visual Basic

Show All

Properties Property

       

Properties property as it applies to the AccessObject, CodeProject, and CurrentProject objects.

Returns a reference to an AccessObject, CurrentProject, or CodeProject object's AccessObjectProperties collection.

expression.Properties

expression   Required. An expression that returns one of the above objects.

Remarks

The AccessObjectProperties collection object is the collection of all the properties related to an AccessObject, CurrentProject, or CodeProject object. You can refer to individual members of the collection by using the member object's index or a string expression that is the name of the member object. The first member object in the collection has an index value of 0 and the total number of member objects in the collection is the value of the AccessObjectProperties collection's Count property minus 1.

You cannot use the Properties property to return properties from an AccessObject object which is a member of a collection accessed from a  CurrentData object.

Properties property as it applies to all other objects in the Applies To list. 

Return a reference to a control's Properties collection object.

expression.Properties

expression   Required. An expression that returns one of the objects in the Applies To list.

Remarks

The Properties collection object is the collection of all the properties related to a control. You can refer to individual members of the collection by using the member object's index or a string expression that is the name of the member object. The first member object in the collection has an index value of 0 and the total number of member objects in the collection is the value of the Properties collection's Count property minus 1.

Example

The following procedure uses the Properties property to print all the properties associated with the controls on a form to the Debug window. To run this code, place a command button named cmdListProperties on a form and paste the following code into the form's Declarations section. Click the command button to print the list of properties in the Debug window.

Private Sub cmdListProperties_Click()
    ListControlProps Me
End Sub

Public Sub ListControlProps(ByRef frm As Form)
    Dim ctl As Control
    Dim prp As Property

    On Error GoTo props_err

    For Each ctl In frm.Controls
        Debug.Print ctl.Properties("Name")
        For Each prp In ctl.Properties
            Debug.Print vbTab & prp.Name & " = " & prp.Value
        Next prp
    Next ctl

props_exit:
    Set ctl = Nothing
    Set prp = Nothing
Exit Sub

props_err:
    If Err = 2187 Then
        Debug.Print vbTab & prp.Name & " = Only available at design time."
        Resume Next
    Else
        Debug.Print vbTab & prp.Name & " = Error Occurred: " & Err.Description
        Resume Next
    End If
End Sub