Beitrag aus SmartTools Access Weekly
Alle Access-Formulare bis auf eines schließen
Access 365 2024 2021 2019 2016 2013 2010
FRAGE Über ein Formular "Hauptmenü" wird meine Access-Anwendung gesteuert. Es sind manchmal bis zu 7 Formulare zur gleichen Zeit geöffnet, bis man zu einem bestimmten Ergebnis gelangt. Damit die Übersicht nicht verloren geht, möchte den Anwendern in jedem geöffneten Formular eine Schaltfläche anbieten, über die alle Formulare außer dem Formular "Hauptmenü" in einem einzigen Schritt geschlossen werden können.
Diverse Anfragen
ANTWORT Dazu nutzen Sie in den Ereignisprozeduren "Beim Klicken" der Schaltflächen folgende Anweisungen:
Dim F As Form
For Each F in Forms
If F.Name <> "Hauptmenü" Then
DoCmd.Close acForm, F.Name
End If
Next
In einer Schleife werden alle geöffneten Formulare (Auflistung "Forms") durchlaufen. Für jedes Formular erfolgt eine Prüfung auf den Namen. Ist er ungleich "Hauptmenü", wird das jeweilige Formular geschlossen, so dass am Ende nur noch das "Hauptmenü" geöffnet ist.