AccessTr.neT

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

fascioğlu

ozanakkaya

fascioğlu

ozanakkaya