[vba] Erreur non détectée dans le code, .RecordCount suspect

**ancel17** · 18/06/2007, 19h28

Bonjour,

J'ai un souci que je ne comprend pas et, par conséquent, que je n'arrive pas à résoudre, avec le code suivant :

>> edit : consultez plutot le code du message N°4 qui est commenté <<

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
    tar.MoveFirst
    While Not tar.EOF
 
        l = 1
        For l = 1 To 10
 
            Dim criter1 As String
            criter1 = "SELECT * FROM R_intervalle_analyse " & "WHERE R_intervalle_analyse.n°fourchette =  " & l & " And R_intervalle_analyse.n°arrete = " & tar.Fields(0) & ";"
            Set ria = CurrentDb.OpenRecordset(criter1)
 
            If Not IsNull(ria.RecordCount) And ria.RecordCount <> 0 Then
 
                ria.MoveFirst
                While Not ria.EOF
 
                    Dim criter2 As String
                    Dim criter3 As String
                    criter2 = "SELECT * FROM T_passage_annee1 " & "WHERE T_passage_annee1.n°fourchette=" & l & " And T_passage_annee1.n°arrete=" & tar.Fields(0) & " And T_passage_annee1.nom_analyse=" & ria.Fields(1) & ";"
                    criter3 = "SELECT * FROM T_passage_routine " & "WHERE T_passage_routine.n°fourchette =  " & l & " And T_passage_routine.n°arrete = " & tar.Fields(0) & " And T_passage_routine.nom_analyse = " & ria.Fields(1) & ";"
                    Set tpa1 = CurrentDb.OpenRecordset(criter2)
                    Set tpar = CurrentDb.OpenRecordset(criter3)
Debug.Print "Point 0 -> " & criter2
                    'rempli la table T_passage_annee1
                    max = DMax("R_intervalle_analyse.[nb_analyse_annee1]", "R_intervalle_analyse", "R_intervalle_analyse.[n°fourchette]=" & l & " And R_intervalle_analyse.[n°arrete] = " & tar.Fields(0))
                    If Not IsNull(tpa1.RecordCount) Then
Debug.Print "Point 1 -> " & "n°arrete : " & tar.Fields(0) & ", l = " & l & " nom_analyse : " & ria.Fields(1) & ", Nb enr tpa1 : " & tpa1.RecordCount & ", nb_analyse : " & ria.Fields(3)
                        If tpa1.RecordCount <> ria.Fields(3) Then
                            If tpa1.RecordCount <> 0 Then
                                c1sql = "DELETE T_passage_annee1.* FROM T_passage_annee1 WHERE T_passage_annee1.n°fourchette =  " & l & " And T_passage_annee1.n°arrete = " & tar.Fields(0) & " And T_passage_annee1.nom_analyse = " & ria.Fields(3) & ";"
                                DoCmd.RunSQL c1sql
                            End If
                            If ria.Fields(3) <> 0 Then
                                n = 1
                                For n = 1 To ria.Fields(3)
                                    tpa1.AddNew
                                    tpa1.Fields(0) = ria.Fields(0)
                                    tpa1.Fields(1) = ria.Fields(1)
                                    tpa1.Fields(2) = ria.Fields(2)
                                    Dim critmp1 As String
                                    Dim snap1 As Recordset
                                    critmp1 = "SELECT * FROM T_Tmp_annee1 " & "WHERE T_Tmp_annee1.n°fourchette =  " & l & " And T_Tmp_annee1.n°arrete = " & tar.Fields(0) & ";"
                                    Set snap1 = CurrentDb.OpenRecordset(critmp1, dbOpenSnapshot)
                                    If ria.Fields(3) = max Then
                                        snap1.FindFirst "rang_date=" & n
                                        If Not snap1.NoMatch Then
                                            tpa1.Fields(3) = snap1.Fields(2)
                                        End If
                                    Else
                                        If ria.Fields(3) = 1 Then
                                            snap1.FindFirst "rang_date=" & Int(max / 2)
                                            If Not snap1.NoMatch Then
                                                tpa1.Fields(3) = snap1.Fields(2)
                                            End If
                                        ElseIf ria.Fields(3) = 2 Then
                                            x = max / 2
                                            snap1.FindFirst "rang_date=" & Int(max / 3) + Int(x * (n - 1))
                                            If Not snap1.NoMatch Then
                                                tpa1.Fields(3) = snap1.Fields(2)
                                            End If
                                        Else
                                            x = max / ria.Fields(3)
                                            snap1.FindFirst "rang_date=" & Int(x * n)
                                            If Not snap1.NoMatch Then
                                                tpa1.Fields(3) = snap1.Fields(2)
                                            End If
                                        End If
                                    End If
                                    tpa1.Update
                                Next n
