Dépassement de capacité LisCount [Résolu]

[Line]

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 :

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

[stigma]

Code :

Dim i as Long

IntTotal est déclaré où ?

[Line]

Bonjour Stigma,

Et bien je dois dire que je passais sur la solution sans m'apercevoir de cet erreur si banale.
Le nez trop collé à l'écorce je n'en voyais pas l'arbre.

Ça fonctionne.

Pour répondre à ta question, IntMontant est un champs indépendant du formulaire. Je vais corriger pour Me.IntMontant.

Milles mercis.

Cordialement

Line