ACCESS主菜单关闭退出系统提示问题（已解决）

liuqi67

我的主窗体上定义了两个退出系统方式，一个是文本标签，一个是按钮，并设置了退出系统提示对话框，但点击ACCESS主菜单“X”就直接关闭退出系统了，我在窗体卸载事件下写了如下代码可以使用，但遇到的问题是主窗体上的两个退出按钮点击执行都会触发这个窗体卸载事件，即会调出两个退出系统提示对话框，如何写一个公共调用退出系统的模块或其他方式解决？望各位大佬指点，谢谢了！
Private Sub Form_Unload(Cancel As Integer)
     If MsgBox("确定要退出系统吗？", vbQuestion + vbYesNo, "系统提示") = vbYes Then
         DoCmd.Quit acQuitSaveAll        
     Else
         Cancel = True
     End If
End Sub

tmtony

关闭按钮只写一句
docmd.close acform,me.name
即可
它关闭时会自动调用Form unload 事件中的代码

liuqi67

非常感谢站长及时指导，问题已解决！

只是在这个按钮上要加错误处理代码，当选择取消或否时会报错提示这个Close操作被取消