Debug.Print "Point 2 -> " & "n°arrete : " & tar.Fields(0) & ", l = " & l & " nom_analyse : " & ria.Fields(1) & ", Nb enr tpa1 : " & tpa1.RecordCount & ", nb_analyse : " & ria.Fields(3)
                            End If
                        End If
                    End If
 
                ria.MoveNext
                Wend
 
            End If
 
        Next l
 
    tar.MoveNext
    Wend

Lorsque ma table T_passage_annee1 est vide, tout se passe bien, et ma table est correctement remplie.
Par contre si ma table est remplie et que j'exécute le code, le tpa1.RecordCount n'est plus correct.

Voici un échantillon des résultats des Debug.Print utilisés :

Résultat lorsque ma table T_passage_annee1 est vide :

Point 0 -> SELECT * FROM T_passage_annee1 WHERE T_passage_annee1.n°fourchette=1 And T_passage_annee1.n°arrete=2170 And T_passage_annee1.nom_analyse=1;
Point 1 -> n°arrete : 2170, l = 1 nom_analyse : 1, Nb enr tpa1 : 0, nb_analyse : 4
Point 2 -> n°arrete : 2170, l = 1 nom_analyse : 1, Nb enr tpa1 : 4, nb_analyse : 4
Point 0 -> SELECT * FROM T_passage_annee1 WHERE T_passage_annee1.n°fourchette=1 And T_passage_annee1.n°arrete=2170 And T_passage_annee1.nom_analyse=2;
Point 1 -> n°arrete : 2170, l = 1 nom_analyse : 2, Nb enr tpa1 : 0, nb_analyse : 0
Point 0 -> SELECT * FROM T_passage_annee1 WHERE T_passage_annee1.n°fourchette=1 And T_passage_annee1.n°arrete=2170 And T_passage_annee1.nom_analyse=3;
Point 1 -> n°arrete : 2170, l = 1 nom_analyse : 3, Nb enr tpa1 : 0, nb_analyse : 2
Point 2 -> n°arrete : 2170, l = 1 nom_analyse : 3, Nb enr tpa1 : 2, nb_analyse : 2
Point 0 -> SELECT * FROM T_passage_annee1 WHERE T_passage_annee1.n°fourchette=1 And T_passage_annee1.n°arrete=2170 And T_passage_annee1.nom_analyse=4;
Point 1 -> n°arrete : 2170, l = 1 nom_analyse : 4, Nb enr tpa1 : 0, nb_analyse : 1
Point 2 -> n°arrete : 2170, l = 1 nom_analyse : 4, Nb enr tpa1 : 1, nb_analyse : 1

Résultat lorsque ma table T_passage_annee1 est déjà remplie et qu'aucune modification n'a été faite :

Point 0 -> SELECT * FROM T_passage_annee1 WHERE T_passage_annee1.n°fourchette=1 And T_passage_annee1.n°arrete=2170 And T_passage_annee1.nom_analyse=1;
Point 1 -> n°arrete : 2170, l = 1 nom_analyse : 1, Nb enr tpa1 : 7, nb_analyse : 4

D'autre part, tpa1.RecordCount étant faux, on entre dans la boucle

Code :

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

1
2
3
4
                            If tpa1.RecordCount <> 0 Then
                                c1sql = "DELETE T_passage_annee1.* FROM T_passage_annee1 WHERE T_passage_annee1.n°fourchette =  " & l & " And T_passage_annee1.n°arrete = " & tar.Fields(0) & " And T_passage_annee1.nom_analyse = " & ria.Fields(3) & ";"
                                DoCmd.RunSQL c1sql
                            End If

mais une fois les enregistrements effacés, un message box apparaît, et l'exécution du code n'est pas repris.

Les experts ont maintenant la parole...

**micniv** · 18/06/2007, 22h31

Déjà, sans avoir parcouru le tout : dans une requete SQL, mets des cotes ' pour encadrer la valeur d'un chp de type String

ainsi la dernière rq devient :

Code :

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

1
2
3
 c1sql = "DELETE  FROM T_passage_annee1 WHERE [n°fourchette] =  " & l & " And [n°arrete] = " & tar.Fields(0) & " And nom_analyse = '" & ria.Fields(3) & "' ;"
debug.print c1sql

**ancel17** · 19/06/2007, 09h06

Bonjour,

