donc voila mon probleme j'effectue des calculs dsur des recordset et j'y ai mis une boucle ki va jusqu'a la fin de celui ci ou je compare la ligne precedente et si elle est differente alors l'incrementation dans la tables se fait mais le probleme c'est que le dernier calcul ne rentre pas en compte étant donné que la boucle vois qu'elle est a la fin du fichier et que je ne peux pas la comparé avec le fichier d'apres (vu qu'il n' en a pas ^^)
voici un extrait de 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 While Not rst1.EOF If source <> rst1.Fields("IDENTIFIANT INSTALLATION") Then rst4.MoveFirst Do 'ajout dans la table détailler If Not IsNull(rst4.Fields("prestbase")) Then If CDbl(Val(rst4.Fields("prestbase"))) = rst1.Fields("IDENTIFIANT INSTALLATION") Then MsgBox ("ajout ds détailler") rst3.AddNew rst3.Fields("prestation_id") = rst4.Fields("prestation_id") rst3.Fields("consoligne") = TOTconsoligne rst3.Fields("N__Facture") = rst5("NUMERO FACTURE") rst3.Fields("N__Compte_Opera") = rst5("COMPTE DE FACTURATION") rst3.Update TOTabtprest = 0 TOTconsoligne = 0 TOTaccesPrest = 0 TOTdiversPrest = 0 TOTremisePrest = 0 Exit Do Else: rst4.MoveNext End If Else: rst4.MoveNext End If Loop While Not rst4.EOF Else: TOTconsoligne = rst1.Fields("montant appel") + TOTconsoligne End If MsgBox (rst1.Fields("IDENTIFIANT INSTALLATION")) source = rst1.Fields("IDENTIFIANT INSTALLATION") rst1.MoveNext Wend
Partager