7,789
社区成员
发帖
与我相关
我的任务
分享怎么让form_load出错时关掉该窗体？
我用的方法是
菜单的click事件写
load frmreport
frmreport.show
在窗口的load事件中
on error goto loaderr
...
...
...
LoadErr:
msgbox "装载窗口出错"
unload Me
但是会接着执行load frmreport
报对象已卸载
菜单的click事件写
load frmreport
frmreport.show
在窗口的load事件中
on error goto loaderr
...
...
...
LoadErr:
msgbox "装载窗口出错"
unload Me
但是会接着执行load frmreport
报对象已卸载
...全文
请发表友善的回复…
发表回复
of123 2003-08-14
- 打赏
- 举报
加一个窗体级的变量
Dim Failed As Boolean
在窗口的load事件中
on error goto loaderr
...
...
...
LoadErr:
msgbox "装载窗口出错"
Failed = True
在窗口的Activate事件中
If Failed Then Unload Me
Dim Failed As Boolean
在窗口的load事件中
on error goto loaderr
...
...
...
LoadErr:
msgbox "装载窗口出错"
Failed = True
在窗口的Activate事件中
If Failed Then Unload Me
lbhqu 2003-08-14
- 打赏
- 举报
改成me.hide试试
chao778899 2003-08-14
- 打赏
- 举报
在窗体的ACTIVATE事件里判断是否加载就行了
chao778899 2003-08-14
- 打赏
- 举报
加载的过程已经卸载了，当然报对象已卸载了
viena 2003-08-14
- 打赏
- 举报
不知道、不明白
viena 2003-08-14
- 打赏
- 举报
unload me不可以写在load里面吧
jonason6 2003-08-14
- 打赏
- 举报
viena(晓琴):exit sub 当然写了，我现在就是假设load 时会发生错误，要执行LoadErr，然后关闭窗口，问题是在unload me时报错
jonason6 2003-08-14
- 打赏
- 举报
viena(晓琴):exit sub 当然写了，我现在不是要执行LoadErr，然后关闭窗口，问题是在unload me时报错
jonason6 2003-08-14
- 打赏
- 举报
对，我是写在frmreport的load事件里，但是在
LoadErr:
unload me
后，在菜单的click事件里 load frmreport这一行会报错，说对象已卸载
LoadErr:
unload me
后，在菜单的click事件里 load frmreport这一行会报错，说对象已卸载
viena 2003-08-14
- 打赏
- 举报
LoadErr是在load事件中的吗？那你在LoadErr前面有没有写exit sub呢，如果没有写，当然会接着执行LoadErr了，不管是否有错
射天狼 2003-08-14
- 打赏
- 举报
错误处理应该在frmreport的load事件里写.如果出错,则关闭该窗口
jonason6 2003-08-14
- 打赏
- 举报
还是不行啊
yzxlyl 2003-08-14
- 打赏
- 举报
on error resume next
load frmreport
frmreport.show
这种效果是你要的
load frmreport
frmreport.show
这种效果是你要的
xayzmb 2003-08-14
- 打赏
- 举报
把这句去掉
load frmreport
load frmreport
jonason6 2003-08-14
- 打赏
- 举报
不是在执行frmreport.show时报错，而是在load frmreport时
而且我用了全局变量也没有用
而且我用了全局变量也没有用
二师兄的老公 2003-08-14
- 打赏
- 举报
同意。
yzxlyl 2003-08-14
- 打赏
- 举报
加个全局变量标志一下，在frmreport.show前判断一下要不要执行
