一、学员问题描述:
定制班:上海--丁先生-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