修改拆分表单数据表视图格式

【问题标题】：Modify split form datasheet view format修改拆分表单数据表视图格式
【发布时间】：2017-01-18 14:56:10
【问题描述】：

我有一个带有子表单的拆分表单。每次加载表单时，子表单数据都会自动展开。

有没有办法在表单加载时自动折叠子表单的数据表视图？

【问题讨论】：

标签： forms ms-access vba subform expandable

【解决方案1】：

使用VBA在加载时自动折叠子表单：

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

【讨论】：

为了更容易并强制用户说是或否，你应该使用strExpand =MsgBox ("Expand subdatasheets?", vbYesNo)而不是