Zone de liste déroulante + requete

**PAULOM** · 18/05/2006, 11h08

Bonjour à tous,

J'ai une liste modifiable à choix multiples dans un formulaire (Formulaire1), en parallele j'ai des requetes SQL que j'aimerais changer, les conditions selon les items choisis.
J'ai effectuer quelques recherches et j'ai trouvé cette formule à remplacer par rapport aux champs qui changent selon mes choix:

[Forms]![Nom_du_Formulaire]![Nom_de_la_liste]

Et dans mon exemple ça donne cela:

[Forms]![Formulaire1]![lstRegroupement]

mais quand je remplace cette formule dans un HAVING ma requete ne fonctionne pas.

Merci à vous pour votre aide.

**Demco** · 18/05/2006, 11h24

Bonjour,

Ayant perdu mon talent divinatoire il y a peu je suis dans l'incapacité de me representer ta requete, pourrais-tu nous montrer ton SQL ?

**DavidDeTroyes** · 18/05/2006, 11h39

Si ta liste s'appele Liste1, tu fait :

"SELECT * FROM TaTable WHERE TonChamp = " & Liste1.Value

Mais c'ets vrai que je t'aide à l'aveugle, là

**PAULOM** · 18/05/2006, 11h39

Envoyé par Demco

Bonjour,

Ayant perdu mon talent divinatoire il y a peu je suis dans l'incapacité de me representer ta requete, pourrais-tu nous montrer ton SQL ?

OK voici mon 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
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)="LIVRET") 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));

En fait je souhaite rempacer le mot "LIVRET" par l'item choisi et donc la requete sera modifier et marchera.
Merci à toi.

**Demco** · 18/05/2006, 12h27

En suivant les instructions de David ainsi que de la FAQ je pense que tu trouveras facilement la symtaxe

**PAULOM** · 18/05/2006, 13h35

Envoyé par Demco

En suivant les instructions de David ainsi que de la FAQ je pense que tu trouveras facilement la symtaxe

En fait le petit souci je sais pas où mettre son code dans le formulaire hormis dans "Donnees/SOurces" mais j'ai deja une requete ici donc je vois pas...

Et malheureusement dans la FAQ je vois pas mon probleme, bref j'ai du mal!
Désolé j'suis assez mauvais en Access!!!

**Alexandre Sahli** · 18/05/2006, 13h47

bonjour,

Paulon écrit:
liste modifiable à choix multiples

une liste modifiable à choix multiples çà n'existe pas dans ma version d'access

d'autre par il faudrait savoir où se trouve ta requête.

Est-ce une requête que tu crées avec un string dans du code VBA ou est-ce une requête créé avec l'éditeur de requête car c'est évidement un peu différent.

**Demco** · 18/05/2006, 13h51

Envoyé par PAULOM

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)="LIVRET") 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 avais toi meme cité la solution dans le premier message me semble-t-il:

[Forms]![Formulaire1]![lstRegroupement]

Que te donne:

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]) 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, 14h07

En fait justement ça me donne rien.
Je crois la où c'est faux, c'est qu'il doit pas savoir lequel de mes items que j'ai choisi, il doit tourner dans le vide,je sais pas si il prend note de ma selection.

Mais lorsque je lance ma requete, il met aucune erreur et il me dit "0 lignes ajoutés".

Merci beaucoup pour ton aide....

**Demco** · 18/05/2006, 14h30

Si tu appelles ta requete depuis un bouton, sur ce bouton mets le code suivant:

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
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] & "') ANDAND ((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

Ainsi la requete s'afficheras dans la fenetre d'execution et tu pourras voir ce qui cloche.

PS : si regroupement est numerique enleve les deux '

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

Voila j'ai creer mon bouton je suis allé "sur clic" ... puis code.
Et j'ai copier 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
18
Private Sub Commande7_Click()
End Sub
 
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] & "') 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

Mais le probleme c'est qu'il comprend pas le code il est tout rouge et donc ça marche pas.

Désolé j'ai du oublier une etape...

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

Deja, le end sub doit etre a la fin.

Ensuite si ca ne marche toujours pas enleve les retour a la ligne et mets tout sur une ligne. (on s'en fiche de la presentation c'est pour un test ...)

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

Envoyé par Demco

Deja, le end sub doit etre a la fin.

Ensuite si ca ne marche toujours pas enleve les retour a la ligne et mets tout sur une ligne. (on s'en fiche de la presentation c'est pour un test ...)

En fait quand je clik sur le bouton rien ne lance donc je pense pas que ça marche de cette façon.

Et quand je le lance à partir du module, il me demande " le nom d'une macro".

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

Met ca dans ta page de code et dit nous :

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] & "') 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));"
Msgbox monSQL
End Sub

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

Envoyé par DavidDeTroyes

Met ca dans ta page de code et dit nous :

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] & "') 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));"
Msgbox monSQL
End Sub

Si je fais de ta façon David, quand je clik sur le bouton j'ai un message me repetant le code de la requete^^

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

Envoyé par PAULOM

Si je fais de ta façon David, quand je clik sur le bouton j'ai un message me repetant le code de la requete^^

Ca tombe bien c'est ce que l'on veut.

Verifie que
'" &[Forms]![Formulaire1]![lstRegroupement] & "' ait bien ete remplace par la bonne valeur.

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

Et ca te donne le contenue de ta liste ?

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

Envoyé par Demco

Ca tombe bien c'est ce que l'on veut.

Verifie que
'" &[Forms]![Formulaire1]![lstRegroupement] & "' ait bien ete remplace par la bonne valeur.

Meme en mettant ce code:

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] & "') 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