![](/file/23459/chip_04_2004.iso/images/spacing.gif) |
Shortcut [Alt]+[F4] ignorieren
Um eine Access-Datenbankanwendung nur noch über das bereitgestellte Menü zu beenden und nicht mehr über [Alt]+[F4], legen Sie ein neues Modul an. Tragen Sie dazu zwei Zeilen in den Deklarationsbereich ein: Option Explicit Global AllowQuit As Integer Anschließend legen Sie ein neues, ungebundenes Formular an. Öffnen Sie über Ansicht - Eigenschaften das entsprechende Fenster. Als Formularereignis wählen Sie Beim Öffnen und klicken auf den Button mit den drei Punkten rechts neben dem Eingabefeld. Öffnen Sie den Code-Editor. Sie befinden sich nun in der Ereignis- prozedur, die mit dem Ereignis Beim Öffnen gestartet wird. Zwischen den Zeilen Sub Form_Open (Cancel As Integer) und End Sub fügen Sie die folgende Zeile ein: AllowQuit = False In die Ereignisprozedur des Formularereignisses Bei Entladen tragen Sie die folgenden drei Zeilen ein: If AllowQuit <> True Then cancel = True End If Schließen Sie das Formular und speichern Sie es unter dem Namen PreventQuit. In Ihr Autoexec-Makro fügen Sie eine weitere Befehlszeile ein, um das Formular PreventQuit mit dem Befehl ÖffnenFormular und dem Fenstermodus Ausgeblendet zu öffnen. Um Ihre Anwendung schließen zu können, ergänzen Sie die Er- eignisprozedur für das Ereignis Beim Klicken eines Buttons um die Anweisungen: AllowQuit = True DoCmd Quit
|
![](/file/23459/chip_04_2004.iso/images/spacing.gif) |