Bonjour
j'ai utilisé la variable variant pour extraire un enregistre et le comparer avec l'enregistrement précédent
mais je pense qui'il y a une erreur dans le nombre d'enregistrement de array voilà l'erreur
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
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
Partager