MoveNext et EOF

**MM_13** · 03/01/2020, 16h57

Bonjour,

J'ai un bout de code qui me permet de scanner des dossiers pour en extraire les propriétés de certains fichiers et les écrire dans une table.

Donc je boucle sur les différents dossiers, et lorsque je suis dans un dossier, il y a une autre boucle qui vient lire les enregistrements d'une table pour vérifier si cette valeur est présente dans le chemin du dossier qui est en train d'être lu.

Mais je rencontre une erreur, 3021 "aucun enregistrement en cours" lorsque je suis dans la boucle qui lit les enregistrements de la table.
La boucle est de type :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
While (Not rstTbl4.EOF)
     Debug.Print rstTbl4![TypeAffaire]
          If InStr(f1, CheminAffaire & rstTbl4![TypeAffaire]) > 0 Then
 
               [...]
 
           End If
           rstTbl4.MoveNext
     Wend

L'erreur arrive à la ligne "Tbl4.MoveNext".
Mais je ne comprends pas pourquoi ça m'indique qu'il n'y a pas d'enregistrements alors que la table n'est pas modifiée durant l'exécution du code.

Merci.

**Phiphi41** · 03/01/2020, 17h01

Bonjour

Supprime les parenthèses ici : (Not rstTbl4.EOF)

Pour voir.

**MM_13** · 03/01/2020, 17h17

Salut Phiphi41,

J'ai testé avec ta manip mais ça n'a rien changé, j'ai toujours l'erreur qui apparaît.

**tee_grandbois** · 03/01/2020, 18h32

bonsoir,
il faudrait montrer le code complet, pas seulement le début et la fin la boucle ...

**MM_13** · 06/01/2020, 13h32

Bonjour,

Voici les procédures exécutées pendant le 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
Sub ListerFichier()
 
