Bonsoir au Forum,

J'ai un petit problème de dépassement de capacité sur un listCount.
Le but est de calculer la somme de ma colonne Montant pour que ce dernier s'affiche dans un champs indépendant.

L'erreur se produit sur : lSum = lSum + CLng(Me.lstResults.Column(8, i))
Voici mon code sous access 2007:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim i As Integer, lSum As Long
Dim im As Long, ix As Long
 
If Me.lstResults.ColumnHeads = True Then im = 1 Else im = 0
ix = Me.lstResults.listCount - 1
For i = im To ix
   lSum = lSum + CLng(Me.lstResults.Column(8, i))
Next
 
IntTotal = lSum
Merci de pouvoir m'éclairer

Cordialement