merci de ta réponse, mais ria.fields(3) renvoie une valeur numérique, correspondant à un nom_analyse.
en remplaçant ria.fields(3) par ria.fields(1) qui est le bon champ, j'ai toujours le même problème.

De plus la rq en question delete bien les bons enregistrements. Donc ou c'est le .RecordCount qui bug, ou la définition de criter2 est erronée mais comme c'est la même que c1sql en remplaçant Delete par Select, je penche pour le .RecordCount

**ancel17** · 27/06/2007, 11h18

J'ai toujours le même souci que je n'ai toujours pas résolu
Voici le code commenté qui vous aidera certainement à comprendre ce qui se passe :

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
    tar.MoveFirst       'tar correspond à la table T_arrete
    While Not tar.EOF   'pour chaque enregistrement de la table T_arrete (il n'y a pas de doublon dans la table)
 
        l = 1
        For l = 1 To 10 'initialisation de l à 1 et lancement de la boucle. Je vais de 1 à 10 car l correspondra au n°fourchette qui n'excède pas 10
 
            Dim criter1 As String
            criter1 = "SELECT * FROM R_intervalle_analyse " & "WHERE R_intervalle_analyse.n°fourchette =  " & l & " And R_intervalle_analyse.n°arrete = " & tar.Fields(0) & ";"
            Set ria = CurrentDb.OpenRecordset(criter1)  'pour chaque n°arrete et n°fourchette je sélectionne les enregistements de la requête R_intervalle_analyse correspondant
 
            If Not IsNull(ria.RecordCount) And ria.RecordCount <> 0 Then 'si ria existe et qu'il n'est pas vide
 
                ria.MoveFirst
                While Not ria.EOF   'je parcours chaque enregistrement de ria
 
                    Dim criter2 As String
                    Dim criter3 As String
                    criter2 = "SELECT * FROM T_passage_annee1 " & "WHERE T_passage_annee1.n°fourchette = " & l & " And T_passage_annee1.n°arrete = " & tar.Fields(0) & " And T_passage_annee1.nom_analyse = " & ria.Fields(1) & ";"
                    criter3 = "SELECT * FROM T_passage_routine " & "WHERE T_passage_routine.n°fourchette =  " & l & " And T_passage_routine.n°arrete = " & tar.Fields(0) & " And T_passage_routine.nom_analyse = " & ria.Fields(1) & ";"
                    Set tpa1 = CurrentDb.OpenRecordset(criter2) 'je sélectionne les enrgistrements de la table T_passage_annee1 correspondant au n°arrete, n°fourchette, et nom_analyse en cours. La table T_passage_annee1 liste les dates des analyses à effectuer
                    Set tpar = CurrentDb.OpenRecordset(criter3)
Debug.Print "Point 0 -> " & criter2
                    'rempli la table T_passage_annee1
                    max = DMax("R_intervalle_analyse.[nb_analyse_annee1]", "R_intervalle_analyse", "R_intervalle_analyse.[n°fourchette]=" & l & " And R_intervalle_analyse.[n°arrete] = " & tar.Fields(0))
                    'max correspond à la valeur max d'analyse à effectuer parmi les enregistrements de ria (n°arrete et n°fourchette en cours)
                    If Not IsNull(tpa1.RecordCount) Then    'si la table T_passage_annee1 existe
