アクセスフォームVBA：保存時に二重レコード

Question

私のアクセスフォームにSaveボタンがあります。その目的はtableData Processing Listという新しいレコードを追加することです。

問題は、ボタンを押すと、入力されたレコードがテーブルに2回保存されることです。つまり、2つの同一のレコードです。

コードは本当に簡単ですので、私は、理由を理解することはできません。

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」でレコードを保存しようとすると、これは一例です。

Answer 1

あなたは二回保存されています

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