Update Or Cancelupdate Without Addnew Or Edit

[Thomasso]

Hi all,

I am dealing with this error when I try to edit data in my Access form:
Update Or Cancelupdate Without Addnew Or Edit



The weird part is that the error doesn't happen every time. It seems completely random to me and my colleagues. I can edit the form 2 times and when I try to edit one more time, this error pops.

Please see the attached screenshots:


This is the VBA code behind the form:

Option Compare Database

Private Sub KontaktRelOsobaDatum_AfterUpdate()
    Me.Aktualizace = Date
End Sub

Private Sub ObecnyFollowUpDatum_AfterUpdate()
    Me.Aktualizace = Date
End Sub

Private Sub ObecnyKontaktDatum_AfterUpdate()
    Me.Aktualizace = Date
End Sub

Private Sub Prubeh_AfterUpdate()
    Me.Aktualizace = Date
End Sub

Private Sub Příkaz43_Click() 'ulozit
    If IsNull(NazevFirmy) Then
        MsgBox ("Musíte zadat název firmy.")
    Else
        DoCmd.Close acForm, "frmDEObchodniTrychtyr", acSaveYes
        DoCmd.OpenForm "frmObchodniTrychtyr"
    End If
End Sub

Private Sub Příkaz54_Click() 'zrusit

    Me.Undo
    DoCmd.Close acForm, "frmDEObchodniTrychtyr", acSaveNo
    DoCmd.OpenForm "frmObchodniTrychtyr"
        
End Sub

Private Sub RelOsobaFollowUpDatum_AfterUpdate()
    Me.Aktualizace = Date
End Sub

Private Sub Ukol_AfterUpdate()
    Me.Aktualizace = Date
End Sub

I would appreciate any advice.

Tomas

[Gicu]

Try to remove all lines with Me.Aktualizace = Date and just add it to the BeforeUpdate event of the form itself (I assume it is a time stamp to show when record was updated).

Cheers,

[ssanfu]

Be aware that,

Private Sub Príkaz43_Click()    'ulozit
    If IsNull(NazevFirmy) Then
        MsgBox ("Musíte zadat název firmy.")
    Else
        DoCmd.Close acForm, "frmDEObchodniTrychtyr", acSaveYes
        DoCmd.OpenForm "frmObchodniTrychtyr"
    End If
End Sub

the "acSaveYes" does NOT save the data, it is asking if you want to save changes to the DESIGN of the object (in this case a Form). The data is automatically saved.

So you do not need it in the command .... Use

DoCmd.Close acForm, "frmDEObchodniTrychtyr"

Same goes for the close command in

Private Sub Príkaz54_Click() 'zrusit

    Me.Undo
    DoCmd.Close acForm, "frmDEObchodniTrychtyr", acSaveNo
    DoCmd.OpenForm "frmObchodniTrychtyr"
        
End Sub

[Thomasso]

Try to remove all lines with Me.Aktualizace = Date and just add it to the BeforeUpdate event of the form itself (I assume it is a time stamp to show when record was updated).

Cheers,

Thanks. The error was actually caused by the line:
Me.Aktualizace = Date

I tried to delete the lines completely but it didn't solve the issue unfortunately.