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.