petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 2013
-
11 oct. 2009 à 15:12
petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 2013
-
12 oct. 2009 à 17:37
Bonjour si je fait
Set db = OpenDatabase(App.Path & "\cloture.mdb")
toto = Mid(File1, 4, 5)
Set rs = db.OpenRecordset("select SUM(vat.total_hors_tva) As titi FROM VAT WHERE VAT.num_periode='" & toto & "' group by num_dep")
si je regroupe comme ceci = group by num_dep
et que dans mon num_dep j'ai
11,12,13,14,15
et dans num_periode j'ai toto = 04700 c'est le toto dans la requete
il me donne toujour le total qui corespond a 11
comment faire pour avoir les autre ??
msgbox = rs!titi (il me donne le total pour le 11)
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 12 oct. 2009 à 11:27
Salut
Je te l'ai déjà dit : Il faut parcourir les résultats de ton RecordSet.
Lire rs!titi seulement ne donne qu'une des réponses stockée dans le rs.
Il te suffit de lire n'importe quelle source qui traite les RecordSet pour apprendre comment faire : lire le rs.RecordCount + faire une boucle Do-Loop et jouer avec .MoveNext ...
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 20131 12 oct. 2009 à 17:37
Bonjour Jack et merci
j' ai bien compris ce que tu me dit
mais quand
Set rs = db.OpenRecordset("select SUM(vat.total_hors_tva) As titi FROM VAT WHERE VAT.num_periode='" & toto & "' group by num_dep")
If IsNull(rs!titi) Then
Exit Sub
Else
On Error GoTo vide
Do While Not rs.EOF
List1.AddItem rs!titi' ici sort le resultat ok, mais d'ou vienne t'il, comment savoir si il sont du 11,12,13,14????
rs.MoveNext
Loop