aşağıdaki kodlar işinize yarayabilir?
önce formun modülüne Option Compare Database
satırının altına aşağıdaki satırı ekleyin

Dim KytOnay As Boolean

sonra formun güncellemeden önce olayını aşağıdaki gibi düzenleyin

Private Sub Form_BeforeUpdate(Cancel As Integer)

If KytOnay = False Then Me.Undo

End Sub

sonra formun geçerli olduğunda ve yüklendiğinde olaylarına

Private Sub Form_Current()

KytOnay = False

End Sub



Private Sub Form_Load()

KytOnay = False

End Sub

kaydet butonunun kodu

Private Sub KaydetButonu_Click()

KytOnay = True

Me.Dirty = False

KytOnay = False

End Sub