昨天学习了用打开窗体方式增加“退出系统”菜单的方法，今天学习下用运行代码方式增加“退出系统”菜单的方法，如下图：

步骤如下：

1.在main数据库中新建一模块，定义如下代码:
Function ExitSystem()
    '这里的ExitSystem就是自定义退出系统的函数名称
    If MsgBox("确认要退出系统吗？", vbInformation + vbOKCancel, "提示") = vbOK Then
        Application.Quit acQuitSaveNone
    End If
End Function

2.模块保存为“basExitSystem”

3.登录平台→打开导航菜单编辑器→添加同级节点→菜单文本命名为:退出系统→操作这里选:运行代码→函数名称填写:ExitSystem→保存，再运行左侧树控件菜单即可退出系统。