Office: (Office 2019) Hide Navigation Pane

Liebe ExpertInnen,

' Quelle: Hiding the navigation pane

Dim strCurrentObjectName As String

strCurrentObjectName = Application.CurrentObjectName

' Move focus to the navigation pane/database container
DoCmd.NavigateTo ("acNavigationCategoryObjectType")
' The Navigation Pane is open and has focus.
DoCmd.SelectObject acQuery, vbNullString, True
If strCurrentObjectName <> Application.CurrentObjectName then
RunCommand acCmdWindowHide
End If

sieht gut aus, läuft aber nicht (ist so 1000mal im www zu finden).
Problem: Anstatt des Navigation Pane wird das aktuelle Formular ausgeblendet. Dessen Name steht in strCurrentObjectName, aber ebenso in Application.CurrentObjectName, wo ich den Namen des NavPane erwartet hätte, sodass die Anweisung RunCommand acCmdWindowHide nicht ausgeführt wird.

Die Anweisung DoCmd.SelectObject acQuery, vbNullString, True hatte ich mal testweise eingebaut in der Hoffnung, dass so das Pane aktiviert wird. Schlecht ausgedrückt, aktiviert wird es, das ist an der selektierten Query zu erkennen, es wird aber kein ObjectName des NavPane geliefert.

btw: Gibt es hier keine Code-Brackets?

Kann das an Windows 11 liegen? Oder gibt es in Access eine geheime Option, die den Ablauf verhindert?

Dank & Gruß
Ralf

 

Hallo Ralf,

wenn das aktuelle Formular ausgeblendet wird, dann trifft die Bedingung

Code:

strCurrentObjectName <> Application.CurrentObjectName

wohl zu. Hast du dir die Angaben mal im Direktfenster ausgeben lassen?

Hier die Version, welche ich verwende:

Code:

Public Sub ShowNavigationPane(ByVal Visible As Boolean)

 On Error GoTo ShowNavigationPane_Err

  If Not Application.SysCmd(acSysCmdRuntime) Then
    If Not Visible Then
      DoCmd.NavigateTo "acNavigationCategoryObjectType"
      Application.RunCommand acCmdWindowHide
    Else
      DoCmd.SelectObject acMacro, , True
    End If
  End If
   
ShowNavigationPane_End:
   Exit Sub
 
ShowNavigationPane_Err:
' Todo: 
ErrorMessage 
  Resume ShowNavigationPane_End
End Sub

Ich selektiere hierbei zum Einblenden bewusst im Pane die Kategorie "Makros", weil bei mir immer mindestens eins vorhanden ist (AutoExec, AutoKeys). Man könnte aber auch eine andere Kategorie selektieren.
Ein passende Fehlermeldung musst du allerdings noch selber ergänzen.

Gruß
Knobbi38