Office中国论坛/Access中国论坛

标题: ACCESS主菜单关闭退出系统提示问题（已解决） [打印本页]

作者: liuqi67 时间: 2017-7-21 14:44
标题: ACCESS主菜单关闭退出系统提示问题（已解决）
本帖最后由 liuqi67 于 2017-7-21 18:05 编辑

我的主窗体上定义了两个退出系统方式，一个是文本标签，一个是按钮，并设置了退出系统提示对话框，但点击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 时间: 2017-7-21 14:50
关闭按钮只写一句
docmd.close acform,me.name
即可
它关闭时会自动调用Form unload 事件中的代码

作者: liuqi67 时间: 2017-7-21 18:04
非常感谢站长及时指导，问题已解决！

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

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