Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Eigene Menüleiste im Formular oben andocken
zurück: Problem bei Abänderung von Vorlagen-Formularen weiter: Gültigkeitsregel Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
vba_newsbie
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2010, 09:30
Rufname:

Eigene Menüleiste im Formular oben andocken - Eigene Menüleiste im Formular oben andocken

Nach oben
       Version: Office 2003

ich habe in Access 2003 eine Menüleiste erstellt und mit folgenden Code gesagt das diese mit dem Formular geladen werden soll:

Code:

Private Sub Form_Current()
Forms!frm007.MenuBar = "Das neue Menü"
End Sub


Das klappt soweit. Auch das das Formular nicht mehr verschoben werden kann und auch nicht geändert. nur zeigt er das Menü im Mitten des Formulars an und nicht oben wo man die vermutet.

Wo kann man einstellen, das das Menü fest oben ist?
Gasth
Gast


Verfasst am:
07. Jul 2010, 12:15
Rufname:


AW: Eigene Menüleiste im Formular oben andocken - AW: Eigene Menüleiste im Formular oben andocken

Nach oben
       Version: Office 2003

Hallo,


müsste so funktionieren:
Code:

Forms!frm007.MenuBar = "Das neue Menü"
Commandbars("Das neue menü").Position.TOP


Gruß kh
Gasth
Gast


Verfasst am:
07. Jul 2010, 12:43
Rufname:

AW: Eigene Menüleiste im Formular oben andocken - AW: Eigene Menüleiste im Formular oben andocken

Nach oben
       Version: Office 2003

Nachtrag:

Der Code ist besser im Form Load oder Form Open aufgehoben.
Da im Form_Current der Code jedesmal bei einem Datensatzwechsel
ausgeführt wird, was nicht unbedingt der Performance dient.

Alternativ kann die Zuordnung der Menüleiste auch im Eigenschaftsfenster
unter Andere bei Symbolleiste eingestellt werden.
So wird nur noch die Codezeile mit .Position benötigt.

Gruß KH
Gast



Verfasst am:
07. Jul 2010, 13:27
Rufname:

AW: Eigene Menüleiste im Formular oben andocken - AW: Eigene Menüleiste im Formular oben andocken

Nach oben
       Version: Office 2003

Hallo KH,


vielen Dank für Deine Antwort. Beim Testen kam folgender Fehler:

Fehler beim Kompilieren

und .Position wird markiert diesen Teil

Gruss
F
Gasth
Gast


Verfasst am:
08. Jul 2010, 12:11
Rufname:

AW: Eigene Menüleiste im Formular oben andocken - AW: Eigene Menüleiste im Formular oben andocken

Nach oben
       Version: Office 2003

Hallo,

Fehler meinerseits aber so sollte es nun funktionieren:

commandbars("Das neue menü").Position =msoBarTop

Gruß
Kh
Gast



Verfasst am:
08. Jul 2010, 16:23
Rufname:

AW: Eigene Menüleiste im Formular oben andocken - AW: Eigene Menüleiste im Formular oben andocken

Nach oben
       Version: Office 2003

Zitat:
Hallo,

Fehler meinerseits aber so sollte es nun funktionieren:

commandbars("Das neue menü").Position =msoBarTop

Gruß
Kh


Ja das stimmt, nur das die Leiste nicht oben im Formular angeziegt wird sondern ganz oben im Access
Gasth
Gast


Verfasst am:
08. Jul 2010, 18:55
Rufname:


AW: Eigene Menüleiste im Formular oben andocken - AW: Eigene Menüleiste im Formular oben andocken

Nach oben
       Version: Office 2003

Hallo,

bevor wir uns weiter im Kreis drehen zwecks unterschiedlichen Interpretation was oben und / oder Andocken ist habe ich dir eine kleine Anleitung erstellt wie du das Ganze nach deinen Vorstellungen umsetzen kannst.

Auf dem Formular, das die Symbolleiste anzeigen soll fügst du eine Befehlsschaltfläche ein. Vergebe als Name: CmdTestBar
Beim Ereignis Beim Klicken der Schaltfläche fügst folgenden Code ein:
Code:

Dim cbar As Commandbar
Set cbar = CommandBars("MyMenu")
With cbar
    MsgBox "Oben : " & .Top & "Links : " & .Left
End With



Öffne das Formular und verschiebe die Leiste an die Position wo sie zukünftig immer erscheinen soll.
Klick auf die Schaltfläche und notiere dir die Oben / Links Position, die in der Msgbox angezeigt werden.

Dann im Open Ergeinis des Formulars folgenden Code einfügen:
Code:

Dim cbar As Commandbar
Set cbar = CommandBars("MyMenu")
With cbar
    .Top = notierter Wert Oben
    .Left = notierter Wert Links
    .Protection = msoBarNoMove + msoBarNoResize
End With


MyMenu ersetzt du durch den Namen deiner Menü/Symbolleiste
mit der Protection Eigenschaft wird Verschieben und eine Größenänderung unterbunden.
Die Schaltfläche und der hinterlegte Code kann gelöscht werden.

Gruß kh
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz über Formular suchen 3 Sandnet 2166 10. Jun 2005, 10:52
Dalmatinchen Datensatz über Formular suchen
Keine neuen Beiträge Access Tabellen & Abfragen: eigene Funktion in einer Abfrage einbauen ? 1 magnum 5230 28. Mai 2005, 18:39
Gast eigene Funktion in einer Abfrage einbauen ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von Formular zu mehreren Tabellen gleichzeitig 5 Friedel 1237 22. Mai 2005, 11:06
jens05 Abfrage von Formular zu mehreren Tabellen gleichzeitig
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Formular einbinden? 1 Percobodio 2045 29. Apr 2005, 11:29
lothi Abfrage in Formular einbinden?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen im Formular aufrufen, automatisch bestätigen 3 Calvin22 1606 12. Apr 2005, 12:12
Willi Wipp Abfragen im Formular aufrufen, automatisch bestätigen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: mehrer abfragen ein formular 1 romu 719 10. Jan 2005, 15:54
lothi mehrer abfragen ein formular
Keine neuen Beiträge Access Tabellen & Abfragen: kreuzabfrage ausführen nach vorgeschaltetem formular mit kom 4 Gast 887 21. Dez 2004, 15:17
Gast kreuzabfrage ausführen nach vorgeschaltetem formular mit kom
Keine neuen Beiträge Access Tabellen & Abfragen: Formeln vom Formular, werden in der Abfrage nicht angezeigt 4 maddes 895 23. Nov 2004, 12:38
Skogafoss Formeln vom Formular, werden in der Abfrage nicht angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Wert eines Feldes aus Formular in Tabelle speichern 18 kave78 13710 16. Okt 2004, 13:40
Ming Wert eines Feldes aus Formular in Tabelle speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile der Dateneingabe (*) in einem Formular verschieben 2 Albertus 790 08. Okt 2004, 09:17
Albertus Zeile der Dateneingabe (*) in einem Formular verschieben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps