请帮忙解答docmdclose语句出错问题

pxsj

窗体就一个按钮 单击事件为:docmd.close,窗体卸载事件写了:If MsgBox("你真的要退出吗？", vbYesNo + vbQuestion, "请确认…") = vbNo Then Cancel = True.



如果退出窗体时点击确认,没有问题,点击取消报错:运行时错误'2501'这个close被取消.需要调试或者结束,请教高手这个是哪有问题了,卸载事件是以前看的某位网友提供的语句,不记得在哪看见的了.请帮忙找个办法,我需要在窗体退出时能够选择确定或者取消.谢谢.

pxsj

自己顶下 还请帮帮忙.谢谢.

pxsj

高手们帮忙看下阿，这个应该不是很难吧？

pxsj

求助阿，请帮忙解答下啦。

sgrshh29

on error resume next

andymark

直接在按钮事件就行啦

Private Sub Command0_Click()
If MsgBox("你真的要退出吗？", vbYesNo + vbQuestion, "请确认…") = vbYes Then
DoCmd.Close acForm, Me.Name
End If
End Sub

nylgwsf9

应该是少一个else语句

If MsgBox("你真的要退出吗？", vbYesNo + vbQuestion, "请确认…") = vbYes Then
Cancel=False

else

Cancel=True


End If

[此贴子已经被作者于2006-10-30 14:45:29编辑过]

pxsj

非常感谢各位的帮助，经测试，最终把andymark版主的代码写入模块，在按钮调用，感觉是最适合我使用的，谢谢版主和大家的帮助。