Debug.Print "Point 1 -> " & "n°arrete : " & tar.Fields(0) & ", l = " & l & " nom_analyse : " & ria.Fields(1) & ", Nb enr tpa1 : " & tpa1.RecordCount & ", nb_analyse : " & ria.Fields(3)
                        If tpa1.RecordCount <> ria.Fields(3) Then 'si le nombre d'enregistrement de tpa1 est différent du nombre d'analyses à effectuer (le nombre d'analyse est issu d'un arrêté type, mais il est possible qu'il soit modifié et que le nombre d'analyses change)
                            If tpa1.RecordCount <> 0 Then   'si le nombre d'enregistrement de tpa1 est différent de 0, alors on supprime tous les enregistrements de tpa1 (c1sql est la requête sql qui permet de supprimer les enregistrements correspondant à tpa1)
                                c1sql = "DELETE T_passage_annee1.* FROM T_passage_annee1 WHERE T_passage_annee1.n°fourchette =  " & l & " And T_passage_annee1.n°arrete = " & tar.Fields(0) & " And T_passage_annee1.nom_analyse = " & ria.Fields(1) & ";"
                                DoCmd.RunSQL c1sql
                            End If  'si tpa1.recordcount=0, il suffit d'ajouter les enregistrements, donc pas de suppression
                            If ria.Fields(3) <> 0 Then  'si le nombre d'analyse à effectuer est différent de 0
                                n = 1
                                For n = 1 To ria.Fields(3)  'initialisation de n à 1 et ajout des enregistrements pour n allant de 1 au nombre d'analyse à effectuer
                                    tpa1.AddNew
                                    tpa1.Fields(0) = ria.Fields(0)  'remplissage champ n°arrete
                                    tpa1.Fields(1) = ria.Fields(1)  'remplissage champ nom_analyse
                                    tpa1.Fields(2) = ria.Fields(2)  'remplissage champ n°fourchette
                                    Dim critmp1 As String
                                    Dim snap1 As Recordset
                                    critmp1 = "SELECT * FROM T_Tmp_annee1 " & "WHERE T_Tmp_annee1.n°fourchette =  " & l & " And T_Tmp_annee1.n°arrete = " & tar.Fields(0) & ";"
                                    Set snap1 = CurrentDb.OpenRecordset(critmp1, dbOpenSnapshot) 'je sélectionne les enregistrements de la table T_Tmp_annee1 (recalculée avant cette partie de code) correspondant au n°arrete et au n°fourchette. Cette table nous donne les dates de l'analyse la plus fréquente (basée sur max)
                                    If ria.Fields(3) = max Then 'si le nombre d'analyse est égal à max
                                        snap1.FindFirst "rang_date=" & n    'je cherche l'enregistrement de T_Tmp_annee1 dont le rang de la date est n (le champ rang_date de T_Tmp_annee1 affecte un numéro de 1 à max à chaque date d'analyse)
                                        If Not snap1.NoMatch Then   'si l'enregistrement est trouvé
                                            tpa1.Fields(3) = snap1.Fields(2)    'remplissage champ date_analyse
                                        End If
                                    Else    'si le nombre d'analyse est différent de max
                                        If ria.Fields(3) = 1 Then   'si le nombre d'analyse = 1
                                            snap1.FindFirst "rang_date=" & Int(max / 2) 'je cherche l'enregistrement dont le rang_date = Int(max/2) pour avoir une analyse vers le milieu de l'année
                                            If Not snap1.NoMatch Then   'si l'enregistrement est trouvé
                                                tpa1.Fields(3) = snap1.Fields(2)    'remplissage champ date_analyse
                                            End If
                                        ElseIf ria.Fields(3) = 2 Then   'si le nombre d'analyse = 2
                                            x = max / 2 'j'affecte max/2 à x
                                            snap1.FindFirst "rang_date=" & Int(max / 3) + Int(x * (n - 1))  'je cherche l'enregistrement correspondant au rang_date (les analyses sont effectuées au 1/3 et au 2/3 de l'année)
                                            If Not snap1.NoMatch Then   'si l'enregistrement est trouvé
                                                tpa1.Fields(3) = snap1.Fields(2)    'remplissage champ date_analyse
                                            End If
                                        Else    'si le nombre d'analyse est différent de 0, 1, 2
                                            x = max / ria.Fields(3) 'j'affecte max/[nombre d'analyse] à x
                                            snap1.FindFirst "rang_date=" & Int(x * n)   'je cherche l'enregistrement correspondant à rang_date (permet de répartir les analyses uniformément sur l'année)
                                            If Not snap1.NoMatch Then   'si l'enregistrement est trouvé
                                                tpa1.Fields(3) = snap1.Fields(2)    'remplissage champ date_analyse
                                            End If
                                        End If
                                    End If
                                    tpa1.Update 'mise à jour de la table T_passage_annee1
                                Next n  'on passe au n suivant (date d'analyse suivante)
Debug.Print "Point 2 -> " & "n°arrete : " & tar.Fields(0) & ", l = " & l & " nom_analyse : " & ria.Fields(1) & ", Nb enr tpa1 : " & tpa1.RecordCount & ", nb_analyse : " & ria.Fields(3)
                            End If
                        End If
                    End If
 
                ria.MoveNext    'on passe à l'enregistrement de ria suivant (nombre d'analyse suivant)
                Wend    'fin de la boucle while (ria)
 
            End If
 
        Next l  'on passe au l suivant (n°fourchette suivant)
 
    tar.MoveNext    'on passe à l'enregistrement de tar suivant (n°arrete suivant)
    Wend    'fin de la boucle while (tar)

Merci !

[vba] Erreur non détectée dans le code, .RecordCount suspect

VBA Access

Discussions similaires

Partager

Partager