Access快速开发平台--自定义错误提示消息盒的方法之一；自定义MsgBoxEx消息盒使用方法；自定义消息盒；自定义提示信息；自定义系统提示；自定义出错提示

来源:www.accessoft.com 点击数:3536 　 | 收藏 | 复制

时　间:2023-01-05 11:54:49
作　者:福哥 ID：1784 城市：成都
摘　要:Access快速开发平台--自定义错误提示消息盒的方法之一。
正　文:

一、学员问题描述：
定制班:上海--丁先生-150期 07:52:53
老师，Access快速开发平台里面我想把这个报错提示变成我自已定义的内容，应该怎么修改代码？如下图：

这是保存按钮单击事件，是不是修改这里？如下图：

二、解决方法：

On Error GoTo ErrorHandler——是出错时，执行跳转到箭头所示的位置，可以使用单步调试，观察语句的顺序情况，然后再根据需要进行修改。可以改成下面的样子代码，就可以变成自己定义的错误提示消息盒了，如下图：

代码如下：

ErrorHandler:
    '其它代码忽略
    If Err.Number = -2147217873 Then    '添加的代码
        MsgBoxEx "我需要自定义的错误提示信息", vbCritical    '添加的代码
    Else    '添加的代码
        MsgBoxEx Err.Description, vbCritical
    End If    '添加的代码
    Resume ExitHere
End Sub