Kontrollü çıkış için;
uygulamadan çıkış butonunun tıklatıldığında olay yordamına aşağıdaki kodu yazın.

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