Custom Menu
Samstag, 20 September, 2008 Dies ist eine Art Menü, das uns zu der Zeit, Codezeilen und eine bessere Anordnung in Bezug auf die offenen Formen zu sparen, da mit diesem Menü müssen nur eine offene Form ermöglicht. Neben der Verringerung der Zahl der offenen Formen nimmt auch die Anzahl der Tasten in einem Menü, jedes Formular zu öffnen.
Diese Art von Menü, das sicherlich schon seit einiger Zeit bestanden und wird bereits von vielen Benutzern von Access verwendet.
Also, wo ist dieses Menü?
Wir erstellen nun ein Menü mit einer Combo-Box, die alle Formen, die wir planen, um durch sie zu öffnen enthält. Wenn Sie eine Option wählen Sie aus der Combo-Box das Antragsformular wird innerhalb des Unterformulars angezeigt. Dann beginnen wir, um das Menü Schritt für Schritt zu machen.
1 - Lasst uns eine Tabelle erstellen, in dem wir den gewünschten Namen, um jede Form und Namen des Formulars gehen Sie auf geben gespeichert werden. Im Beispiel habe ich die Tabelle 'tblmenu' mit den folgenden Feldern:
Feldtyp
Nomedomenu Text -> Name, der im Menü zu sehen sein wird (Combobox)
Text bilden -> Name des Formulars gehen Sie auf
Nachdem die Daten in dem Beispiel aufgeführt:
NomedoMenu Formular
Konten Form1
Einlagen Form2
Movements formulario3
Konto-Box formulario4
Konto-Konto formulario5
Auszug formulario6
2 - Dann erstellen wir eine Abfrage aus der obigen Tabelle:
Tblmenu entschied sich für die Tabelle und wählen Sie dann die beiden Felder, in denen wir für aufsteigend sortieren nomedomenu leichter zu sein, finden Sie das Menü schon ein paar Mal, wenn wir zu Formen öffnen wollen wählte. Um diese Abfrage Ich rief 'CSMenu'.
3 - Lassen Sie uns das Formular "Menü", wählen Sie also neue Formular in der Entwurfsansicht. Dann erstellen wir eine Combo-Box und die folgenden Eigenschaften:
- Anzahl der Spalten: 2
- Spaltenbreiten: 1cm, 0cm;
- Herkunft der Linie: CSMenu (das ist der Name der Abfrage im vorherigen Absatz erstellt)
4 - In der gleichen Form werden wir ein ungebundenes Hauptformular das Unterformular zu erstellen (Im Beispiel habe ich genannt menuquadro). Es ist diese Form, die gleichzeitig geöffnet wird jede der Formen aus dem Menü (Combobox) wählen.
5 - Erstellen Sie nun ein Modul, das es uns ermöglichen, das Menü, das im Kombinationsfeld im Unterformular gewählt wird geöffnet.
Wir haben ein Modul (was ich 'abrirmenu' genannt) und klebte den folgenden Code:
Public Function AtivarMenu (Combmenu die ComboBox, subabrir Das Unterformular)
Abrirform As String Dim
= Combmenu.Column abrirform (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Nachdem wir zu den Eigenschaften der Combobox auf dem Formular-Menü und die Veranstaltung nach dem Update stellen die geschaffene Funktion: ativarmenu = ([Menu], [menuquadro]), dass "Menü" der Name der Combo-Box und 'menuquadro' ist der Name des Unterformular.
Und schließlich ist das Menü einsatzbereit. Versuchen Sie einfach und zu verwenden. Ich hoffe euch hat diesen Tipp.
Download: Menu
Hier ein Bild des Menüs.
Custom Menu
