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

 

Guten Morgen, Knobbi,

da haben wir eine ganz vezinkte Lage:

Die Abfrage
strCurrentObjectName <> Application.CurrentObjectName
soll ja gerade verhindern, dass bei ausgeblendetem Pane das rufende Formlar ausgeblendet wird. Oder anders gesagt:
DoCmd.NavigateTo ("acNavigationCategoryObjectType")
wird ausgeführt, in
Application.CurrentObjectName
steht aber weiterhin der Name das rufenden Formulars, und völlig korrekt wird daraufhin
RunCommand acCmdWindowHide
übersprungen.

Zum Testen habe ich mein Formular aus dem Pane heraus gestartet, bis ich dann die Limitations entdeckt habe:
' Limitations: An object (form, report, query, etc) must be open and it
' cannot be the same name as the selected item in the nav pane
' or this will do nothing.
Das habe ich dann gelassen, besser geworden ist dadurch aber nichts.

Der Tipp mit dem SelectObject acMacro ist gut, ein AutoExec ist immer vorhanden.

Bitte noch zwei Tipps zum Handling: ich vermisse sowohl eine Vorschau als einen Shortcut für die Code-Brackets.

 

Servus, Knobbi,

magst Du diese Prozedur vielleicht mal bei Dir laufen lassen? Ich glaube nicht an Voodoo, meinem Access traue ich inzwischen aber nicht mehr über den Weg ;-))

Code:

Public Sub HideNavPane()

'-------------------------------------------------------------------------------------
'    Quelle: https://stackoverflow.com/questions/47475999/hiding-the-navigation-pane
'
'        This will hide the Navigation Pane.
'        It works even if a search filter is set, unlike other solutions that may
'        inadvertently close the active object.
'-------------------------------------------------------------------------------------
'    Limitations:  !!!
'        An object (form, report, query, etc) must be open and
'        it may NOT be the same name as the selected item in the nav pane
'        or this will do nothing.
'        Falls zB  die Form, die das Verriegeln (Knöpfe_zu) enthält,
'        zufällig gerade im NavPane selektiert ist, hamma den Salat.
'-------------------------------------------------------------------------------------
  
    Dim strCurrentObjectName        As String
  
    On Error GoTo HideNavPane_err
  
    If Not Application.SysCmd(acSysCmdRuntime) Then
        strCurrentObjectName = Application.CurrentObjectName
                                ' Move focus to the navigation pane/database container
        DoCmd.NavigateTo ("acNavigationCategoryObjectType")
                                ' The Navigation Pane is open and has focus.
                                ' achte auf LIMITATIONS!!!
                                                    ' Auswahl Form verhindern,
                                                    ' AutoExec ist immer vorhanden
        DoCmd.SelectObject acMacro, , True
        Debug.Print "strCurrentObjectName          "; strCurrentObjectName
        Debug.Print "Application.CurrentObjectName "; Application.CurrentObjectName
        If strCurrentObjectName <> Application.CurrentObjectName Then
            RunCommand acCmdWindowHide
        End If
    End If
HideNavPane_exit:
    Exit Sub
HideNavPane_err:
    MsgBox Err.Number & " " & Err.Description, vbExclamation, "HideNavPane"
    Resume HideNavPane_exit
End Sub

 

Es ist zum Verrücktwerden: Office runtergeschmissen, neu installiert und schon steht in
Application.CurrentObjectName der erwartete Wert.
Das hat mich jetzt zwei Tage gekostet - mein Fehler ist wohl, ich suche immer erst bei mir ;-))

Jetzt kämpfe ich wieder mal mit den Ereignissen. Das Verriegeln kann ja erst dann passieren, wenn die Startform ihren Namen in

Code:

       strCurrentObjectName = Application.CurrentObjectName

abliefert. Oder anders gesagt: Wie erfahre ich, dass die Form zu sehen ist?

Danke fürs Draufschauen, die Tipps, und Deine Geduld.

Servus

 

Hallo Ralf,

also ehrlich, soviel Aufwand mache ich mir nicht. In der Autoexec wird u.a. eine VBA Prozedur Startup() aufgerufen und in der vor dem Laden des ersten Formulars die Prozedur "ShowNavigationPane false" aufgerufen. Im Form_Close Event dann das Gegenstück "ShowNavigationPane true".

Da ich davon ausgehen, dass dein Nav-Form als erstes und letztes Formular geöffnet bzw. geschlossen wird, sollte das so funktionieren.

Gruß
Knobbi38

 

Na ja, ganz so einfach ist es nicht. Die Anwendung läuft im Vereinsheim, deshalb wird sie erstmal verrammelt und bei Bedarf über eine Hintertür (ganz luxuriös mit Kennwort) eingestiegen.

Gute Nacht