AccessTr.neT

Tam Versiyon: Şartlı,kaydet-sil-ekle Komut İşlemi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayın Ozan Hocam,

Malum Yiğit İlaçlama çalışmasını bitirmiş bulunmaktayım,son olarak yapılan işlemin Kaydet,Sil,Ekle işlemlerinde tüm yetkinin kullanıcıya verilmesi.Bu husuda bir çok örnek inceledim ama olmadı.
Örnek olarak işlem kayıt edilsinmi Msg.uyarısına hayır dememe rağmen yinede kayıt yapıyor,bu husuda bir kod örneği verebilirmisiniz.
Saygılarımla.
if msgbox("Değişiklikler Kaydedilsin mi?", vbyesno, "KAYDET") = vbyes then
   
'Kaydet Kodu

else

   me.undo

end if
Sayın Ozan hocam,

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.
If Me.Dirty = True Then

   If MsgBox("Yapılan Değişiklikler kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then
   Me.Undo
   End If

End If