【Access子表】--默认打开数据表子表全部展开的示例,默认展开子表,展开收缩子表的设置

时　间:2014-06-24 09:23:09
作　者:金宇   ID：43  城市：江阴
摘　要:【Access子表】--默认打开数据表子表全部展开的示例,默认展开子表,展开收缩子表的设置
正　文:

学员 mark 2014-06-17 13:28:17 问题
想请教一下老师，如何一键打开全部的子表？逐个点击，有点麻烦。在网站上好像找不到类似的文章，如下图：

Accessoft--金宇 2014-06-17 13:32:15
直接调用方法用如下代码：
    DoCmd.RunCommand acCmdSubdatasheetExpandAll    '默认展开
    DoCmd.RunCommand acCmdSubdatasheetCollapseAll  '默认收缩

通过主窗体嵌入子窗体调用如下代码：
    Form_窗体名称.SubdatasheetExpanded = True   '默认展开
    Form_窗体名称.SubdatasheetExpanded = False  '默认收缩

附   件: