Discussion :

[Demco]

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

Un minimum de recherche s'impose. Tape Docmd.RunQuery dans un module et appuie sur f1. Ou regarde sur google, ou dans la fonction rechercher du forum ... ptet meme dans la FAQ. Cet information est partout.

[PAULOM]

J'ai effectuer des recherches t'inquiete pas.
Mais je vois ce que je peux mettre apres DoCmd.RunQuery le nom de ma requete?



Bref je suis sur que tu connais la réponse mais tu veux que je me force à chercher pour eviter qu'on m'amene tout comme ça, merci de l'entraide....

[Demco]

Bref je suis sur que tu connais la réponse mais tu veux que je me force à chercher pour eviter qu'on m'amene tout comme ça, merci de l'entraide....

Je pense que j'ai perdu assez de temps hier tout simplement parce que tu refusais de repondre a nos questions pour ne pas prendre cette remarque avec le sourire. Entre-aide ne signifie ni sous-traitance ni a ta disposition lorsque tu le desire.

J'espere que tu te rendras tres rapidement compte que la recherche occupe une grande place dans le metier de programmeur ... Et là de toute facon ce n'est meme pas de la rechercher, tu connais deja la commande tu as juste a consulter l'aide donc il ne faut pas exagerer.

Bon courage a toi pour la suite.

[PAULOM]

Je pense que j'ai perdu assez de temps hier tout simplement parce que tu refusais de repondre a nos questions pour ne pas prendre cette remarque avec le sourire. Entre-aide ne signifie ni sous-traitance ni a ta disposition lorsque tu le desire.

J'espere que tu te rendras tres rapidement compte que la recherche occupe une grande place dans le metier de programmeur ... Et là de toute facon ce n'est meme pas de la rechercher, tu connais deja la commande tu as juste a consulter l'aide donc il ne faut pas exagerer.

Bon courage a toi pour la suite.

J'suis d'accord avec toi, mais je passe mon temps à chercher partout et quand tu m'a dit ça j'étais un peu enervé je te l'accorde, je suis un novice en Access donc quand tu me dit une commande pour moi je me questionne:
Ou je dois le mettre?
Dans quel partie du code?
Quel est sa syntaxe?

Bref toute ces questions ne sont pas dans l'aide (F1) seul une personne competente et agréable peut m'aider, je pensais que cela servait à ça un forum^^
J'te remercie vraiment pour le temps que tu ma consacré.

[DavidDeTroyes]

retire l'espace avant le .

[PAULOM]

retire l'espace avant le .

En fait voici ma requete qui marche pour un produit definie:

Code :

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

1
2
3
4
5
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.Produit = Produit_famille.[Cd Reference Produit Service]) AND (Tab_Argus_Vendus.Type_Resultat = Produit_famille.[Identifiant Type de Resultat])
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));

Donc je souhaite juste changer ce que j'ai mis en gras par Forms!Formulaire1!lstRegroupement

Et voici ma requete pour les items choisis mais qui ne marche pas pour l'instant, j'en suis sur c'est une connerie de ponctuation.

Code :

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

1
2
3
4
5
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));

Merci à toi David.

[DavidDeTroyes]

En fait voici ma requete qui marche pour un produit definie:

Code :

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

1
2
3
4
5
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.Produit = Produit_famille.[Cd Reference Produit Service]) AND (Tab_Argus_Vendus.Type_Resultat = Produit_famille.[Identifiant Type de Resultat])
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));

Donc je souhaite juste changer ce que j'ai mis en gras par Forms!Formulaire1!lstRegroupement

Et voici ma requete pour les items choisis mais qui ne marche pas pour l'instant, j'en suis sur c'est une connerie de ponctuation.

Code :

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

1
2
3
4
5
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));

Merci à toi David.

Code :

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

1
2
3
4
5
6

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.Produit = Produit_famille.[Cd Reference Produit Service]) AND (Tab_Argus_Vendus.Type_Resultat = Produit_famille.[Identifiant Type de Resultat])
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]

Idem David toujours zéro résultats!!!
Si ça provient pas de la requête cela peut provenir de ma macro non?

[DavidDeTroyes]

Possible...

Comme disais mon grand maitre quand j'etait moine shaolin : "Donne lui à manger et il mangerai une fois, apprend lui a pecher et il mangera tout sa vie"...

[PAULOM]

Possible...

Comme disais mon grand maitre quand j'etait moine shaolin : "Donne lui à manger et il mangerai une fois, apprend lui a pecher et il mangera tout sa vie"...

Bien sympa ce petit proverbe

Mais je pense pas car la macro est toute simple quand meme, ouvrirRequete et puis je choisis la bonne requete...

ça m'enerve je sais que je suis si pres du but^^

Merci à toi en tout cas.

[PAULOM]

Je suis pratiquement sur qu'il ya un probleme de "", je pense qu'il reconnaisse que c'est du texte!

Quand je fais un bouton de commande avec:

Code :

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

1
2
3
4
 
Private Sub Commande13_Click()
MsgBox Forms!Formulaire1!lstRegroupement.Column(0)
End Sub

Et ça m'affiche bien mon choix(mais sans les ""), mais dans la requete le code est de cette forme;

Code :

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

1
2
 
"[Forms]![Formulaire1]![lstRegroupement].Column(0)"

Donc il manque les "" dans la formule pour les voir s'afficher et considéré que le choix choisit et en format texte car la je pense qu'il reconnait ma mon choix dans la liste.

[DavidDeTroyes]

Tu y es presque, petit scarabé...