Navigationsbereich per VBA ein- und ausblenden

Bild 1: Verschiedene Status des Navigationsbereichs: Eingeblendet, minimiert und ausgeblendet

Im Normalbetrieb kann man den Navigationsbereich schnell durch einen Klick auf die Nach links-Schaltfläche oben in diesem Bereich minimieren und anschließend wieder maximieren. Das gelingt auch mit der Taste F11. Was aber, wenn man den Bereich komplett verschwinden lassen möchte – beispielsweise direkt nach dem Öffnen einer Anwendung, die man einem Kunden oder anderen Nutzern bereitstellt, die den Navigationsbereich nicht sehen sollen? Dann kommt die in diesem Beitrag vorgestellte VBA-Prozedur zum Einsatz, mit der wir den Navigationsbereich mit wenigen Zeilen aus- und wieder einblenden.

Drei mögliche Zustände des Navigationsbereichs sehen wir in Bild 1. Links sehen wir den Normalzustand, in dem der Bereich sichtbar ist und die enthaltenen Elemente anzeigt. In der Mitte haben wir den Bereich durch einen Klick auf die Nach links-Schaltfläche minimiert. Das gelingt auch durch Betätigen der F11-Taste. Rechts ist der gewünschte Zustand, den wir per VBA herbeiführen wollen.

Bild 1: Verschiedene Status des Navigationsbereichs: Eingeblendet, minimiert und ausgeblendet

Um den Navigationsbereich komplett auszublenden, verwenden wir die folgende Prozedur:

Public Sub HideNavigationPane()
     On Error Resume Next
     DoCmd.SelectObject acTable, , True
     DoCmd.SelectObject acQuery, , True
     DoCmd.SelectObject acForm, , True
     DoCmd.SelectObject acReport, , True
     DoCmd.SelectObject acMacro, , True
     DoCmd.SelectObject acModule, , True
     DoCmd.RunCommand acCmdWindowHide
End Sub

Username or Email

Passwort

Angemeldet bleiben