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...

[olivier777]

Quand tu dis :

" 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 ", tout dépends ce que l'utilisateur a choisi dans la liste déroulante (n°2).

En tout cas, en ayant insérer le code suivant :

Code :

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

DoCmd.OpenForm "GTH_req", , , "Numéro = " & Me!cbo_critere.Value

, voici le message d'erreur que j'ai :

Erreur d'exécution '3075':
Erreur de syntaxe (opérateur absent) dans l'expression 'Numéro ='.

Merci pour ton aide

[User]

Re,

As-tu sélectionné un item dans ta liste cbo_critere ?

[olivier777]

Re,

Autant pour moi... Je n'avais pas sélectionner d'Item...

Maintenant, lorsque je sélectionne une table puis un champ et une valeur de recherche, j'ai une fenêtre "Entrer une valeur de paramètre", alors que je souhaiterai avoir tous les enregistrements correspondants à la valeur de recherche choisie...

Merci pour ton aide très très précieuse...

[User]

Re,

Peux-tu nous donner la table source de ton formulaire GTH_req, ou le sql complet de la requête source:

[Numéro] est-il un champ de cette table ou requête source ?
Que se passe-t-il quand tu ouvres manuellement le formulaire GTH_req ?

A+

[olivier777]

Re,

Peux-tu nous donner la table source de ton formulaire GTH_req, ou le sql complet de la requête source:
le formulaire GTH_req est basé sur une table (Cope), .

Code :

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

1
2
3
SELECT Cope.*, Cope.[Repère Fonctionnel]
FROM Cope
WHERE (((Cope.[Repère Fonctionnel]) Like 'XA' & '*'));

[Numéro] est-il un champ de cette table ou requête source ?
[Numéro] est un NuméroAuto donc il fait parti de la table
Que se passe-t-il quand tu ouvres manuellement le formulaire GTH_req ?
Cela me liste tous les enregistrements contenu dans la table 'Cope'

A+

Si je prends une autre table que la table 'Cope' et je choisi un autre champ que Repère Fonctionnel, avec d'autres critères, voici le message que j'ai :

Erreur d'exécution '3075'
Erreur de syntaxe (opérateur absent) dans l'expression 'Numéro = .........'.

Merci pour ton aide

[User]

Re,

Il faudrait que je vois ta base car sinon on pédale un peu dans la semoule

[olivier777]

Salut,

Oui effectivement ce serait bien...

Avant de lancer ma détresse sur le forum, j'avais essayé d'adapter le tutoriel " Création d'un formulaire de recherche multicritères " (http://jeannot45.developpez.com/arti...multicriteres/), mais tout ne fonctionnait pas.

Je t'avoue que je suis un peu perdu avec tout ça...

Je pourrai relancer de refaire le formulaire suivant le tutoriel et me permettre de te contacter si j'ai un souci

Merci de ton aide

[olivier777]

Re,

Finalement j'en déduit que personne ne peux m'aider pour réaliser un formulaire multi-critère de recherche.

Merci en tout cas à User de s'être pencher sur le sujet

[Tofalu]

A vrai dire, les documents rédigés sur ce site ont été testé des milliers de fois par d'autres visiteurs sans jamais de soucis. C'est peut être tout simplement que tu ne disposes pas des bases suffisantes pour te lancer dans un tel travail.

[olivier777]

Il y a des adaptations qui sont à faire, mais je pense avoir les bases necessaires pour développer.

Personne n'est parfait !!