有时,需要根据用户根据提示信息的选择,来执行不同的代码,这时就需要用到MsgBox函数。
例如:当我们需要退出系统时,需要提示操作员是否需要退出,具体示例代码如下:
If MsgBox("您是否退出系统?", vbOKCancel + vbInformation, "提示") = vbOK Then '退出系统 DoCmd.Quit Else '打开登录窗体 DoCmd.OpenForm "usysfrmLogin" End If