Office中国论坛/Access中国论坛

标题: 如何识别窗体处于打开状态 [打印本页]

作者: hope678 时间: 2011-11-14 10:28
标题: 如何识别窗体处于打开状态
附件中有一个窗体1，窗体1中有一个子窗体，该子窗体中还有一个子窗体。窗体的显示都以数据表显示，现想实现的功能是当窗体1的子窗体中有一条记录展开时，其他的记录都不能展开，也就是说子窗体的子窗体（窗体名称：菜单三层子窗体）不能打开两次，如何识别菜单三层子窗体已处于打开状态。各位大虾帮帮忙啊，谢谢

作者: hope678 时间: 2011-11-14 10:31
附件

作者: todaynew 时间: 2011-11-14 11:46
本帖最后由 todaynew 于 2011-11-14 11:48 编辑

hope678 发表于 2011-11-14 10:31
附件

dim n as long
Private Sub Form_Click()
If n Mod 2 = 0 Then
Me.窗体.SetFocus
DoCmd.RunCommand acCmdSubdatasheetCollapseAll
End If
n = n + 1
End Sub

[attach]47319[/attach]

作者: aslxt 时间: 2011-11-14 18:26

todaynew 发表于 2011-11-14 11:46
dim n as long
Private Sub Form_Click()
If n Mod 2 = 0 Then

需要两个鼠标动作才能完成选中的记录的子窗体展开呢

作者: 咱家是猫 时间: 2011-11-14 19:57
[attach]47324[/attach]

作者: 咱家是猫 时间: 2011-11-14 19:59
上面例子并没有完全做到楼主的要求,响应事件不是在鼠标单击"展示器"按钮时,而是在记录的Current事件上触发,即你用鼠标点击第二层窗体的记录时触发.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)