erreur 91 sur boucle WHILE WEND avec recordset [Résolu]

[forzaxelah]

Bonsoir,
J'ai une erreur 91 "Variable objet ou variable bloc with non définie"...

Ce qui m'étonne c'est que le While... Wend fonctionne bien mais lors du dernier enregistrement avant EOF il retourne sur WHILE et c'est là qu'il affiche le message d'erreur:
Voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Set db = Nothing
                Set rst = Nothing
                SQL = "SELECT [T_ACI].[CL_2] FROM [T_ACI] WHERE [T_ACI].[LCN associé] = '" & LCN & "' AND [CL_1] = 'M01';"
                Set db = CurrentDb
                Set rst = db.OpenRecordset(SQL, dbOpenDynaset)
                While Not rst.EOF
                    For i = 1 To Nb
                        rst.Edit
                        rst.Fields("CL_2") = 10 * i
                        rst.Update
                        rst.MoveNext
                    Next i
                    rst.Close
                    db.Close
                    Set db = Nothing
                    Set rst = Nothing
                Wend

Ou ai je fauté???

[f-leb]

bonsoir,

j'essaye de deviner l'intention...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Set db = Nothing
                Set rst = Nothing
                SQL = "SELECT [T_ACI].[CL_2] FROM [T_ACI] WHERE [T_ACI].[LCN associé] = '" & LCN & "' AND [CL_1] = 'M01';"
                Set db = CurrentDb
                Set rst = db.OpenRecordset(SQL, dbOpenDynaset)
                i=0
                While Not rst.EOF
                   i=i+1  
                        rst.Edit
                        rst.Fields("CL_2") = 10 * i
                        rst.Update
                        rst.MoveNext
 
                Wend 
                    rst.Close
                    db.Close
                    Set db = Nothing
                    Set rst = Nothing

non ?

[forzaxelah]

yes! Merci!
J'aurais pu réfléchir un peu plus pour éviter de faire la requête COUNT et de faire une boucle FOR...NEXT pour rien...
Merci beaucoup!