Access开发平台--关闭系统\退出平台\注销平台前增加确认提醒消息框功能

时　间:2017-06-12 08:16:04
作　者:杜超   ID：16058  城市：江阴
摘　要:有时会不小心点到右上角关闭按钮，系统就会直接退出，非常不友好，那如何增加确认提醒功能呢，方法如下图
正　文:

附   件:

点击下载此示例

方法：

在SysfrmMain卸载事件中加如下代码：
    If Not blExit Then
        If MsgBoxEx("确定要退出吗？", vbQuestion + vbYesNo) = vbNo Then
            Cancel = True
            Exit Sub
        End If
    End If
    blExit = False

在任意一个模块加如下代码
Public blExit As Boolean

Public Function ALogoutRDP()
    If MsgBoxEx("确定要注销吗？", vbQuestion + vbYesNo) = vbNo Then
        Exit Function
    End If
    blExit = True
   Call LogoutRDP
End Function

最后在导航菜单编辑器-注销菜单-操作函数改为ALogOutRDP