Ms access 访问表单VBA：保存时重复记录

在我的访问表单中，我有一个

保存

按钮，其目的是将新记录添加到名为

数据处理列表

的

表

问题是按下按钮，输入的记录会保存到表中两次。我是说，两张相同的唱片

我不明白为什么，因为代码非常简单：

Private Sub Save_Click()
On Error GoTo Save_Click_Err

    Me.Today.SetFocus

    On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If

    With CurrentDb.OpenRecordset("Data Processing List")
        .AddNew
        !Department = Me.Department.Value
        .Update
    End With

Save_Click_Exit:
    Exit Sub

Save_Click_Err:
    MsgBox Error$
    Resume Save_Click_Exit

End Sub

Private Sub Save\u Click（）
出错时转到保存\u单击\u错误
我，今天，集中注意力
出错时继续下一步
DoCmd.RunCommand acCmdSaveRecord
如果（宏错误0），则
嘟嘟声
MsgBox宏错误。说明，vbOKOnly，“”
如果结束
使用CurrentDb.OpenRecordset（“数据处理列表”）
.AddNew
!Department=Me.Department.Value
.更新
以
保存\单击\退出：
出口接头
保存\u单击\u错误：
MsgBox错误$
继续保存\u单击\u退出
端接头

这是我试图用“prova”一词保存记录的一个例子。 您要保存两次：

DoCmd.RunCommand **acCmdSaveRecord**
...
With CurrentDb.OpenRecordset("Data Processing List")
    .AddNew
    !Department = Me.Department.Value
    .**Update**
End With

您正在保存两次：

DoCmd.RunCommand **acCmdSaveRecord**
...
With CurrentDb.OpenRecordset("Data Processing List")
    .AddNew
    !Department = Me.Department.Value
    .**Update**
End With