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.