Zone de liste déroulante + requete

**DavidDeTroyes** · 18/05/2006, 15h46

Peut tu essayer aussi un :

Code :

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

1
2
 
msgbox  [Forms]![Formulaire1]![lstRegroupement].Text

Histoire que tu voit que ca te ressort bien la velur de ta liste (lstRegroupement)

Quand tu aura vu ca, tu pourra en deduire quand mettant ca dans ton WHERE, tu aura une requete dynamique !

**Demco** · 18/05/2006, 15h48

Envoyé par PAULOM

En fait c'est juste le code de david qui se repete dans une petite fenetre, il ya aucun resultat qui s'affiche^^

Bon écoute ... soit c'est un message d'erreur que tu vois dans ce cas dis le nous. Soit c'est ce qui s'affiche dans la fenetre d'execution et dans ce cas la pour la troisieme fois peux tu nous montrer ce contenu ? Merci.

**PAULOM** · 18/05/2006, 15h51

Envoyé par DavidDeTroyes

Peut tu essayer aussi un :

Code :

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

1
2
 
msgbox  [Forms]![Formulaire1]![lstRegroupement].Text

Histoire que tu voit que ca te ressort bien la velur de ta liste (lstRegroupement)

Quand tu aura vu ca, tu pourra en deduire quand mettant ca dans ton WHERE, tu aura une requete dynamique !

J'ai créé un autre bouton puis j'ai mis ce code david, et la il me met une erreure quand je choisis un choix et je clik sur le bouton:

"Erreur d'éxecution 438, propriété ou methode non geré par cet objet"
En prenant ce code/

Code :

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

1
2
3
4
Private Sub Commande8_Click()
MsgBox [Forms]![Formulaire1]![lstRegroupement].Text
 
End Sub

**Demco** · 18/05/2006, 15h53

Il s'agit d'une zone de liste donc fais plutot :

Code :

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

1
2
3
Private Sub Commande8_Click()
MsgBox [Forms]![Formulaire1]![lstRegroupement].column(0)
End Sub

**PAULOM** · 18/05/2006, 15h54

Envoyé par Demco

Bon écoute ... soit c'est un message d'erreur que tu vois dans ce cas dis le nous. Soit c'est ce qui s'affiche dans la fenetre d'execution et dans ce cas la pour la troisieme fois peux tu nous montrer ce contenu ? Merci.

Une nouvelle fenetre s'affiche quand j'ai fais un choix:

