如何识别窗体处于打开状态

hope678

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

aslxt

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

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

hope678

附件

todaynew

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

咱家是猫

咱家是猫

上面例子并没有完全做到楼主的要求,响应事件不是在鼠标单击"展示器"按钮时,而是在记录的Current事件上触发,即你用鼠标点击第二层窗体的记录时触发.