est je veut faire une msflixgrid au quelle je peut regrouper ls code , sum(qté1+qté2) avec condition que la date soit entre deux date comme suite:
si on a la date entre 01/09/2008 et 04/09/2008 soit la resultat
LIBRE_MAX
Messages postés1402Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention 7 octobre 20126 9 sept. 2008 à 00:23
si tout est dans ta table ACHATS, voici l' expression SQL qui te renvoie le résultat demandé :
"SELECT ACHATS.Code, ACHATS.Prix, Sum([ACHATS]![Qte1]+[ACHATS]![Qte2]) AS QTE, (Sum([ACHATS]![Qte1]+[ACHATS]![Qte2])*[ACHATS]![Prix]) AS TOTAL
FROM ACHATS
GROUP BY ACHATS.Code, ACHATS.Prix, [ACHATS]![Date_Achat]
HAVING ((([ACHATS]![Date_Achat])>=#" & d1 & "# And ([ACHATS]![Date_Achat])<=#" & d2 & "#));"
Il faudra la mettre en forme avec les retiur à la ligne, bien sûr !
Quand au code VB6, fait une recherche dans le forum sur :
Comment éxécuter une requete à partir de VB6.
LIBRE_MAX
Messages postés1402Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention 7 octobre 20126 10 sept. 2008 à 02:28
Salut, cher ami, t' as pas bien lu ce que t' ai mis !
En plus du .Value qui manque , pour qu' une variable soit prise comme date il faut des dièses de part et d' autre de cette variable.
Comme ceci:
LIBRE_MAX
Messages postés1402Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention 7 octobre 20126 8 sept. 2008 à 22:01
Bnsoir,
Il faudrait savoir d' ou tu tiens le prix..
Si c' est d' une autre table (Table2) liée à Table1 par le champ code,
A première vue, ta requete peut se présenter ainsi:
"SELECT Table1.Code, Sum(Table1.Qte1+Table1.Qte2) As QTE, Table2.Prix, (QTE*Table2.Prix) As Total From Table1 INNER JOINT ON Table1.Code=Table2.Code GROUP BY Table1.Code Where
Table1.Date_Achat>+#" & xDat1 & "# AND Table1.Date_Achat<+#" & xDat2 & "#"
Pas testé..
C' est tapé direct.
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Vous n’avez pas trouvé la réponse que vous recherchez ?
joseph6610
Messages postés25Date d'inscriptionmercredi 20 juillet 2005StatutMembreDernière intervention10 septembre 2008 10 sept. 2008 à 01:49
salut tous le monde
Private Sub Form_Load()
Me.MSFlexGrid1.Clear
Dim Req As String
Dim rep2 As String
Dim DTPicker1 As String
Dim DTPicker2 As String
DTPicker1 = MakeUSDate(Me.DTPicker1)
DTPicker2 = MakeUSDate(Me.DTPicker2)
Req = "SELECT achat.code,sum([achat]![qtmatin]+[achat]!qtam) as total FROM achat group by code "
-------------------------------------------------------
juste ici tous marche bien
mais la suite ca marche pas pour les date:ereur
Req = Req & " having (( ([achat]![date])>= " & DTPicker1 & " AND ([achat]![date])<= " & DTPicker2 & ")); "
vous trouver l'ereur sur l'image suivante:
http://www.boostupload.com/img.php?i=image_024_ereur.png
svp qui me donne la bonne code
je suis intersse par le code vb6