Menu personnalisé
Saturday, 20th Septembre, 2008 C'est une sorte de menu qui nous permet de gagner du temps, de lignes de code et une meilleure entente en termes de formes ouvertes, car avec ce menu juste besoin d'une forme ouverte. En plus de réduire le nombre de formulaires ouverts diminue également le nombre de boutons dans un menu pour ouvrir chaque formulaire.
Ce type de menu, qui a certainement existé pendant un certain temps et est déjà utilisé par de nombreux utilisateurs d'Access.
Alors, où est ce menu?
Nous allons créer le menu en utilisant une liste déroulante qui contient toutes les formes que nous avons l'intention d'ouvrir à travers elle. Lorsque vous sélectionnez une option dans la liste déroulante du formulaire de demande est affiché dans le sous-formulaire. Puis nous commençons à faire l'étape par étape le menu.
1 - Nous allons créer une table où l'on va stocker le nom que vous souhaitez donner à chaque forme et le nom de la forme que va s'ouvrir. Dans l'exemple que j'ai créé 'tblmenu' de la table avec les champs suivants:
Type de champ
Texte Nomedomenu - (combo)> Nom qui sera vu dans le menu
sous forme de texte -> Nom de la forme qui va ouvrir
Une fois les données introduites dans l'exemple sont les suivants:
Formulaire NomedoMenu
Comptes Form1
Dépôts Form2
Mouvements formulario3
Compte-Box formulario4
Compte-compte formulario5
Extrait formulario6
2 - Ensuite, nous créons une requête à partir du tableau précédent:
Tblmenu choisi la table, puis choisissez les deux domaines dans lesquels nous avons choisi pour monter nomedomenu sorte d'être plus faciles à trouver dans le menu à quelques reprises quand nous voulons ouvrir les formulaires. Pour cette requête, j'ai appelé «CsMenu».
3 - Nous allons créer «Menu» sous la forme, c'est à dire choisir la forme nouvelle en mode Création. Ensuite, nous avons créer une zone de liste déroulante et modifier les propriétés suivantes:
- Nombre de colonnes: 2
La largeur des colonnes -: 1cm, 0cm;
- Origine de la ligne: csmenu (qui est le nom de la requête créée dans le paragraphe précédent)
4 - Dans la même forme, nous allons créer un formulaire sous-formulaire principal indépendant de (Dans l'exemple j'ai appelé menuquadro). C'est cette forme qui sera ouvert chacune des formes de choisir dans le menu (liste déroulante).
5 - Maintenant, créez un module qui va nous permettre d'ouvrir le menu qui est sélectionné dans la zone de liste déroulante dans le sous-formulaire.
Nous avons créé un module (que j'ai appelé «abrirmenu ') et collé le code suivant:
AtivarMenu Fonction publique (Combmenu Le ComboBox, subabrir Le sous-formulaire)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Après être allé à des propriétés de la zone de liste déroulante dans le menu forme et la mise à jour après l'événement mis la fonction créée: ativarmenu = ([Menu], [menuquadro]) que "Menu" est le nom de la zone de liste déroulante et «menuquadro 'l' nom du sous-formulaire.
Et enfin, le menu est prêt à l'emploi. Juste essayer et à utiliser. J'espère que vous avez apprécié cette astuce.
Télécharger: Menu
Ci-dessous une photo du menu.
Menu personnalisé
