Custom Menu
Zaterdag de 20 september 2008 Dit is een soort menu dat ons in staat stelt tot tijd, regels code en een betere regeling op te slaan op het gebied van open vormen, want met dit menu hoeft alleen maar een open vorm. Naast het verminderen van het aantal open vormen ook vermindert het aantal knoppen in een menu voor elke vorm te openen.
Dit type menu, zeker dat bestaat al enige tijd en wordt al gebruikt door veel gebruikers van Access.
Dus waar is dit menu?
Laten we aan het menu met behulp van een keuzelijst met invoervak die alle vormen die we van plan om open te stellen via het bevat. Als u een optie te selecteren uit de keuzelijst het aanvraagformulier wordt weergegeven in het subformulier. Dan beginnen we om het menu stap voor stap te maken.
1 - Laten we een tabel maken waar we de naam die u wilt elke vorm en de naam van het formulier dat geopend wordt, geven op te slaan. In het voorbeeld heb ik de tafel 'tblmenu' met de volgende velden:
Veldtype
Nomedomenu tekst -> Naam, dat zal worden gezien in het menu (keuzelijst)
vormen tekst -> Naam van het formulier dat wordt geopend
Nadat de gegevens die in het voorbeeld zijn:
NomedoMenu Formulier
Accounts Form1
Deposito Form2
Mutaties formulario3
Account-Box formulario4
Account-Account formulario5
Extract formulario6
2 - Dan hebben we een query uit de vorige tabel:
Tblmenu koos de tabel en kies vervolgens de twee gebieden die we gekozen voor oplopende sorteervolgorde nomedomenu om makkelijker om het menu wel een paar keer als we willen de formulieren te vinden. Om deze vraag heb ik de naam 'CsMenu'.
3 - We maken het formulier 'Menu', dat wil zeggen kiezen voor nieuwe formulier in de ontwerpweergave. Dan creëren we een keuzelijst met invoervak en wijzig de volgende eigenschappen:
- Aantal kolommen: 2
- Kolombreedten: 1cm, 0cm;
- Oorsprong van de lijn: csmenu (dat is de naam van de query gemaakt in de vorige paragraaf)
4 - In hetzelfde formulier zullen wij een ongebonden belangrijkste formulier subformulier maken (In het voorbeeld dat ik noemde menuquadro). Het is deze vorm die zal worden geopend elk van de vormen om uit te kiezen in het menu (keuzelijst).
5 - Maak nu een module die zal ons toelaten om in het menu dat is geselecteerd in de keuzelijst in het subformulier te openen.
We hebben een module (die ik wel 'abrirmenu') en geplakt de volgende code:
Public Function AtivarMenu (Combmenu De ComboBox, subabrir het subformulier)
Abrirform As String Dim
= Combmenu.Column abrirform (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Na het gaan om de eigenschappen van de keuzelijst op het formulier menu en de na update gebeurtenis zet de gecreëerde functie: ativarmenu = ([Menu], [menuquadro]) dat de 'Menu' is de naam van de keuzelijst en 'menuquadro' de naam van het subformulier.
En tenslotte de menu klaar voor gebruik. Gewoon proberen en te gebruiken. Ik hoop dat je genoten hebt van deze tip.
Download: Menu
Hieronder een foto van het menu.
Custom Menu
