Kapat Butonu Yeni Kayıt Sorunu

Formda Kapat Butonu Var,Kapatılsınmı-Kapatılmasın mı Diye Soruyor.Kapatılmasın Dediğimde Boş Bir Kayıt Oluşturuyor.Kontrol Edebilirseniz Sevinirim.İyi Çalışmalar.

Private Sub s5_Click()

c = MsgBox("Programı Kapatmak İstiyor musunuz?", vbYesNo + vbCritical, "Kargo")

Undo

SendKeys "{esc}", True

If c = vbNo Then

Cancel = True

ElseIf c = vbYes Then

Dim msg As String

DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes

Application.CommandBars.FindControl

DoCmd.Quit

End If

End Sub

Not: Sorunum Konuyla Aynı Olduğu İçin Yeni Konu Açma Gereği Duymadım.

Kodu formda uyguladım, herhangi bir sorun görünmüyor. Butonun bulunduğu formu ekleyiniz.

Sn.sledgeab Örneği Ekledim.Programı Kapat Deyip Hayır Dediğinizde ID Alanının Arttığını Görebilirsiniz.İyi Çalışmalar.

olay buradan kaynaklanıyor.

Private Sub Form_Timer()
düzenlemesaati = Time
End Sub

bu kodu

Private Sub Form_Dirty(Cancel As Integer)
düzenlemesaati = Time
End Sub

kısmına yazınız. timer olayını tamamen kaldırınız.

Sn.Yandemir Söylediğiniz Kodu Uyguladım Ancak Sorun Halen Devam Ediyor Maalesef.İyi Çalışmalar.Teşekkürler

sayfan açıldığı anda (otomatik numara) yazan alan id alıyor. bir tuşa bastığında id alması gerekli ki komut sağlıklı çalışabilsin.