title image


Smiley Re: Ist eine eigene Menüleiste im Formular möglich?
Hallo Roy,



klar geht das:



Gebe den Code in einem Modul ein



Dim cmdBar As CommandBar 'benutzerdefinierte Befehlsleiste



Dim mDatei as CommandBarPopup 'Datei-Menü aufklappbar

Dim mOpen As CommandBarButton 'Menü "Datei / Öffnen"

Dim mClose As CommandBarButton 'Menü "Datei / Schließen"



Im Formular erstellst Du dann die Menüleiste



Sub neueMLeiste()

'Menüleiste erstellen (temporär)

Set cmdBar = CommandBars.Add("meineLeiste", msoBarFloating,,True)

'statt Floating kannst Du auch Top schreiben



'Menüpunkte erstellen

Set mDatei = cmdBar.Controls.Add(msoControlPopup)

mDatei.Caption = "&Datei"

Set mOpen = mDatei.Controls.Add(msoControlButton)

mOpen.Caption = "&Öffnen"

mOpen.OnAction = "SUB-Name für Datei öffnen"



Set mClose = mDatei.Controls.Add(msoControlButton)

mClose.BeginGroup = True 'Trennstrich

mClose.Caption = "&Schließen"

mOpen.OnAction = "Beenden"



End Sub



Beim Schließen des Formulars muß die Menüleiste wieder gelöscht werden:



Sub loeschenMLeiste()

cmdBar.Delete

End Sub



Sub Beenden()

DoCmd.Close

End Sub



Beim Laden des Formulars:

Private Sub Form_Load()

Call neueMLeiste 'Menüleiste erstellen

End Sub



Beim Schließen des Formulars:



Private Sub Form_Close()

Call loescheMLeiste

End Sub



Ich hoffe ich konnte Dir helfen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: