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