自定义错误提示

时　间: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