récupérer une valeur a partir d'une liste déroulante

Bonjour à tous,


Débutant en access, j'aimerais savoir comment récupérer une valeur dans une liste déroulante pour la réutiliser dans la clause where de ma requete.

comme ceci :

Code:

---

select * maTable where fournisseur= maliste.monChamp

---

merci à tous

Bilou69

salut,
tu es sur la bonne piste,
il faut spécifier le formulaire dans lequel tu recupères l'info :)
Un exemple à ce sujet est dispo dans la :faq:

je suis tjs sur mon probleme j'ai essayé d'executer la requete en vb pour pouvoir récupérer une valeur a partir de ma liste déroulant cbFournisseur voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub btnValider_Click()   Dim db As DAO.Database Dim rs As DAO.Recordset Dim sql As String   sql = "select * from produit, acheter, fournisseur" sql = "where produit.id_produit=acheter.id_produit" sql = "and fournisseur.id_fournisseur=acheter.id_fournisseur" sql = "and nom_fournisseur='" & cbFournisseur.Value & "'"   Set db = CurrentDb Set rs = db.OpenRecordset(sql, dbOpenTable)     End Sub

---

j'ai l'erreur suivante qd je clique sur mon bouton :

Citation:

---

Le moteur de base de données Microsoft Jet n'a pas pu trouver l'objet 'and nom_fournisseur="". Assurez-vous que l'objet existe et que vous avez correctement saisi le chemin d'accès

---

j'en appelle aux grands gouroux d'access et vba parce que je passe a coté d'un truc ...

bilou69

Bonojur essaye en ajoutant des espaces et avec

Code:

---

1 2 3 4

sSQL = "select * from produit, acheter, fournisseur " sSQL = sSQL & "where produit.id_produit=acheter.id_produit " sSQL = sSQL & "and fournisseur.id_fournisseur=acheter.id_fournisseur " sSQL = sSQL & "and nom_fournisseur='" & cbFournisseur.Value & "'"

---

et si ta condition "cbFournisseur.Value" ne marche pas (je suppose que cbFournisseur est le nom de ta liste) tu peux la remplacer par

Code:

---

Me.cbFournisseur.Column(1)

---

parceque normalement dans la première colonne de la liste déroulante on a la clé caché et non les noms des fournisseurs.
j'espère que ça répond à ta question
bon courage

Merci pour ta réponse ;)

Je n'avais pas la requete en entier merci grace a toi j'ai pû concaténer correctement la chaine de caractère j'ai donc la requete entière cependant j'ai toujours le même message d'erreur que j'utilise :

Citation:

---

cbFournisseur.value

---

ou

Citation:

---

Me.cbFournisseur.Column(1)

---

avec la deuxième option qd j'execute

Citation:

---

nom_fournisseur=""

---

Je n'arrive pas a récupérer la valeur de ma combo.

bref ... je n'arrive tjs pas à visualiser ma requete select.

quelqu'un pourrait me donner les grandes lignes pour exécuter une requete select parce que je sèche complètement j'ai débugger et mon RecordSet=nothing

pourtant ma requete renvoie bien un jeu d'enregistrement qd je l'execute dans l'éditeur sql sous Access

conclusion je sèche vraiment...

merci à tous et joyeux noel ;)

Bilou69

Bonjour
Remplace ton recordset par celui-ci:

Code:

---

Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

---

Salut,

merci pour ta réponse :)

j'ai remplacé mon recordset par cette ligne

Code:

---

Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

---

et là super ! plus d'erreur mais ma requete ne s'excute pas que faire?

merci pour ta patience ;)

Bilou69

Bonjour,
comment tu sais qu'elle ne s'exécute pas? c'est une requete "Select" et donc son résultat tu l'as maintenant dans le recordset et c'est à toi de l'exploiter selon tes besoins. j'espère que tu me comprnds!

En fait je me suis mal exprimé elle s'execute parce que j'ai fait le test suivant :

Code:

---

1 2	msg=rs(0) msgBox(msg)

---

et j'ai bien un résultat donc effectivement la requete s'execute mais comment visualiser toutes les lignes de mon RecordSet.

en fait la vraie question c'est comment visualiser le résultat de la requete select comme sous l'éditeur sql en fait.

merci

Bilou69

je sais pas comment tu peux faire ceci; pour moi j'utilise ce type de recordeset pour faire des traitements.
Mais pourquoi ne crée pas tu la requete et l'enregistrer puis la lié à ton formulaire ?

Re

pour executer la requete j'ai tenté

Code:

---

DoCmd.OpenQuery(sSQL)

---

et la j'ai une erreur d'excution a mon avis c'est pas la bonne solution.

