Programmieren - alles kontrollieren 4.937 Themen, 20.662 Beiträge

Access Menü - Wie rufe ich eine´Funktion mit OnAction auf

Jürgen124 / 1 Antworten / Flachansicht Nickles

Hallo! Mein Problem ist die letzte Zeile der Sub:

Dim cmdBar As CommandBar
Dim mWissensartikel As CommandBarPopup
Dim mNeuerEintrag As CommandBarButton

Sub MenueLeiste
Set cmdBar = CommandBars.Add("meineLeiste", msoBarPopup, , True)
Set mWissensartikel = cmdBar.Controls.Add(msoControlPopup)
mWissensartikel.Caption = "&Wissensartikel"

Set mNeuerEintrag = mWissensartikel.Controls.Add (msoControlButton)
mNeuerEintrag.Caption = "&NeuerEintrag"
' Das funktioniert
mNeuerEintrag.OnAction = "=MsgBox(""Menuepunkt neuerEintrag"")"
' Das funktioniert nicht
mNeuerEintrag.OnAction = "=Meine_Sub()"
End Sub

Wie geht's?
Schon mal besten Dank!
Gruß
Jürgen

bei Antwort benachrichtigen