Access VBA教程:Properties属性

应用于 AccessObject、CodeProject 和 CurrentProject 对象的 Properties属性。

返回对AccessObjectCurrentProjectCodeProject对象的AccessObjectProperties集合的引用。

expression.Properties

expression   必需。返回以上对象之一的表达式。

说明

AccessObjectProperties集合对象是与 AccessObject、CurrentProject 或 CodeProject对象相关的所有属性的集合。通过使用成员对象的索引或表示成员对象名称的字符串表达式,可以引用集合内的每一个成员。集合内的第一个成员对象的索引值为 0,该集合内成员对象的总数为 AccessObjectProperties集合的Count属性值减 1。

使用 Properties属性不能从通过 CurrentData对象进行访问的集合成员的 AccessObject对象返回属性。

应用于“Applies To”列表中所有其他对象的 Properties属性。

该属性返回对控件的Properties集合对象的引用。

expression.Properties

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

Properties集合对象是与控件相关的所有属性的集合。使用成员对象的索引或表示成员对象名称的字符串表达式可以引用集合内的单个成员。集合内第一个成员对象的索引值为 0,该集合内成员对象的总数为 Properties集合的Count属性值减 1。

VBA示例

下面的过程使用 Properties属性将所有与窗体上的控件相关的属性打印在“调试”窗口中。要运行这些代码,请在窗体中放置一个名为 cmdListProperties 的命令按钮,然后将下列代码粘贴到窗体的“声明”节中。单击该命令按钮即可在“调试”窗口中打印属性列表。


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

上页:Access VBA教程:ProjectType属性 下页:Access VBA教程:PrtDevMode属性

Access VBA教程:Properties属性

Access VBA教程:PrtDevMode属性 Access VBA教程:PrtDevNames属性
Access VBA教程:PrtMip属性 Access VBA教程:Query属性
Access VBA教程:ReadingOrder属性 Access VBA教程:ReadyState属性 (Snapshot Viewer)
Access VBA教程:RecordLocks属性 Access VBA教程:RecordSelectors属性
Access VBA教程:Recordset属性 Access VBA教程:RecordsetClone属性
Access VBA教程:RecordsetType属性 Access VBA教程:RecordSource属性
Access VBA教程:RecordSourceQualifier属性 Access VBA教程:References属性
Access VBA教程:RemovePersonalInformation属性 Access VBA教程:RepeatSection属性
Access VBA教程:ReplicationConflictFunction属性 Access VBA教程:Report属性
Access VBA教程:Reports属性 Access VBA教程:Required属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号