Menu personalizzato
Sabato 20 settembre, 2008 Questo è un tipo di menu che ci permette di risparmiare tempo, righe di codice e una disposizione migliore in termini di forme aperte, poiché con questo menu solo bisogno di una forma aperta. Oltre a ridurre il numero di forme aperte diminuisce anche il numero di pulsanti di un menu per aprire ogni modulo.
Questo tipo di menu, certo che esiste da qualche tempo ed è già utilizzato da molti utenti di Access.
Allora, dove è questo menù?
Creiamo il menu utilizzando una casella combinata che contiene tutte le forme che abbiamo in programma di aprire attraverso di essa. Quando si seleziona un'opzione dalla casella combinata il modulo di domanda viene visualizzata all'interno della sottomaschera. Allora cominciamo a fare il passo menù per passo.
1 - Creiamo un tavolo dove verrà memorizzato il nome che vuoi dare ad ogni forma e nome del modulo che si apre. In questo esempio ho creato 'tblmenu' la tabella con i seguenti campi:
Tipo di campo
Nomedomenu testo -> Nome che sarà visibile nel menu (combo box)
sotto forma di testo -> Nome del modulo che si aprirà
Dopo che i dati introdotti nell'esempio sono:
NomedoMenu Form
Conti Form1
Depositi Form2
Movimenti formulario3
Account-Box formulario4
Account-Account formulario5
Estratto formulario6
2 - Poi creiamo una query dalla tabella precedente:
Tblmenu ha scelto la tabella e quindi scegliere i due settori in cui abbiamo scelto per la risalita nomedomenu sorta di essere più facile trovare il menu di un bel paio di volte in cui vogliamo aprire i moduli. Per questa query ho chiamato 'CsMenu'.
3 - Creiamo 'Menu' la forma, vale a dire scegliere nuova maschera in visualizzazione Design. Poi si crea una casella combinata e modificare le seguenti proprietà:
- Numero di colonne: 2
- Larghezza delle colonne: 1cm, 0cm;
- Origine della linea: csmenu (che è il nome della query creata nel paragrafo precedente)
4 - Nello stesso modulo creeremo sottomodulo una maschera non associata principale (nell'esempio ho chiamato menuquadro). E 'questa forma che si aprirà ciascuna delle forme di scegliere dal menu (casella combinata).
5 - Ora create un modulo che ci permetterà di aprire il menu che viene selezionato nella casella combinata nella sottomaschera.
Abbiamo creato un modulo (che ho chiamato 'abrirmenu') e incollate il seguente codice:
AtivarMenu Funzione pubblica (Combmenu Il ComboBox, subabrir La sottomaschera)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Dopo essere andato alle proprietà della casella combinata nel menu modulo e il dopo evento di aggiornamento messo il creato funzione: ativarmenu = ([Menu], [menuquadro]), che 'Menu' è il nome della casella combinata e 'menuquadro' l' il nome della sottomaschera.
Infine il menù è pronto all'uso. Basta provare e utilizzare. Spero vi sia piaciuto questo suggerimento.
Download: Menu
Qui di seguito una foto del menu.
Menu personalizzato
