AccessTr.neT
Formumu Kaydetmeden Çıktığımda, Form Verdiğim Numara İle Birlikte Tabloya Kaydoluyor - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formumu Kaydetmeden Çıktığımda, Form Verdiğim Numara İle Birlikte Tabloya Kaydoluyor (/konu-formumu-kaydetmeden-ciktigimda-form-verdigim-numara-ile-birlikte-tabloya-kaydoluyor.html)

Formumu Kaydetmeden Çıktığımda, Form Verdiğim Numara İle Birlikte Tabloya Kaydoluyor - Oğuz Türkyılmaz - 13/12/2018

Merhabalar.
T_01_TeklifGiris formumda  firmayı seçip teklif kayıt numarası aldıktan sonra işlemden vazgeçersem escape ile çıktığımda formun üstündeki teklif numarası ve diğer bilgileri tabloya kaydolmadan çıkılıyor. Fakat diğer türlü kapat butonu ile çıktığımda bilgilerin tabloya kaydolduğunu görüyorum. Kaydet tuşuna basmadan çıkıldığında formumun üstündeki verilerin tabloya kayıt atmasına nasıl engel olabilirim.Teşekkürler.

[Resim: do.php?imgf=154465005289921.jpg]

Cvp: Formumu Kaydetmeden Çıktığımda, Form Verdiğim Numara İle Birlikte Tabloya Kaydoluyor - berduş - 13/12/2018

tüm butonlara ve formdan çıkış olaylarına 
if NewRecord ….
eklemek gerekebilir

Cvp: Formumu Kaydetmeden Çıktığımda, Form Verdiğim Numara İle Birlikte Tabloya Kaydoluyor - berduş - 13/12/2018

aşağıdaki kodu "F_01_TeklifGiris" formunun AfterInsert olayına ekler misiniz?
Private Sub Form_AfterInsert()

KayitKontrol = MsgBox("Teklif eklensin mi?", vbOKCancel)

    If KayitKontrol = 1 Then Exit Sub

    If KayitKontrol = 2 Then DoCmd.RunCommand acCmdDeleteRecord

End Sub


Cvp: Formumu Kaydetmeden Çıktığımda, Form Verdiğim Numara İle Birlikte Tabloya Kaydoluyor - Oğuz Türkyılmaz - 14/12/2018

(13/12/2018, 02:09)haliliyas yazdı: aşağıdaki kodu "F_01_TeklifGiris" formunun AfterInsert olayına ekler misiniz?
Private Sub Form_AfterInsert()

KayitKontrol = MsgBox("Teklif eklensin mi?", vbOKCancel)

    If KayitKontrol = 1 Then Exit Sub

    If KayitKontrol = 2 Then DoCmd.RunCommand acCmdDeleteRecord

End Sub

Teşekkür ederim halil bey sorun çözülmüştür.