Discussion :

[AgriPhilou]

Bonsoir,

ACCESS 2007.

Dans une liste déroulante en colonne 1 "cachée" il y a des codes "a - b - c - d etc.

Chaque code correspond à l'ouverture d'un formulaire par exemple si je choisis "a" je vais ouvrir le formulaire essai
le "b" le formulaire vente etc

Comment programmer en VBA pour que se soit le plus simple possible en évitant des if sur chaque ligne, j'évite de programmer un ruban car trop compliqué pour moi, et je veux éviter également de mettre des boutons de commandes car mon formulaire serait trop chargé.

Merci.

[Invité]

Bonjour

Le plus simple dans ton cas serait l'utilisation du Select Case, tu récupères la valeur de ta liste, et cette instruction te permettra plusieurs choix.

Je t'invite à regarder l'instruction dans l'aide, et si tu n'arrives pas à la mettre en place reviens nous avec le code que tu as fait.

Philippe

[marot_r]

Le plsu simple est que tu ajoutes le nom du formulaire à ta liste et que tu masques cette colonnne :

cela donnerai pour a, b et c

• Valeur de la liste : a;TitreA,NomFormulaireA;a;TitreA;NomFormulaireB;b;TitreB;NomFormulaireC;c;TitreC
• Nombre de colonnes : 3
• Largeur des colonnes : 0cm;1cm;5cm
• Largeur de ta liste : 6.44cm
• Colonne liée : 0

Le .44 permet de gérer la barre de défilement, évidement il faudra que tu adapte la largeur de tes 2 colonnes d'affichage à ta réalité.

Au niveau du code, dans l'événement après MAJ de ta liste déroulante.

Code :

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

docmd.openForm me.NomTaListeDeroulante

Une version plus élaborée pourrait se baser sur les formulaires existants dans ta BD et génnérer ta liste automatiquement mais c'est un peu plus complex à programmer.

A+

[AgriPhilou]

Merci beaucoup pour vos réponses, je vais faire des essais.

[AgriPhilou]

J'ai fais un essai avec la méthode de Marot R et c'est parfait, merci beaucoup, mais je serai trés curieux de connaître la méthode de Philippe avec Select Case, je n'ai rien trouvé dans l'aide correspondant à ceci, si vous avez un exemple sous la main ?

Encore merci.

[AgriPhilou]

Oui mais, j'ai un petit problème, en effet j'ai de temps en temps un état et là :OpenForm ne le fait pas, il faudrait que Access identifie si c'est un formulaire ou un état, si vous avez une idée ?

Merci.

[Invité]

Bonjour

Ma solution dans ce cas n'est pas la meilleure, celle de marot_r est plus simple et plus efficace.

Donc si je comprends bien tu as dans ta liste à la fois des états et des formulaires, il faut donc ajouter une colonne dans ta liste indiquant ce que c'est et faire un test.

Si c'est un formulaire

Code :

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

DoCmd.OpenForm ...

Si c'est un état

Code :

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

DoCmd.OpenReport

Philippe

[ORDINO]

En supposant que tu connais les choix qui sont des formulaires et ceux qui sont des états.

Ajoute en colonne 4, F ou E pour respectivement formulaire et état.
Tu peux cacher la colonne 4 si l'utilisateur n'en a pas besoin.
Le code devient:

Code :

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

1
2
3
4
5
6
7
Select Case me.NomTaListeDeroulante.Column(3) 
          'les colonnes portent les nos 0,1,2,3
      Case "F"
          docmd.openForm me.NomTaListeDeroulante
      Case "E"
           docmd.openReport me.NomTaListeDeroulante
End Select

[AgriPhilou]

Bonsoir,

Me voici de retour aprés une semaine chargée de travail, je vous remercie tous pour votre aide.

@+