j'ai aussi tenté

Code:

---

db.Execute(sSQL)

---

mais apparemment ça ne marche pas avec les requetes de selection...

conclusion je vois pas pourtant je suis sur qu'il y a un moyen d'executer (ouvrir) ma requete non?

merci encore

Bilou69

je sais pas comment tu peux faire ceci; pour moi j'utilise ce type de recordeset pour faire des traitements.
Mais pourquoi ne crées tu pas la requete et l'enregistrer; puis tu cée un formuliare de type feuille de données lié à la requete.
c'est pas ce que tu veux?

Merci de ton aide ;)

comment lier une requete à un formulaire?
c'est peut etre la bonne solution mais je dois utiliser ma liste déroulante pour choisir mon fournisseur avant d'executer la requete.

donc en liant la requete au formulaire pourrais-je utiliser ma liste déroulante?

merci

Bilou69

l'idée que je peux te donner c'est de créer un formulaire vierge, tu crée ta liste de fournisseurs puis tu crée un sous formulaire basé sur la requête.Dis moi, la feuille de données contient un champs ID-Fournisseurs?

oui la table fournisseur contient bien un id fournisseur. au niveau de ma liste déroulante j'affiche les uniquement les noms des fournisseurs.

et l'idée c'est que lorsque je sélectionne un fournisseur je clique sur valider et j'ai la liste de ses produits qui apparaît

voilà tu sais tout ;)

un grand merci

Bilou69

Alors pour la requete à créer:
tu peux la créer facilement en mode création ce que tu ajoute c'est le champ ID-fournisseur que tu n'affiche pas (décoche "afficher") et sur son "Critère" t met:

Code:

---

[Forms]![Nom_du_formulaire]![Nom_liste_fournisseur]

---

et dans l'evenement "Après MAJ" de la liste tu met:

Code:

---

DoCmd.Requery

---

tiens moi au courant du résutat
Bon courage :ccool:

Merci pour ta réponse c cool ;)

voici ce que j'ai fait précisément :

en mode création j'ai fait ma requete voici ce que ça donne en sql :

Code:

---

1 2 3

SELECT DISTINCT fournisseur.nom_fournisseur, ACHETER.prix_achat, PRODUIT.libelle_produit FROM PRODUIT INNER JOIN (fournisseur INNER JOIN ACHETER ON fournisseur.id_fournisseur = ACHETER.id_fournisseur) ON PRODUIT.id_produit = ACHETER.id_fournisseur WHERE (((fournisseur.id_fournisseur)=[Forms]![Formulaire]![cbFournisseur]));

---

j'ai mis cette requete sur l'évènement clic du bouton.

ensuite au niveau de la liste dans contenu j'ai mis la requete suivante :

Code:

---

select nom_fournisseur from fournisseur

---

ensuite dans l'évènement après MAJ de la liste j'ai mis :

Code:

---

DoCmd.Requery

---

mais qd je clique sur la liste déroulante il me demande de saisir un paramètre je ne comprends pas.

merci de ton aide

bilou69

Bonsoir,

Citation:

---

j'ai mis cette requete sur l'évènement clic du bouton.

---

de quel bouton tu parles? :oops:
et Pour la liste des fournisseurs tu la crée par l'assistant;
Puis tu crée un sous formulaire lié à la requete

Selon moi on peut faire la chose de la facon suivante :

1 formulaire contenant :

1) un 1er champ contenant la liste des fournisseurs contenus dans une table. Dans les parametres du champ, deux champs a afficher dont le 1er (ID) egal a 0 cm, le deuxieme (nom fournisseur) egal a 2,5 cm.

2) un 2eme champ relie a la table contenant les valeurs par fournisseur et ne faisant apparaitre que les valeurs du fournisseur dont l'ID present dans le champ precedent. Dans les proprietees du champ, je relie a une requete basee sur la table contenant les valeurs par fournisseur et, pour le champ ID, je donne, comme critere, le 1er champ du formulaire.

En piece jointe un exemple.

Par contre, j'ai cree le fichier sous Access 2010 beta et essaye d'enregistrer le fichier en format 2007, format qu'il m'a propose d'office. Par contre, il ne m'a pas propose de versions precedentes d'Access pour l'enregistrement.

J'espere que tu pourras ouvrir le fichier Access.

Cdlt.

Bonjour à vous deux ! (miamou et jj4822)

jj4822 merci pour tes explications; Malheureusement je n'ai pas pu l'ouvrir mais je vais essayer de mettre en oeuvre ton exemple.

encore merci à vous deux !

je vous tiens au courant sur la suite des évènements

a bientot :)

Bilou69