Bonjour
j'ai utilisé la variable variant pour extraire un enregistre et le comparer avec l'enregistrement précédent
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
33
34
35
 
Dim Array1 As Variant
j = 0
li.MoveFirst
nbr = li.RecordCount
 
If (li.RecordCount > 0) Then
 
Array1 = li.GetRows(nbr)
 
For i = 0 To li.RecordCount - 2
j = i + 1
D1 = li.Fields("DateFacture")
 
If Not IsNull(li.Fields("NDossier")) Then
ndossier = li.Fields("NDossier")
End If
ndossier2 = Array1(6, j)
D2 = Array1(20, j)
If Not IsNull(ndossier2) Then
Typ2 = ndossier2
End If
If (li.Fields("TypeFacture") = "Livraison Client" And Array1(19, j) = "Livraison Client") Then
If ndossier = Typ2 Then
If D1 = D2 Then
 
total2 = li2.Fields("total02") + total2
End If
End If
End If
 
'li.Fields("total03") = li.Fields("total03") - total2
  li.MoveNext
Next
End If
mais je pense qui'il y a une erreur dans le nombre d'enregistrement de array voilà l'erreur
BOf ou EOF est égal à true ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel
mercii d'avance