Faire une cumul par ligne dans une table access avec du code

[Résolu]
Signaler
Messages postés
190
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
29 avril 2009
-
Messages postés
190
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
29 avril 2009
-
bjr
je souhaite faire une somme cumulée dans un table access, par du code vb6.
exemple:
col.1 CUMUL
2.00 2.00
1.30 3.30
1.00 4.30
la col.1 est une saisie ds un form avec validation, la col.cumul sera donc le cumul recalculé apres validation et enregistré dans la base .

lorsque j'écris:
With ADOREST

For x = 1 To NbrEnreg
y = y + .Fields(2)
Next
End With

il ne me prend que la premiere ligne, et donc si il y a 3 lignes il les aditionne trois fois.....
x s'incremente bien a chaque next, mais .fields(2) qui correspond a la col.,
que je souhaite se cumuler, reste tjrs sur cette premiere ligne....

quelqu'un peut'il maider.....

merci d'avance
patrik

4 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
124
enlève le .recordset alors.

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
124
Il faut te déplacer dans tes enregistrements, là tu ne fait que cumuler la même valeur :
With ADOREST
    While not (.Recordset.EOF)
            y = y + .Fields(2)
            .Recordset.MoveNext
    Wend
End With

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
Messages postés
190
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
29 avril 2009
1
merci
mais le ".recordset " il a pas aimé;
il me dit "méthode ou membre de donnée introuvable"
ADOREST est :
Set adoSort = New adodb.Recordset
Set adoSort = ADOREST
Messages postés
190
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
29 avril 2009
1
merci beaucoup