Discussion :

[drthodt]

Bonjour,
je viens de créer une base de données qui s'ouvrent sur un formulaire d'accueil.
Sur ce formulaire on peut cliquer sur des boutons afin d'effectuer l'action que l'on désire (arriver sur un formulaire de saisie,un formulaire de recherche,imprimer un état).
Le fait est que du fait des nombreuses possibilités j'ai beaucoup de boutons sur le même écran,ce qui donne un aspect "surchargé".
J'aimerais savoir s'il est possible de remplacer ces boutons par des menus déroulants, car je peux aisément les regrouper en sous-sections (ex. saisie - impression...etc) et mettre dans chacune de ses sous-sections un menu déroulant avec l'équivalent de mes boutons.
Il s'agit tout simplement de boutons qui permettent d'ouvrir d'autres formulaires ou d'exécuter des requêtes,sur l'action on_click(),en fermant à chaque fois ce formulaire accueil.
J'imagine qu'il est possible d'associer une action au fait de choisir une valeur dans un menu déroulant,mais je ne sais pas comment faire.
Pour chacune des sous-sections je peux créer une table qui remplit ma liste déroulante (par exemple une table "impression" qui aura dans sa liste etat1,etat2,etat3 ...etc),mais je ne sais pas à quel type d'évènement je dois associer le choix d'une des valeurs sur un menu et l'action qui correspond à mon bouton équivalent actuel.
Ceci me donnerait une interface beaucoup plus sympathique à mon avis.
Merci pour vos conseils.

[Lou Pitchoun]

Salut,

J'ai créé un module ou j'ai toutes mes commandes de menu.
ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function Consulter_commune()
 
    DoCmd.OpenForm "Commune"
 
End Function

J'ai ensuite créer ma barre de menu. Clic droit -> personnaliser
Là tu crées tes menus déroulants avec les différentes options et à chaque option tu définis dans les propriétés du controle -> sur action le nom de ta fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Consulter_commune()

[Sinclar]

Salut,
Parmi les possibilités qui s'offrent à toi, tu peux par exemple créer (comme tu l'as dit) plusieurs listes de regroupement;
- Il te faut créer 2 tables : 1 pour les Sections et 1 pour les sous sections.
Tu relies ces 2 tables de tel sorte que pour chaque sous section corresponde une section (N'oublie pas de numéroter les noms de section et ss section)
- Tu crées une liste(des sous sections) dans ton form en filtrant le contenu
par rapport à la section de ton choix.
- Sur l'évènement mis à jour par exemple de cette liste, tu peux programmer l'ouverture d'un form en utilisant comme paramètre le choix de la liste; le paramètre de ta liste sera [Liste].Column(0) si le numéro de la sous section auquel tu fais référence est stocké dans la première colonne du contenu de la liste.

Voilà peut être un début qui peut t'aider, j'espère que c'est compréhensible...

[mzelvivi]

Bonjour, il est également possible d'utiliser des listes déroulantes dans le formulaire à la place de 36 boutons. Il suffit de créer un évènement sur Après mise à jour, qui teste la valeur sélectionnée dans la liste et renvoie vers la procédure correspondante. Tu peux tester la valeur avec un Select Case et renvoyer à chaque fois vers la procédure qui existait pour le bouton.
S'il faut fermer le formulaire principal à chaque fois, tu peux le mettre avec le Select Case et l'enlever dans les autres procédures, ça rationalise un peu.
Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Modifiable0_AfterUpdate()
Select Case Me!Modifiable0
    Case Is = "Imprimer"
        BoutonImprimer_Click
    Case Is = "Ouvrir"
        BoutonOuvrir_Click
    'etc...
End Select
DoCmd.Close acForm, "Accueil"
End Sub

Tu as maintenant 2 idées à tester, bon courage !