[5分]关于错误提示“在不使用AddNew或Edit的情况下更新或取消更新”的疑问

在快速平台下做采购订单是时，如果在已经做好的数量行里面更改内容（比如：删除第4行物料编号，重新添加一个新物料）就会出现如下图的错误提示，

查询网站后得知，错误是因为将 Me.Dirty=False 注释掉了，

于是改过来，现在问题解决了，但是又出现新的问题了，之前做的数据重复时提示，现在变成了代码错误，之前应该提示

不再提示物料重复了。而是出现发如下图的错误提示。

相关代码如下，望大家看下是哪里出问题了。谢谢。

-----------------------------------------------------------------------------------------------

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    On Error Resume Next
    Const conDuplicateKey = 3022
    Dim strMsg As String
 If DataErr = conDuplicateKey Then
        Response = acDataErrContinue
        strMsg = "物料编码不允许重复，请重新选择！"
        Me.物料ID.SetFocus
        '  Debug.Print Me.物料ID
        Me.物料ID = Null
        '      Debug.Print Me.物料ID
        MsgBox strMsg, vbCritical, "提示"
  End If
End Sub

Private Sub 物料ID_AfterUpdate()
  Me.Dirty = False
    Me.物料名称 = Me.物料ID.Column(2)    '2代表第3列，下同
    Me.物料规格 = Me.物料ID.Column(3)
    Me.单位 = Me.物料ID.Column(4)
    Me.单价 = Me.物料ID.Column(6)
    Me.数量.SetFocus
  '    Me.Dirty = False
End Sub