Uygulama sonucunda yine otomatik kayıt yapıyor,ve sizin koda benzer bir kod da varonda da aynı şey oluyor.
Kod
Private Sub Form_BeforeUpdate(Cancel As Integer)
' formda yanlışlıkla bir veri üzerinde değişiklik yapmayalım diye
' değişiklik durumunda onay alıyoruz.
If NewRecord = False Then
If MsgBox("Yapılan Değişiklikler kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End If
'Buda Yeni kayıt yaptığınız da size işlem onayı için soracaktır
If NewRecord = True Then
If MsgBox("Yapılan Değişiklikler kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End If
End Sub
bu hocam.
Saygılarımla.
