Textbox wird im Kontextmenü nicht angezeigt

Question

Hallo,

ich erzeuge in meinem VBA Code ein Kontexmenü mit zwei msoControlButtons und einer msoControlEdit Textbox.

Wenn ich den Code ausführe und probehalber mit .ShowPopup() aufrufe, erscheinen die Buttons und die Textbox ohne Probleme.

Wenn ich aber nun das Kontextmenü über die Eigenschaften des Formulars einem Control zuweise, das erscheint die Textbox nicht:

Formular: Kontextmenü --> ja

Control: Kontextmenüleiste --> "ShortcutMenu"

Führe ich nun den Code aus erscheinen nur noch die beiden Buttons im Contextmenü. Beim Debuggen fällt auf, dass die msControlEdit als Item im Kontextmenü aufgeführt ist.

Hier der Code:

 Set cmdBarShortcutMenu = CommandBars.Add("ShortcutMenu", msoBarPopup, False, False)

    With cmdBarShortcutMenu.Controls
        .Add msoControlButton, 210
        .Add msoControlButton, 211
        
        Set cmdBarControl = .Add(msoControlEdit)   
        With cmdBarControl
            .Caption = "Filtern"
            .OnAction = "=Suche()"
            .Enabled = True
            .Visible = True
            .SetFocus
        End With
    End With

    cmdBarShortcutMenu.Visible = True

Kann mit jemand helfen?

Vielen Dank.

JeanneD'Arc

Answer 1

Zusatzinfo:

Ich nutze Access 2010, Office Library 14.0, Programmiersprache VBA.

Danke.