访问表单VBA：保存时双重记录答案

【问题标题】：Access Form VBA: double record when saving访问表单VBA：保存时双重记录
【发布时间】：2020-07-13 19:10:05
【问题描述】：

在我的访问表单中，我有一个 Save 按钮，其目的是将新记录添加到名为 Data Processing List 的 table。

问题是按下按钮，输入的记录被保存到表中两次。我的意思是，两条相同的记录。

我不明白为什么，因为代码真的很简单：

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

这是一个示例，当我尝试使用单词“prova”保存记录时。

【问题讨论】：

标签： ms-access vba

【解决方案1】：

您节省了两次：

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

【讨论】：