Office中国论坛/Access中国论坛

标题: 如何打开一个窗体时自动关闭另一个已打开的窗体 [打印本页]

作者: ssh8688 时间: 2006-5-13 00:08
标题: 如何打开一个窗体时自动关闭另一个已打开的窗体
如何打开一个窗体时自动关闭另一个已打开的窗体？我找到了如下代码，但我的打开事件中已经有了一个过程，再把它加进去，系统提示重定义，该如何解决？

Private Sub Form_Open(Cancel As Integer) Dim MyFrm For Each MyFrm In CurrentProject.AllForms If MyFrm.IsLoaded = True And MyFrm.Name <> Me.Name Then DoCmd.Close acForm, MyFrm.Name End If Next End Sub

作者: tz-chf 时间: 2006-5-13 00:21
只这段代码又看不出问题

那你不要重定义好啦

作者: ssh8688 时间: 2006-5-13 00:27
如何重定义？我说的是“Private Sub Form_Open(Cancel As Integer) ”这个重定义错误

作者: 一点通 时间: 2006-5-13 00:56
Private Sub Form_Open(Cancel As Integer) Dim MyFrm For Each MyFrm In CurrentProject.AllForms If MyFrm.IsLoaded = True And MyFrm.Name <> Me.Name Then DoCmd.Close acForm, MyFrm.Name End If Next End Sub

看一下红色的部份是否重复了

作者: andymark 时间: 2006-5-13 00:58
代码没问题,可以执行,请检查代码是否2次Form_Open事件,或把代码COPY到Form_Load测试一下

作者: ssh8688 时间: 2006-5-13 01:31
是重复了，但如何加载这些代码呢

作者: 一点通 时间: 2006-5-13 04:17
知道重复你都不会处理?

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