Private Sub Form_Error(DataErr As Integer, Response As Integer) '出错事件
MsgBox "您输入的内容不符合要求。" '自定义提示对话框
SendKeys "{esc}" '模拟按下ESC键,取消系统提示对话框
SendKeys "{esc}" '模拟按下ESC键,取消错误输入的内容
End Sub 作者: 红尘如烟 时间: 2007-5-13 04:55
在窗体的出错事件中可以自定义错误提示,如下面的就是将主键重复时的系统提示换成自定义的提示:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 3022
Response = 2
MsgBox "主键或索引不能重复哟!",,"自定义提示"
End Select
End Sub