自定义错误提示-李双军
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


自定义错误提示

发表时间:2007/11/23 23:06:01 评论(0) 浏览(9367)  评论 | 加入收藏 | 复制
   
摘 要:自定义错误提示
正 文:

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

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群(群号:198465573)
 
 相关文章
如何用我自己的错误提示替换access的默认提示?  【UMVsoft整理  2006/6/29】
如何取消操作查询的警告提示\DoCmd.SetWarnings F...  【t小雨  2009/11/26】
自定义Msgbox信息自动换行  【纵云梯  2012/2/10】
如何取消操作查询的警告提示?Access去除查询提示框的方法-Do...  【杜超-2号  2013/8/24】
用自己的错误提示替换access的默认提示例子  【杜超-2号  2014/1/11】
常见问答
技术分类
相关资源
文章搜索
关于作者

李双军

文章分类

文章存档

友情链接