如何打开一个窗体时自动关闭另一个已打开的窗体

ssh8688 · 发表于 2006-5-13 00:08:00

如何打开一个窗体时自动关闭另一个已打开的窗体？我找到了如下代码，但我的打开事件中已经有了一个过程，再把它加进去，系统提示重定义，该如何解决？

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:00

只这段代码又看不出问题

那你不要重定义好啦

ssh8688 · 发表于 2006-5-13 00:27:00

如何重定义？我说的是“Private Sub Form_Open(Cancel As Integer) ”这个重定义错误

一点通 · 发表于 2006-5-13 00:56:00

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:00

代码没问题,可以执行,请检查代码是否2次Form_Open事件,或把代码COPY到Form_Load测试一下

ssh8688 · 发表于 2006-5-13 01:31:00

是重复了，但如何加载这些代码呢

一点通 · 发表于 2006-5-13 04:17:00

知道重复你都不会处理?

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 如何打开一个窗体时自动关闭另一个已打开的窗体

群介绍
主题无相 (随机显示版	同地区群块其他地区)