＃如何替换这对用户莫名奇妙的提示？＃

zhengjialon

呵呵，eio小姐，这下有用了吧？

eio

您怎样知道是3022的？

zhengjialon

用MSBOX试一下就知道了呗！

eio

是否
Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo 11
Exit Sub
11:
If Err.Number = 3022 Then
End If
End Sub

binbow_z

在数据更新前检测一下，如果重复，则提示重复使用不就完了，用dlookup很简单
出错的原因是在设置了无重复安段（在表中有索引可重复不可重复）上试图写入一个重复值导致系统提示错误
数据更新前检测在精品推荐上有我做的例子