你可以用以下代码得到错误号
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