14/02/2011, 17:43
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.
Not: Sorunum Konuyla Aynı Olduğu İçin Yeni Konu Açma Gereği Duymadım.
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.