Datenbank schließen mit Rückfrage

Rückfrage vor dem Beenden

Ein Beispiel für den Einsatz dieser Funktion ist die Rückfrage, ob ein Benutzer die Anwendung wirklich schließen möchte. Falls nein, stellen Sie den Parameter Cancel der Ereignisprozedur Form_Unload auf True ein. Damit unterbinden Sie das Schließen des Formulars, und infolgedessen wird auch die Anwendung nicht geschlossen. Die passende Ereignisprozedur finden Sie in Listing 2.

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Wirklich beenden?", vbYesNo) = vbNo Then
Cancel = True
End If
End Sub

Fazit

Ein Problem bei dieser Vorgehensweise besteht darin, dass die Routine aus Listing 2 beim Aufrufen nicht weiß, ob tatsächlich das Beenden der Datenbank das Entladen des Formulars ausgelöst hat oder ob der Benutzer vielleicht irgendwie das Formular schließt.

Es gibt allerdings alternative Möglichkeiten, die ich Ihnen nicht vorenthalten will. Mehr dazu lesen Sie im Beitrag „Subclassing mit Access“.