Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

自定义错误提示

时 间:2007-11-23 23:06:01
作 者:李双军   ID:18  城市:温州
摘 要:自定义错误提示
正 文:

你可以用以下代码得到错误号

Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo err_handler
err_handler:
MsgBox DataErr
End Sub

再用下面的代码就可以自定义错误提示信息了,比系统自带的美观,直观

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conDuplicateKey = 3022  '3022是错误号
    Dim strMsg As String
    If DataErr = conDuplicateKey Then
        Response = acDataErrContinue
        strMsg = "商品名称不允许重复," _
               & "请重新输入商品名称!"
               Me.商品名称.SetFocus
        MsgBox strMsg, vbCritical, "提示"
    End If
End Sub
谢谢VictorDuane



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助