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

**bilou69** · 22/12/2009, 12h33

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 :

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

 select *  maTable where fournisseur= maliste.monChamp

merci à tous

Bilou69

**Jean-Philippe André** · 22/12/2009, 14h08

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

**bilou69** · 23/12/2009, 11h53

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 :

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

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 :

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

**miamou** · 25/12/2009, 11h46

Bonojur essaye en ajoutant des espaces et avec

Code :

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

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 :

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

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

**bilou69** · 25/12/2009, 16h13

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 :

cbFournisseur.value

ou

Me.cbFournisseur.Column(1)

avec la deuxième option qd j'execute

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

**miamou** · 25/12/2009, 17h49

Bonjour
Remplace ton recordset par celui-ci:

Code :

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

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

**bilou69** · 26/12/2009, 13h35

Salut,

merci pour ta réponse

j'ai remplacé mon recordset par cette ligne

Code :

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

  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

**miamou** · 26/12/2009, 14h39

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!

**bilou69** · 26/12/2009, 15h29

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

Code :

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

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

**miamou** · 26/12/2009, 15h40

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 ?

**bilou69** · 26/12/2009, 15h40

Re

pour executer la requete j'ai tenté

Code :

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

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 :

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

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

**miamou** · 26/12/2009, 15h42

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?

**bilou69** · 26/12/2009, 15h46

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

**miamou** · 26/12/2009, 15h59

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?

**bilou69** · 26/12/2009, 16h04

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

**miamou** · 26/12/2009, 16h16

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 :

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

[Forms]![Nom_du_formulaire]![Nom_liste_fournisseur]

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

Code :

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

DoCmd.Requery

tiens moi au courant du résutat
Bon courage

**bilou69** · 27/12/2009, 18h24

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 :

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

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 :

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

select nom_fournisseur from fournisseur

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

Code :

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

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

**miamou** · 27/12/2009, 20h47

Bonsoir,

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

de quel bouton tu parles?

et Pour la liste des fournisseurs tu la crée par l'assistant;
Puis tu crée un sous formulaire lié à la requete

**jj4822** · 28/12/2009, 20h19

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.

**bilou69** · 29/12/2009, 15h08

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

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

Requêtes et SQL.

Discussions similaires

Partager

Partager