Microsoft Access Programmierrezepte

R13.25 Funktion aus dem Menüband ausführen

Aufgabe

Nicht alle Funktionen des Menübands stehen Ihnen auch per VBA-Anweisung zur Verfügung. Wie können Sie dennoch darauf zugreifen?

Lösung

Verwenden Sie die Application.CommandBars.ExecuteMso-Methode, um Menüfunktionen über deren Id aufzurufen.

Beispiel

Neue Tabelle erstellen

Sub Test()
   Application.CommandBars.ExecuteMso "CreateTableInDesignView"
End Sub

Alternativ können Sie mit der Methode Application.CommandBars.GetEnabledMso prüfen, ob eine Menüfunktion aktuell verfügbar ist.

Beispiel

Die Funktion »Online arbeiten« aus der Gruppe »SharePoint-Listen« aktivieren, wenn möglich

Sub Test()
   If Application.CommandBars.GetEnabledMso("SharePointListsWorkOffline") Then Application.CommandBars.ExecuteMso "SharePointListsWorkOffline" ...