Brugerdefineret menu
Lørdag, 20 september, 2008 Dette er en slags menu, der giver os mulighed for at spare tid, linjer kode og en bedre ordning i form af åbne former, eftersom man med denne menu skal bare have en åben form. Ud over at reducere antallet af åbne former mindsker også antallet af knapper i en menu for at åbne hver formular.
Denne type menu, helt sikkert, der har eksisteret i nogen tid, og bruges allerede af mange brugere af Access.
Så hvor er denne menu?
Lad os skabe menuen ved hjælp af en kombinationsboks, der indeholder alle de former, som vi planlægger at åbne igennem det. Når du vælger en indstilling fra kombinationsboksen ansøgningen vises i underformularen. Så vi begynder at gøre menuen trin for trin.
1 - Lad os oprette en tabel, hvor vi vil gemme det navn, du ønsker at give hver form og navnet på den formular, der åbnes. I det eksempel jeg har oprettet bordet 'tblmenu' med følgende områder:
Field Type
Nomedomenu tekst -> Navn der vil blive set i menuen (kombinationsboks)
danner tekst -> Navn på den form, der åbnes
Efter at dataene er indført i eksemplet er:
NomedoMenu Form
Konti Form1
Indskud Form2
Bevægelser formulario3
Konto-Box formulario4
Konto-konto formulario5
Uddrag formulario6
2 - Så skaber vi en forespørgsel fra den foregående tabel:
Tblmenu valgte tabellen og derefter vælge de to områder, hvor vi valgte for stigende slags nomedomenu at være nemmere at finde den menu, en hel del gange, hvor vi ønsker at åbne former. Til denne forespørgsel jeg kaldte "CsMenu '.
3 - Lad os skabe den form 'Menu', dvs vælge ny formular i designvisning. Så skaber vi en kombinationsboks og ændre følgende egenskaber:
- Antal kolonner: 2
- Kolonnebredder: 1cm, 0cm;
- Baggrunden for linje: csmenu (som er navnet på den forespørgsel oprettet i forrige afsnit)
4 - I den samme form, vi vil skabe en ubundet vigtigste formularens underformular (I det eksempel jeg ringede menuquadro). Det er denne form, vil være åben hver af de former at vælge fra menuen (kombinationsboksen).
5 - Nu kan du oprette et modul, der vil give os mulighed for at åbne menuen, der er valgt i kombinationsboksen i underformularen.
Vi har skabt et modul (som jeg kaldte "abrirmenu") og indsat følgende kode:
Public Function AtivarMenu (Combmenu Den ComboBox, subabrir underformularen)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Efter at have gået til de egenskaber kombinationsboks på formularen menuen og efter opdateringen tilfælde sat den oprettede funktion: ativarmenu = ([Menu], [menuquadro]), at "Menu" er navnet på kombinationsboksen og 'menuquadro "den navn underformularen.
Og endelig menuen er klar til brug. Bare prøv og bruge. Jeg håber du har nydt dette tip.
Download: Menu
Herunder et billede af menuen.
Brugerdefineret menu
