Access VBA教程:SubdatasheetExpanded属性

使用 SubdatasheetExpanded属性可以指定或确定表或查询中所有子数据表的保存状态。Boolean 型,可读写。

expression.SubdatasheetExpanded

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

说明

SubdatasheetExpanded属性仅适用于 Microsoft Access 数据库 (.mdb) 中的表和查询。

SubdatasheetExpanded属性使用以下设置:

设置 Visual Basic 说明
True  表中所有子数据表的保存状态是展开的。
False  (默认值)表中所有子数据表的保存状态是关闭的。

设置 SubdatasheetExpanded属性最简单的方法是通过使用表的属性表。也可以通过使用Visual Basic 设置该属性。

若要通过使用 Visual Basic 设置 SubdatasheetExpanded属性,必须先执行下列操作之一:

SubdatasheetExpanded属性的值在“表属性”属性表中显示。

当窗体处于数据表视图中时,SubdatasheetExpanded属性和 SubdatasheetHeight属性对子窗体控件起作用。

VBA示例

下面的示例将打开或关闭“Purchase Orders”窗体的子数据表。

Dim strExpand As String
With Forms("Purchase Orders")
     strExpand = InputBox("Expand subdatasheets? Y/N")
     Select Case strExpand
        Case "Y"
            .SubdatasheetExpanded = True
        Case "N"
            .SubdatasheetExpanded = False
        Case Else
            MsgBox "Can't determine subdatasheet expansion state."
    End Select
End With

若要自行试用该示例,请在“设计”视图中打开窗体(包含子窗体),单击窗体属性窗口中“加载”属性框旁边的“生成器”按钮,将该代码粘贴到窗体的 Form_Load事件中(删除对“Purchase Orders”窗体的引用),然后在“数据表”视图中打开该窗体。

上页:Access VBA教程:SubAddress属性 下页:Access VBA教程:SubdatasheetHeight属性

Access VBA教程:SubdatasheetExpanded属性

Access VBA教程:SubdatasheetHeight属性 Access VBA教程:SubdatasheetName属性
Access VBA教程:TabFixedHeight属性 Access VBA教程:TabFixedWidth属性
Access VBA教程:TabIndex属性 Access VBA教程:TabStop属性
Access VBA教程:Tag属性 Access VBA教程:TargetBrowser属性
Access VBA教程:Text属性 Access VBA教程:TextAlign属性
Access VBA教程:TextToDisplay属性 Access VBA教程:TimerInterval属性
Access VBA教程:Toolbar属性 Access VBA教程:Top属性
Access VBA教程:TopMargin属性 Access VBA教程:TopValues属性
Access VBA教程:Transparent属性 Access VBA教程:TripleState属性
Access VBA教程:Type属性 Access VBA教程:UnderlineHyperlinks属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号