[求助]高手人都在哪里啊？如何关闭ACCESS的错误提示

rgb5454

在使用窗体输入数据的时候，如果主键有重复，或者没有写，它会跳出错误提示？如何关闭ACCESS的错误提示，而采用自己写的？

wanshan

给你想了一个变通的办法，看看能否用上：

Private Sub Form_Error(DataErr As Integer, Response As Integer) '出错事件
MsgBox "您输入的内容不符合要求。"      '自定义提示对话框
SendKeys "{esc}"     '模拟按下ESC键，取消系统提示对话框
SendKeys "{esc}"     '模拟按下ESC键，取消错误输入的内容
End Sub

红尘如烟

在窗体的出错事件中可以自定义错误提示，如下面的就是将主键重复时的系统提示换成自定义的提示：

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 3022
    Response = 2
    MsgBox "主键或索引不能重复哟！",,"自定义提示"
End Select
End Sub