Anpassad meny
Lördag, 20 september, 2008 Detta är en typ av meny som tillåter oss att spara tid, rader kod och en bättre ordning i fråga om öppna formulär, eftersom den här menyn bara behöver en öppen form. Förutom att minska antalet öppna former minskar också antalet knappar i en meny för att öppna varje form.
Denna typ av meny, förvisso som har funnits en tid och används redan av många användare av Access.
Så var är den här menyn?
Låt oss skapa menyn med en kombinationsruta som innehåller alla de former som vi planerar att öppna genom den. När du väljer ett alternativ från kombinationsrutan ansökningsformuläret visas i underformuläret. Sen börjar vi att göra menyn steg för steg.
1 - Vi skapar en tabell där vi lagrar det namn du vill ge varje form och namn av formen som öppnas. I exemplet jag skapade tabellen "tblmenu" med följande fält:
Fälttyp
Nomedomenu text -> Namn som kommer att ses i menyn (kombinationsrutan)
bildar text -> Namn på den form som öppnas
Efter det att data som införts i exemplet är följande:
NomedoMenu Form
Konton Form1
Insättningar Form2
Rörelser formulario3
Konto-Box formulario4
Account-konto formulario5
Extrahera formulario6
2 - Då skapar vi en förfrågan från den föregående tabellen:
Tblmenu valde tabellen och välj sedan de två områden där vi valde för stigande form nomedomenu vara lättare att hitta i menyn ganska många gånger när vi vill öppna former. För att denna fråga jag kallade "CsMenu".
3 - Låt oss skapa formuläret "Meny", dvs att välja nytt formulär i designvyn. Sedan skapar vi en kombinationsruta och ändra följande egenskaper:
- Antal kolumner: 2
- Kolumnbredder: 1 cm, 0cm;
- Ursprunget till raden: csmenu (som är namnet på frågan skapade i föregående stycke)
4 - I samma form som vi kommer att skapa ett obundet huvudformuläret s underformulär (I exemplet jag ringde menuquadro). Det är denna form som kommer att öppna varje av de former som att välja från menyn (kombinationsrutan).
5 - Nu skapar en modul som ger oss möjlighet att öppna menyn som är vald i kombinationsrutan i underformuläret.
Vi skapade en modul (som jag kallade "abrirmenu) och klistrat in följande kod:
Allmänna funktion AtivarMenu (Combmenu ComboBox, subabrir underformuläret)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
Änden Funktion
Efter att gå till egenskaper kombinationsrutan i formuläret menyn och After uppdateringen händelsen sätter skapat funktion: ativarmenu = ([Meny], [menuquadro]) att "Menu" är namnet på kombinationsrutan och "menuquadro" den namnet på den underformuläret.
Och slutligen menyn är klar för användning. Försök och använda. Jag hoppas du gillade detta tips.
Ladda ner: Meny
Nedan en bild på menyn.
Anpassad meny
