Office: (Office 2010) Navigationsleiste per VBA ausblenden

Moinsen,

gibt es einen VBA befehl mit dem ich die Navigationsleiste (links, die mit den Objekten *mrcool ) aus- und einblenden kann?

tx 4 info

:)

 

Hey,

bei 2007 geht das so

Code:

Versuch mal sollte auch mit 2010 gehen

Holger

 

Hallo!

die letzten beiden Zeilen sind aureichend.
Und ja - das funktioniert auch inter Access 2010. *wink.gif*

CU

 

Merci vielmals, hat geklappt!

 

Hallo,

ich hätte eine Frage: wenn ich den Navibereich wieder einschalten will

--> wie mache ich das ? Mit AcCmdWindoeUnhide ??

DoCmd.NavigateTo "acNavigationCategoryObjectType", _
"acNavigationGroupTables"
DoCmd.SelectObject acTable, vbNullString, True
DoCmd.RunCommand acCmdWindowHide

Danke dir
Gruss
Franz

 

[gelöscht]

 

Servus EKAB,
Code:

 

Schönen guten Tag,
ich bin auf diesen Thread gestoßen, weil ich genau diese "Problemstellung" habe:
In einem Formular habe ich derzeit einen Button, der die Navigationsleiste ausblendet.
Dieser Code liegt dahinter:

Code:

Private Sub cmdNavi_Click()
DoCmd.SelectObject acTable, vbNullString, True
DoCmd.RunCommand acCmdWindowHide
End Sub

Wie/wo würde ich die Erweiterung einfügen, damit der Button je nach Zustand der Navigationsleiste diese ein- oder ausblendet?

 

Hallo,
ich nutze dazu keinen normalen Button, sondern einen Umschaltbutton. Der lässt sich auf ein-aus prüfen.
Rufe das Formular auf, in das der Button eingebaut werden soll.
Wechsele in die Entwurfsansicht.
Wähle aus dem Reiter Entwurf den Umschaltbutton und platziere ihn an die passende Stelle.
Klicke den Button mit der rechten Maustaste an und wähle "Eigenschaften"
Dort gibt es "Beim Klicken"
Wähle aus den Möglichkeiten (Pfeil rechts in der Zeile) "Ereignisprozedur" und
klicke dann auf die drei Punkte daneben.
Dadurch öffnet sich der VBA Editor mit einer leeren _Click-Prozedur
zwischen diesen Zeilen setzt Du folgenden Code (ButtonNav ersetzt Du durch den Namen deines Buttons)
und speicherst ihn.

Code:

Private Sub ButtonNav_Click()
  If Me.ButtonNav = True Then
     DoCmd.SelectObject acTable, , True
     DoCmd.RunCommand acCmdWindowHide
  Else
     DoCmd.SelectObject acTable, , True
  End If

End Sub

Gehe zurück in die Formularansicht. Durch einen Klick auf den Button schaltet sich nun die Navileiste jeweils an und aus.
Manche bevorzugen statt eines Umschaltbuttons eine Optionsgruppe. Das ist, denke ich Geschmackssache.

Beste Grüße
Andreas

 

Wow...!
Herzlichen Dank für die fixe Lösung