SELECT CIBLES.Idglob, Sum(Tab_Argus_Vendus.Nombre) AS SommeDeNombre INTO [T-03_Temp_PDT1] FROM ((CIBLES INNER JOIN [Corr IDGLOB Part] ON CIBLES.Idglob = [Corr IDGLOB Part].[Identifiant synthese vision globale]) INNER JOIN Tab_Argus_Vendus ON [Corr IDGLOB Part] .[Numero de partenaire] = Tab_Argus_Vendus.Partenaire) INNER JOIN Produit_famille ON (Tab_Argus_Vendus.Type_Resultat = Produit_famille.[Identifiant Type de Resultat]) AND (Tab_Argus_Vendus.Produit = Produit_famille.[Cd Reference Produit Service])((CIBLES.Codebis1)=1) WHERE (((Produit_famille.Regroupement)=")

AND ((CIBLES.Codebis1)=1)AND ((Tab_Argus_Vendus.Date) Between #1/23/2006# And #2/18/2006#)) GROUP BY CIBLES.Idglob HAVING (((Sum(Tab_Argus_Vendus.Nombre))>0));"

**PAULOM** · 18/05/2006, 15h56

Envoyé par Demco

Il s'agit d'une zone de liste donc fais plutot :

Code :

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

1
2
3
Private Sub Commande8_Click()
MsgBox [Forms]![Formulaire1]![lstRegroupement].column(0)
End Sub

Alors la ça marche, affichage d'une fenetre avec le produit choisi dans la liste!
On est sur la bonne voie

**Demco** · 18/05/2006, 16h02

SELECT CIBLES.Idglob, Sum(Tab_Argus_Vendus.Nombre) AS SommeDeNombre INTO [T-03_Temp_PDT1] FROM ((CIBLES INNER JOIN [Corr IDGLOB Part] ON CIBLES.Idglob = [Corr IDGLOB Part].[Identifiant synthese vision globale]) INNER JOIN Tab_Argus_Vendus ON [Corr IDGLOB Part] .[Numero de partenaire] = Tab_Argus_Vendus.Partenaire) INNER JOIN Produit_famille ON (Tab_Argus_Vendus.Type_Resultat = Produit_famille.[Identifiant Type de Resultat]) AND (Tab_Argus_Vendus.Produit = Produit_famille.[Cd Reference Produit Service])((CIBLES.Codebis1)=1) WHERE (((Produit_famille.Regroupement)=")

AND ((CIBLES.Codebis1)=1)AND ((Tab_Argus_Vendus.Date) Between #1/23/2006# And #2/18/2006#)) GROUP BY CIBLES.Idglob HAVING (((Sum(Tab_Argus_Vendus.Nombre))>0));"

Tu vois bien que regroupement n'est egal a rien. C'est ce que je voulais savoir depusi le debut ... Trois fois que je te le demande on aurait economiser des messages et surtout du temps si tu l'avais montre directement ...

Dans ta requete essaie donc [Forms]![Formulaire1]![lstRegroupement].column(0)

**PAULOM** · 18/05/2006, 16h05

Envoyé par Demco

Tu vois bien que regroupement n'est egal a rien. C'est ce que je voulais savoir depusi le debut ... Trois fois que je te le demande on aurait economiser des messages et surtout du temps si tu l'avais montre directement ...

Désolé j'ai pas les déclics, et je pensais que c'etait exactement le meme code que celui de David c'est pour cela que j'ai pas tilter; désolé

.

SELECT CIBLES.Idglob, Sum(Tab_Argus_Vendus.Nombre) AS SommeDeNombre INTO [T-03_Temp_PDT1] FROM ((CIBLES INNER JOIN [Corr IDGLOB Part] ON CIBLES.Idglob = [Corr IDGLOB Part].[Identifiant synthese vision globale]) INNER JOIN Tab_Argus_Vendus ON [Corr IDGLOB Part] .[Numero de partenaire] = Tab_Argus_Vendus.Partenaire) INNER JOIN Produit_famille ON (Tab_Argus_Vendus.Type_Resultat = Produit_famille.[Identifiant Type de Resultat]) AND (Tab_Argus_Vendus.Produit = Produit_famille.[Cd Reference Produit Service])((CIBLES.Codebis1)=1) WHERE (((Produit_famille.Regroupement)='ARGENT FRAIS' (C'est le produit que j'ai choisi))

AND ((CIBLES.Codebis1)=1)AND ((Tab_Argus_Vendus.Date) Between #1/23/2006# And #2/18/2006#)) GROUP BY CIBLES.Idglob HAVING (((Sum(Tab_Argus_Vendus.Nombre))>0));"

**Demco** · 18/05/2006, 16h08

Envoyé par PAULOM

Donc en fait le regroupement ne s'affiche pas c'est là le probleme non?

Oui, essaie donc de mettre [Forms]![Formulaire1]![lstRegroupement].column(0) dans le SQL.

**PAULOM** · 18/05/2006, 16h11

Envoyé par Demco

Oui, essaie donc de mettre [Forms]![Formulaire1]![lstRegroupement].column(0) dans le SQL.

Désolé j'ai editer mon message^^

Donc là il me prend le bon produit et à la bonne place donc pourquoi la requête ne se lance pas!

**Demco** · 18/05/2006, 16h11

d'apres ce que tu as dit ca devrait etre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SELECT CIBLES.Idglob, Sum(Tab_Argus_Vendus.Nombre) AS SommeDeNombre INTO [T-03_Temp_PDT1]
FROM ((CIBLES INNER JOIN [Corr IDGLOB Part]
ON CIBLES.Idglob 
= [Corr IDGLOB Part].[Identifiant synthese vision globale])
 INNER JOIN Tab_Argus_Vendus ON [Corr IDGLOB Part]
.[Numero de partenaire] 
= Tab_Argus_Vendus.Partenaire) INNER JOIN Produit_famille 
ON (Tab_Argus_Vendus.Type_Resultat = 
Produit_famille.[Identifiant Type de Resultat]) AND (Tab_Argus_Vendus.Produit = 
Produit_famille.[Cd Reference Produit Service])
WHERE (((Produit_famille.Regroupement)=[Forms]![Formulaire1]![lstRegroupement].column(0)) AND ((CIBLES.Codebis1)=1) AND ((Tab_Argus_Vendus.Date)
 Between #1/23/2006# And #2/18/2006#))
GROUP BY CIBLES.Idglob
HAVING (((Sum(Tab_Argus_Vendus.Nombre))>0));

**PAULOM** · 18/05/2006, 16h18

Envoyé par Demco

d'apres ce que tu as dit ca devrait etre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SELECT CIBLES.Idglob, Sum(Tab_Argus_Vendus.Nombre) AS SommeDeNombre INTO [T-03_Temp_PDT1]
FROM ((CIBLES INNER JOIN [Corr IDGLOB Part]
ON CIBLES.Idglob 
= [Corr IDGLOB Part].[Identifiant synthese vision globale])
 INNER JOIN Tab_Argus_Vendus ON [Corr IDGLOB Part]
.[Numero de partenaire] 
= Tab_Argus_Vendus.Partenaire) INNER JOIN Produit_famille 
ON (Tab_Argus_Vendus.Type_Resultat = 
Produit_famille.[Identifiant Type de Resultat]) AND (Tab_Argus_Vendus.Produit = 
Produit_famille.[Cd Reference Produit Service])
WHERE (((Produit_famille.Regroupement)=[Forms]![Formulaire1]![lstRegroupement].column(0)) AND ((CIBLES.Codebis1)=1) AND ((Tab_Argus_Vendus.Date)
 Between #1/23/2006# And #2/18/2006#))
GROUP BY CIBLES.Idglob
HAVING (((Sum(Tab_Argus_Vendus.Nombre))>0));

Si je met ce code tout devient rouge

**DavidDeTroyes** · 18/05/2006, 16h23

Desolé c'etait pas Text mais Value que je voulais dire (pour remplacer column(0) mais ca revient exactemment au meme)

**PAULOM** · 18/05/2006, 16h26

Envoyé par DavidDeTroyes

Desolé c'etait pas Text mais Value que je voulais dire (pour remplacer column(0) mais ca revient exactemment au meme)

Avec value j'ai une erreur mais avec column(0) pas d'erreur!!!

**DavidDeTroyes** · 18/05/2006, 16h35

Normalement non mais ne relancons pas un autre problème

Maintenant que tu arrive a avoir une requete dynamique, tu as plus qu'as l'exploiter. J'imagine que tu veut afficher une liste de ta table en fonction de la requete SQL. Donc tu n'as plus qu'as mettre un zoli bouton et une zone de liste dont tu change la requete de source par ta propre requete.

**PAULOM** · 18/05/2006, 16h43

Envoyé par DavidDeTroyes

Normalement non mais ne relancons pas un autre problème

Maintenant que tu arrive a avoir une requete dynamique, tu as plus qu'as l'exploiter. J'imagine que tu veut afficher une liste de ta table en fonction de la requete SQL. Donc tu n'as plus qu'as mettre un zoli bouton et une zone de liste dont tu change la requete de source par ta propre requete.

Mais en fait c'est pas obligé, je souhaite pas forcément voir tout de suite les resultats, car cette requete va alimenter une table qui elle va alimenter un tableau excel tu vois?

**PAULOM** · 18/05/2006, 16h44

Envoyé par PAULOM

Mais en fait c'est pas obligé, je souhaite pas forcément voir tout de suite les resultats, car cette requete va alimenter une table qui elle va alimenter un tableau excel tu vois?

On se reparle demain car là je dois m'absenter, en tout cas merci beaucoup à vous 2!!!!!!

Ne m'oubliez pas^^

**PAULOM** · 19/05/2006, 09h13

En fait j'aimerais juste lancer une requete selon le choix de mon menu deroulant à choix multiples, et je n'arrive pas realiser ma requete en fonction de mes choix.

**Demco** · 19/05/2006, 09h49

Envoyé par PAULOM

Désolé j'ai editer mon message^^

Donc là il me prend le bon produit et à la bonne place donc pourquoi la requête ne se lance pas!

Code :

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

1
2
3
4
5
 Private Sub Commande7_Click()
monSQL = "SELECT CIBLES.Idglob, Sum(Tab_Argus_Vendus.Nombre) AS SommeDeNombre INTO [T-03_Temp_PDT1] FROM ((CIBLES INNER JOIN [Corr IDGLOB Part] ON CIBLES.Idglob = [Corr IDGLOB Part].[Identifiant synthese vision globale]) INNER JOIN Tab_Argus_Vendus ON [Corr IDGLOB Part] .[Numero de partenaire] = Tab_Argus_Vendus.Partenaire) INNER JOIN Produit_famille ON (Tab_Argus_Vendus.Type_Resultat = Produit_famille.[Identifiant Type de Resultat]) AND (Tab_Argus_Vendus.Produit = Produit_famille.[Cd Reference Produit Service])((CIBLES.Codebis1)=1) WHERE (((Produit_famille.Regroupement)=" & [Forms]![Formulaire1]![lstRegroupement].column(0) & ") AND ((CIBLES.Codebis1)=1)AND ((Tab_Argus_Vendus.Date) Between #1/23/2006# And #2/18/2006#)) GROUP BY CIBLES.Idglob HAVING (((Sum(Tab_Argus_Vendus.Nombre))>0));"
 
Debug.Print monSQL
End Sub

Ce code ne fait qu'afficher dans la fenetre la requete c'est normal que rien ne s'execute.
Si tu veux juste afficher les resultats de la requete creers un nouvelle requete avec le code:

Code :

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

SELECT CIBLES.Idglob, Sum(Tab_Argus_Vendus.Nombre) AS SommeDeNombre INTO [T-03_Temp_PDT1] FROM ((CIBLES INNER JOIN [Corr IDGLOB Part] ON CIBLES.Idglob = [Corr IDGLOB Part].[Identifiant synthese vision globale]) INNER JOIN Tab_Argus_Vendus ON [Corr IDGLOB Part] .[Numero de partenaire] = Tab_Argus_Vendus.Partenaire) INNER JOIN Produit_famille ON (Tab_Argus_Vendus.Type_Resultat = Produit_famille.[Identifiant Type de Resultat]) AND (Tab_Argus_Vendus.Produit = Produit_famille.[Cd Reference Produit Service])((CIBLES.Codebis1)=1) WHERE (((Produit_famille.Regroupement)=" & [Forms]![Formulaire1]![lstRegroupement].column(0) & ") AND ((CIBLES.Codebis1)=1)AND ((Tab_Argus_Vendus.Date) Between #1/23/2006# And #2/18/2006#)) GROUP BY CIBLES.Idglob HAVING (((Sum(Tab_Argus_Vendus.Nombre))>0));

Et sur click du bouton lance la requete (Docmd.RunQuery)

**PAULOM** · 19/05/2006, 10h03

Merci demco,
J'ai fait une autre requete avec le code que tu m'a donné, mais par contre il me dit qu'il ya une erreur de syntaxe d'un . ! ou () sur [Corr IDGLOB Part].[Numero de partenaire] = Tab_Argus_Vendus.Partenaire).

ET la commande "(Docmd.RunQuery)" je la met dans le code?et comment?

Merci à toi.

Zone de liste déroulante + requete

Access

Discussions similaires

Partager

Partager