Bonjour,

Depuis une semaine je tourne en rond sur ce 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
Private Sub Form_Activate()
 
Dim dB As DAO.Database
Dim ORst As DAO.Recordset
Dim Rouge As Long
Dim StrLong As Variant
Dim Count As Long
 
 
Set dB = CurrentDb
Set ORst = dB.OpenRecordset(Requete7) ‘ c’est une requete regroupement
StrLong = ORst.Fields("Balance")
Count = ORst.RecordCount
 
ORst.MoveFirst
For i = 0 To Count
Count = Count - 1
 
MsgBox (Count)
MsgBox (strlong)
 
ORst.MoveNext
Next i
 
End Sub
La boucle s'effectue réellement, mais les valeurs de champs (StrLong) sont toujours les mêmes, donnant l'impressin que "movenext" ne fonctionne pas.
Ou est l'erreur?

Merci