Dim ApplSelectionDossier As FileDialog
Dim ListeItemChoisis As Variant
Dim alpha As Long
Dim j As Long
Dim Palier As String
Dim FichierCreate As String
Dim AnneeFile As String
Dim MoisFile As String
Dim JourFile As String
Dim HeureFile As String
Dim MinuteFile As String
Dim StartTime, EndTime, TotalTime
 
    StartTime = Timer
    Call Parametres
 
    'Supprimer tous les enregistrements
    If TypeFichier = "Général" Then
        dbs.Execute "Delete * FROM T_ListeFichierGeneral"
        Set rstTblTmp = rstTbl1
        TableTmp = "T_ListeFichierGeneral"
    ElseIf TypeFichier = "Palier" Then
        dbs.Execute "Delete * FROM T_ListeFichierPalier"
        Set rstTblTmp = rstTbl3
        TableTmp = "T_ListeFichierPalier"
    End If
 
    'Créer un FileDialog objet comme un fichier Picker dialog box
    Set ApplSelectionDossier = Application.FileDialog(msoFileDialogFolderPicker)
 
    'Créer un objet de système de fichier
    Set fs = CreateObject("Scripting.FileSystemObject")
 
    'Boucle sur les lien listés
    rstTbl2.MoveFirst
 
    While (Not rstTbl2.EOF)
        If rstTbl2![Chemin] <> "" Then
            Set f2 = fs.GetFolder(rstTbl2![Chemin])
            CheminAffaire = Left(rstTbl2![Chemin], InStrRev(rstTbl2![Chemin], "\"))
            Call EcritureListerFichier(f2, 1)
        End If
        rstTbl2.MoveNext
    Wend
 
    'Set the object variable to Nothing.
    Set fd = Nothing
 
    'Mise à jour des types de fichier
    Call Parametres
 
    If TypeFichier = "Général" Then
        Set rstTblTmp = dbs.OpenRecordset("T_ListeFichierGeneral", dbOpenDynaset, dbDenyWrite)
    ElseIf TypeFichier = "Palier" Then
        Set rstTblTmp = dbs.OpenRecordset("T_ListeFichierPalier", dbOpenDynaset, dbDenyWrite)
    End If
 
    rstTblTmp.MoveFirst
 
    While (Not rstTblTmp.EOF)
        If rstTblTmp![Type] Like "*Excel*" Or rstTblTmp![Type] Like "*CSV*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "Excel"
            rstTblTmp.Update
        ElseIf rstTblTmp![Type] Like "*Word*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "Word"
            rstTblTmp.Update
        ElseIf rstTblTmp![Type] Like "*Visio*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "Visio"
            rstTblTmp.Update
        ElseIf rstTblTmp![Type] Like "*Adobe Acrobat Document*" Or rstTblTmp![Type] Like "*PDF*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "PDF"
            rstTblTmp.Update
        ElseIf rstTblTmp![Type] Like "*Outlook*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "Mail"
            rstTblTmp.Update
        End If
        rstTblTmp.MoveNext
    Wend
 
    EndTime = Timer
    TotalTime = EndTime - StartTime
    MsgBox "Temps de traitement : " & Format(TotalTime, "00:00:00.00")
 
End Sub
 
 
 
Sub EcritureListerFichier(ByVal f As Variant, ByRef niveau As Integer)
 
Dim DossierEnfantPrésent As Boolean
Dim FichiersPrésent As Boolean
 
    'On récupère les dossiers enfants
    Set fc = f.SubFolders
    DossierEnfantPrésent = False
 
    For Each f1 In fc
        If TypeFichier = "Général" Then
            lechemin = f1.Path
            lenom = f1.Name
 
'            rstTblTmp.MoveLast
            If DCount("[N°]", TableTmp) = 0 Then
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            ElseIf DCount("[N°]", TableTmp) > 0 Then
                rstTblTmp.MoveLast
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            End If
 
            DossierEnfantPrésent = True
            Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
 
        ElseIf TypeFichier = "Palier" Then
            'Liste fichier en fonction de la liste des types d'affaire
            If DCount("[N°]", "T_ListeTypeAffaire") <> 0 Then
                rstTbl4.MoveFirst
                Debug.Print rstTbl4![TypeAffaire]
                While (Not rstTbl4.EOF)
                    Debug.Print rstTbl4![TypeAffaire]
                    If InStr(f1, CheminAffaire & rstTbl4![TypeAffaire]) > 0 Then
                        lechemin = f1.Path
                        lenom = f1.Name
 
                        If DCount("[N°]", TableTmp) = 0 Then
                            rstTblTmp.AddNew
                            rstTblTmp![Chemin] = lechemin
                            rstTblTmp![Nom] = lenom
                            rstTblTmp![Type] = f1.Type
                            rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                            rstTblTmp![Modification] = f1.DateLastModified
                            rstTblTmp![Creation] = f1.DateCreated
                            rstTblTmp.Update
                        ElseIf DCount("[N°]", TableTmp) > 0 Then
                            rstTblTmp.MoveLast
                            rstTblTmp.AddNew
                            rstTblTmp![Chemin] = lechemin
                            rstTblTmp![Nom] = lenom
                            rstTblTmp![Type] = f1.Type
                            rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                            rstTblTmp![Modification] = f1.DateLastModified
                            rstTblTmp![Creation] = f1.DateCreated
                            rstTblTmp.Update
                        End If
 
                        DossierEnfantPrésent = True
                        Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
                    End If
                    rstTbl4.MoveNext
                Wend
 
            'Liste fichier en fonction de la liste des types d'affaire
            ElseIf DCount("[N°]", "T_ListeTypeAffaire") = 0 Then
                lechemin = f1.Path
                lenom = f1.Name
 
'                rstTblTmp.MoveLast
                If DCount("[N°]", TableTmp) = 0 Then
                    rstTblTmp.AddNew
                    rstTblTmp![Chemin] = lechemin
                    rstTblTmp![Nom] = lenom
                    rstTblTmp![Type] = f1.Type
                    rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                    rstTblTmp![Modification] = f1.DateLastModified
                    rstTblTmp![Creation] = f1.DateCreated
                    rstTblTmp.Update
                ElseIf DCount("[N°]", TableTmp) > 0 Then
                    rstTblTmp.MoveLast
                    rstTblTmp.AddNew
                    rstTblTmp![Chemin] = lechemin
                    rstTblTmp![Nom] = lenom
                    rstTblTmp![Type] = f1.Type
                    rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                    rstTblTmp![Modification] = f1.DateLastModified
                    rstTblTmp![Creation] = f1.DateCreated
                    rstTblTmp.Update
                End If
 
                DossierEnfantPrésent = True
                Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
            End If
 
        End If
    Next
 
    'On récupère ensuite les fichiers
    Set fc = f.Files
    FichiersPrésent = False
 
    For Each f1 In fc
        'Liste fichier en fonction de la liste des types de fichier
'        rstTbl5.MoveLast
        If DCount("[N°]", "T_ListeTypeFichier") <> 0 Then
            rstTbl5.MoveFirst
            While (Not rstTbl5.EOF)
                If InStr(f1.Type, rstTbl5![TypeFichier]) > 0 Then
                    lechemin = f1.Path
                    lenom = f1.Name
 
'                    rstTblTmp.MoveLast
                    If DCount("[N°]", TableTmp) = 0 Then
                        rstTblTmp.AddNew
                        rstTblTmp![Chemin] = lechemin
                        rstTblTmp![Nom] = lenom
                        rstTblTmp![Type] = f1.Type
                        rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                        rstTblTmp![Modification] = f1.DateLastModified
                        rstTblTmp![Creation] = f1.DateCreated
                        rstTblTmp.Update
                    ElseIf DCount("[N°]", TableTmp) > 0 Then
                        rstTblTmp.MoveLast
                        rstTblTmp.AddNew
                        rstTblTmp![Chemin] = lechemin
                        rstTblTmp![Nom] = lenom
                        rstTblTmp![Type] = f1.Type
                        rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                        rstTblTmp![Modification] = f1.DateLastModified
                        rstTblTmp![Creation] = f1.DateCreated
                        rstTblTmp.Update
                    End If
 
                    FichiersPrésent = True
                End If
                rstTbl5.MoveNext
            Wend
 
        'Liste fichier si la liste des types de fichier est vide
        ElseIf DCount("[N°]", "T_ListeTypeFichier") = 0 Then
            lechemin = f1.Path
            lenom = f1.Name
 
'            rstTblTmp.MoveLast
            If DCount("[N°]", TableTmp) = 0 Then
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            ElseIf DCount("[N°]", TableTmp) > 0 Then
                rstTblTmp.MoveLast
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            End If
 
            FichiersPrésent = True
        End If
    Next
 
End Sub
 
 
Sub Parametres()
 
    Set dbs = CurrentDb
    Set rstTbl1 = dbs.OpenRecordset("T_ListeFichierGeneral", dbOpenDynaset)
    Set rstTbl2 = dbs.OpenRecordset("T_ListeLien", dbOpenDynaset)
    Set rstTbl3 = dbs.OpenRecordset("T_ListeFichierPalier", dbOpenDynaset)
    Set rstTbl4 = dbs.OpenRecordset("T_ListeTypeAffaire", dbOpenDynaset)
    Set rstTbl5 = dbs.OpenRecordset("T_ListeTypeFichier", dbOpenDynaset)
 
 
End Sub

**elgordopresto** · 06/01/2020, 14h41

Bonjour,

Je n'ai pas trouvé où dans ton code tu instancies le jeu de données rstTbl4 (set rstTbl4 = xxxxxx). Je ne serais pas étonné que ce soit ce qui génère l'erreur.

Sinon, je t'invite à gérer ce type de cas avant le début de la boucle en vérifiant que le jeu de données contient bien des enregistrements :

Code :

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

1
2
3
4
5
6
7
 
If nz(rstTbl4.Recordcount, 0) > 0 then 
' Le code de ta boucle ici
' blablabla
End If
rstTbl4.close
Set rstTbl4 = Nothing

**tee_grandbois** · 06/01/2020, 14h50

bonjour,
il y a un appel récursif du Sub EcritureListerFichier dans la boucle en question ce qui complexifie le processus:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub EcritureListerFichier(ByVal f As Variant, ByRef niveau As Integer)
 
Dim DossierEnfantPrésent As Boolean
Dim FichiersPrésent As Boolean
 
    'On récupère les dossiers enfants
    Set fc = f.SubFolders
    DossierEnfantPrésent = False
 
    For Each f1 In fc
        If TypeFichier = "Général" Then
            lechemin = f1.Path
            lenom = f1.Name
 
'            rstTblTmp.MoveLast
            If DCount("[N°]", TableTmp) = 0 Then
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            ElseIf DCount("[N°]", TableTmp) > 0 Then
                rstTblTmp.MoveLast
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            End If
 
            DossierEnfantPrésent = True
            Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
 
        ElseIf TypeFichier = "Palier" Then
            'Liste fichier en fonction de la liste des types d'affaire
            If DCount("[N°]", "T_ListeTypeAffaire") <> 0 Then
                rstTbl4.MoveFirst
                Debug.Print rstTbl4![TypeAffaire]
                While (Not rstTbl4.EOF)
                    Debug.Print rstTbl4![TypeAffaire]
                    If InStr(f1, CheminAffaire & rstTbl4![TypeAffaire]) > 0 Then
                        lechemin = f1.Path
                        lenom = f1.Name
 
                        If DCount("[N°]", TableTmp) = 0 Then
                            rstTblTmp.AddNew
                            rstTblTmp![Chemin] = lechemin
                            rstTblTmp![Nom] = lenom
                            rstTblTmp![Type] = f1.Type
                            rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                            rstTblTmp![Modification] = f1.DateLastModified
                            rstTblTmp![Creation] = f1.DateCreated
                            rstTblTmp.Update
                        ElseIf DCount("[N°]", TableTmp) > 0 Then
                            rstTblTmp.MoveLast
                            rstTblTmp.AddNew
                            rstTblTmp![Chemin] = lechemin
                            rstTblTmp![Nom] = lenom
                            rstTblTmp![Type] = f1.Type
                            rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                            rstTblTmp![Modification] = f1.DateLastModified
                            rstTblTmp![Creation] = f1.DateCreated
                            rstTblTmp.Update
                        End If
 
                        DossierEnfantPrésent = True
                        Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
                    End If
                    rstTbl4.MoveNext
                Wend

de plus, je ne vois pas l'affectation de rstTbl2 et rstTbl4 (Set rstTbl2 = ????)

MoveNext et EOF [AC-2010]

VBA Access

Vue hybride

Discussions similaires

Partager

Partager