Kod:
C = MsgBox("Programı Kapatmak İstiyor musunuz?", vbYesNo + vbCritical, "www.accesstr.net")
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