Discussion :

[GreatTeacherOnizuka]

Bonjour,

Je cherche à coder une petite sub qui a l'air de fonctionner sauf quand je vais chercher la dernière ligne de ma requête, où là on me dit aucun enregistrement en cours.

J'ai fait plusieurs essais et rien ne marche, je vous montre une partie de mon 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
Set Req_Agence = Db.QueryDefs("ZZ_RATIO_R_V")
Set rec_Agence = Req_Agence.OpenRecordset
 
Do While Not rec_Agence.EOF
 
Id_Agence_tmp = rec_Agence.Fields("id_Point")
 
    Do While (Not (rec_Agence.Fields("id_Point") = Null)) Or (rec_Agence.Fields("id_Point") = Id_Agence_tmp)
        If rec_Agence.Fields("id_Type") = 1 Then
         Conditions
        End If
    rec_Agence.MoveNext
    Loop
 
 If Not rec_Agence.EOF Then
Conditions qui utilisent les résultats de la boucle précédente
    End If
 
  Loop

Donc le bug apparait en particulier dans cette boucle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Do While Not rec_Agence.EOF
 
Id_Agence_tmp = rec_Agence.Fields("id_Point")
 
    Do While (Not (rec_Agence.Fields("id_Point") = Null)) Or (rec_Agence.Fields("id_Point") = Id_Agence_tmp)
        If rec_Agence.Fields("id_Type") = 1 Then
         Conditions
        End If
    rec_Agence.MoveNext
    Loop

Lors du dernier enregistrement et je ne vois pas comment contourner ce problème.

Si vous aviez une méthode je vous serez très reconnaissant.

Merci d'avance.

[ClaudeLELOUP]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Do While (Not (rec_Agence.Fields("id_Point") = Null)) Or (rec_Agence.Fields("id_Point") = Id_Agence_tmp)
        If rec_Agence.Fields("id_Type") = 1 Then
         Conditions
        End If
    rec_Agence.MoveNext
    Loop

Avec une telle syntaxe, la boucle va s'arrêter lors que ta condition sera rencontrée... mais, si cette condition n'est pas satisfaite dans un enregistrement de ton fichier, tu finiras par dépasser l'EOF : c'est ce qui t'arrive !

Donc tu dois modifier la logique de ton processus en le limitant à l'EOF.

[GreatTeacherOnizuka]

Ok merci, c'est un peu ce que je craignais mais il y a quelque chose qui m'échappe pourquoi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Do While (Not (rec_Agence.EOF)) And (rec_Agence.Fields("id_Point") = Id_Agence_tmp)
        If rec_Agence.Fields("id_Type") = 1 Then
         Conditions
        End If
    rec_Agence.MoveNext
    Loop

Ne passe pas non plus, car c'est vrai, on est à la fin du fichier et il n'y a plus d'enregistrements mais à part ça puisque je sors de la condition dans ce cas là, je ne vois pas pourquoi ça passe pas.

[Jean-Philippe André]

Salut,

il faut faire attention entre ton utilisation du EOF et les tests dessus.

Je recommanderai un découpage en étapes :
- boucle do while / do Until
- test interne
Transformant ton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Do While (Not (rec_Agence.EOF)) And (rec_Agence.Fields("id_Point") = Id_Agence_tmp)
        If rec_Agence.Fields("id_Type") = 1 Then
         Conditions
        End If
    rec_Agence.MoveNext
    Loop

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Do While Not (rec_Agence.EOF)
        If rec_Agence.Fields("id_Point") = Id_Agence_tmp Then 
            Exit Do
        Else
 
             If rec_Agence.Fields("id_Type") = 1 Then
                  Conditions
             End If
        End If
    rec_Agence.MoveNext
    Loop

[GreatTeacherOnizuka]

Merci pour vos réponses, j'ai testé ton code jpcheck et ça n'allait pas car mon code en réalité est un peu plus complexe que ça. Mais merci, il m'est quand même utile pour d'autres raisons.

J'ai décidé de modifier mon code en enregistrant dans des tableaux tout les résultats intermédiaires, le code est plus lourd mais cela marche bien.