저장 양식 VBA : 저장시 이중 레코드

Question

내 액세스 양식에 Save 버튼이 있습니다. tableData Processing List이라는 새 레코드를 추가하는 것이 목표입니다.

문제는 버튼을 누르면 입력 된 레코드가 테이블에 두 번 저장된다는 것입니다. 두 개의 동일한 기록이 있습니다. 나는 단어 "PROVA"로 레코드를 저장하려고 할 때

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 

이것은 예입니다

내가 왜 코드가 정말 간단하기 때문에 이해할 수 없습니다.

Answer 1

당신은 두 번 저장됩니다

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