编辑窗体,当修改TMP_采购订单明细表品号更换时,出错

 在窗体的编辑代码中加入这行代码：me.dirty=false   品号更新后事件

Private Sub PRD_NO_AfterUpdate() '品号更新后事件
'Me.Dirty = False '允许更新
Me!prd_name = Me!prd_no.Column(1)
Me!wh = Me!prd_no.Column(2)
Me!ut = Me!prd_no.Column(3)
Me!up = Me!prd_no.Column(4)
Me!tax = Me!prd_no.Column(5)
Me!qty.SetFocus
Me.Dirty = False '允许更新
End Sub

Private Sub Form_Error(DataErr As Integer, Response As Integer) '窗体出错事件
      '临时表PRD_NO设置索引:无重复值
        Const conDuplicateKey = 3022
        Dim strMsg As String
        Debug.Print DataErr
        If DataErr = conDuplicateKey Then
            Response = acDataErrContinue
            strMsg = "产品编码不允许重复，请重新选择！"
            Me.prd_no.SetFocus
            MsgBox strMsg, vbCritical, "提示"
            Me.prd_no = Null
        End If
End Sub