Discussion :

[olivier777]

Bonjour à tous,

Connaissant la compétence des visiteurs de ce forum, je suis certain que vous pourrez m'aider, car je bloque.

Je m'explique :

J'ai créé un formulaire dans lequel j'ai 3 listes déroulantes.

La première selectionne une table
La deuxième selectionne un champ de la table précedemment choisi
La troisième selectionne une liste d'un enregistrement du champ selectionné.

J'aimerai faire afficher les informations relatives à cet enregistrement, en cliquant sur un bouton, dans un formulaire (par exemple).

Je débute en VBA. Merci mille fois de votre aide.

Olivier

[User]

Salut,

Tout d'abord il faut que la valeur sélectionnée dans ta liste 3 soit unique (Champ avec clé primaire de la table source du formulaire que tu souhaites ouvrir ):

Pour commencer, regarde du côté de la méthode OpenForm:

Un exemple:

Code :

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

DoCmd.OpenForm "TonFormulaire", , ,"TonChamp = " & Me!TaListe3.Value

Si le contenu de ta liste déroulante 3 (valeur sélectionnée) est numérique.

Code :

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

DoCmd.OpenForm "TonFormulaire", , ,"TonChamp = '" & Me!TaListe3.Value & "'"

Si le contenu de ta liste déroulante 3 (valeur sélectionnée) est du type texte.

[olivier777]

Salut,

Tout d'abord il faut que la valeur sélectionnée dans ta liste 3 soit unique (Champ avec clé primaire de la table source du formulaire que tu souhaites ouvrir ):

Pour commencer, regarde du côté de la méthode OpenForm:

Un exemple:

Code :

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

DoCmd.OpenForm "TonFormulaire", , ,"TonChamp = " & Me!TaListe3.Value

Si le contenu de ta liste déroulante 3 (valeur sélectionnée) est numérique.

Code :

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

DoCmd.OpenForm "TonFormulaire", , ,"TonChamp = '" & Me!TaListe3.Value & "'"

Si le contenu de ta liste déroulante 3 (valeur sélectionnée) est du type texte.

Merci User de ta réponse aussi rapide.

J'ai plusieurs questions :

- Il faut que je mette sur un evenement "OnClick" d'un bouton (par exemple ?)

- Quand tu dis : " Tout d'abord il faut que la valeur sélectionnée dans ta liste 3 soit unique (Champ avec clé primaire de la table source du formulaire que tu souhaites ouvrir )". Tout dépends du champ choisi (liste déroulante 2), car je ne peux pas avoir plusieurs clés primaire dans une même table. Je ne saisi pas trop ce que tu veux dire

Merci pour ton aide

[User]

Re,

- Il faut que je mette sur un evenement "OnClick" d'un bouton (par exemple ?)

Oui par exemple.

- Quand tu dis : " Tout d'abord il faut que la valeur sélectionnée dans ta liste 3 soit unique (Champ avec clé primaire de la table source du formulaire que tu souhaites ouvrir )". Tout dépends du champ choisi (liste déroulante 2), car je ne peux pas avoir plusieurs clés primaire dans une même table. Je ne saisi pas trop ce que tu veux dire

Juste un exemple:

TaListe3
--1--
--2--
--3--

Table_Enregistrement
Index-|-Champ1....
--1---|---A---
--2---|---A---
--3---|---B---
--4---|---B---
--5---|---B---

Comme tu peux le constater les valeurs contenues dans le champ Index de la table_enregistrement sont tous différents et donc unique ce qui permet d'identifier chacun des enregistrements de la table.

Dans ce cas le code suivant fonctionne:

Code :

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

DoCmd.OpenForm "TonFormulaire", , ,"Index = " & Me!TaListe3.Value

A+

[olivier777]

Re,



Oui par exemple.



Juste un exemple:

TaListe3
--1--
--2--
--3--

Table_Enregistrement
Index-|-Champ1....
--1---|---A---
--2---|---A---
--3---|---B---
--4---|---B---
--5---|---B---

Comme tu peux le constater les valeurs contenues dans le champ Index de la table_enregistrement sont tous différents et donc unique ce qui permet d'identifier chacun des enregistrements de la table.

Dans ce cas le code suivant fonctionne:

Code :

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

DoCmd.OpenForm "TonFormulaire", , ,"Index = " & Me!TaListe3.Value

A+

Merci beaucoup de ta réponse.

Concrètement, j'ai une liste déroulante que j'ai appellé cbo_table, une autre liste déroulante que j'ai appellé cbo_champ et le troisième que j'ai appellé cbo_critere.

Mon formulaire dans lequel je veux afficher mes résultats s'appelle GTH_req
Ma clé primaire est sur un numéroAuto pour certaines tables, mais sur des champs pour d'autres tables.
Donc par rapport à ton code, cela correspondrait à :

Code :

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

DoCmd.OpenForm "GTH_req", , ,"numéroAuto = " & Me!cbo_critere.Value

Ai-je bien compris ?

Merci de ton aide

[User]

Re,

Dans un premier temps,
Il faut que la table ou requête source du formulaire GTH_req est comme clé le champ numéroAuto et que ce soient des valeurs de ce même champ numéroAuto qui soient affichées dans la liste cbo_critere.

Si oui essaie ton code:

Code :

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

DoCmd.OpenForm "GTH_req", , ,"numéroAuto = " & Me!cbo_critere.Value

et reviens nous dire ce qui se passe...