怎么自定义错误提示，弹出 2427，您输入的表达式没有数值。

天地　发表于：2013-06-08 14:04:35 　

下面是网站里找到的代码，但是把数值换进去2427，仍然和原来提示一样。请问这个怎么改。是加在窗体属性事件的错误里的

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

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

Top

cspa 发表于：2013-06-08 14:44:44

strMsg 的内容要按你需要的内容改写啊兄弟。比如：

把 strMsg = "商品名称不允许重复，" _
& "请重新输入商品名称！"
改为：

strMsg = "系统温馨提示，" _
& "你的提示内容！"

Top

天地发表于：2013-06-08 16:53:48

不是说提醒的内容，是根本没弹出这个，加进去后还是提示错误2427.问题是怎么替换原来系统弹出的错误号。这个没起作用。

Top

殷小宝发表于：2013-06-08 23:49:28

Const conBlankKey = 2427
    Dim strMsg As String
    If DataErr =Const conBlankKey Then
        Response = acDataErrContinue
        strMsg = "控件值为空，" _
               & "请输入！"
               Me.商品名称.SetFocus
        MsgBox strMsg, vbCritical, "提示"
    End If

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

怎么自定义错误提示，弹出 2427，您输入的表达式没有数值。