您的位置：　首页 > 技术文章 > 综合其它

如何用我自己的错误提示替换access的默认提示？

来源:Access软件网 点击数:11189 　 | 收藏 | 复制

时　间:2006-06-29 00:00:00
作　者:UMVsoft整理 ID：8 城市：上海 QQ：2851379730
摘　要:如何用我自己的错误提示替换ACCESS的默认提示？
正　文:

问题：

ACCESS 里面绑定窗体的错误提示不是很友好，总是看不懂它在说什么。
图片如下：

图片如下：

就像上面这样的错误提示，普通用户根本看不懂。

回答：

ACCESS 窗体上有“出错”事件，只要先定义这个事件的 Response 参数为 acDataErrContinue 就可以不显示系统错误提示，然后根据另一个参数 DataErr 的数值用 SELECT CASE 判断一下就可以用自己的 MSGBOX 替换上去。

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
    Case 3022
        Response = acDataErrDisplay
        MsgBox "无法保存，您的输入由重复值，请仔细核对！"
    Case 2169
        Response = acDataErrContinue
        MsgBox "可能是因为您的修改违反了设定的规则（比如不允许重复输入、不允许空着不输等）而无法保存当前的记录。"
    Case 3314
        Response = acDataErrContinue
        MsgBox "无法保存。有些字段必须要填写，您忘记填写了，请核对"
    Case Else
        Response = acDataErrDisplay
        Debug.Print DataErr
    End select
End sub