[Programmation] Variable objet ou variable de bloc With non définie

Version imprimable

Bonjour !

j'ai un souci avec le code suivant :

Code:

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
    While Not tar.EOF
        For j = 1 To 10
 
            Dim criter As String
            criter = "SELECT * FROM R_intervalle_analyse " & "WHERE R_intervalle_analyse.n°fourchette =  " & j & " And R_intervalle_analyse.n°arrete = " & tar.Fields(0) & ";"
            Set rst = CurrentDb.OpenRecordset(criter)
 
            If Not IsNull(rst.Fields(2) = j) Then
 
                'rempli la table T_Tmp_annee1
                max = DMax("R_intervalle_analyse.[nb_analyse_annee1]", "R_intervalle_analyse", "R_intervalle_analyse.[n°fourchette]=" & j & " And R_intervalle_analyse.[n°arrete] = " & tar.Fields(0))
                For k = 1 To max
                    rst2.AddNew
                    rst2.Fields(0) = rst.Fields(0)
                    rst2.Fields(1) = rst.Fields(2)
                    If IsNull(rst4.Fields(3)) Then
                        rst2.Fields(2) = (Int(52 / max / 2) + (k - 1) * rst.Fields(5)) * 7 + DateSerial(Year(Date), 1, 1)
                    Else
                        rst2.Fields(2) = (Int(52 / max / 2) + (k - 1) * rst.Fields(5)) * 7 + DateSerial(Year(Date), Month(rst4.Fields(3)), Day(rst4.Fields(3)))
                    End If
                    rst2.Update
                Next k
 
                'rempli la table T_Tmp_routine
                max = DMax("R_intervalle_analyse.[nb_analyse_routine]", "R_intervalle_analyse", "R_intervalle_analyse.[n°fourchette]=" & j)
                For k = 1 To max
                    rst3.AddNew
                    rst3.Fields(0) = rst.Fields(0)
                    rst3.Fields(1) = rst.Fields(2)
                    If IsNull(rst4.Fields(3)) Then
                        rst3.Fields(2) = (Int(52 / max / 2) + (k - 1) * rst.Fields(6)) * 7 + DateSerial(Year(Date), 1, 1)
                    Else
                        rst3.Fields(2) = (Int(52 / max / 2) + (k - 1) * rst.Fields(6)) * 7 + DateSerial(Year(Date), Month(rst4.Fields(3)), Day(rst4.Fields(3)))
                    End If
                    rst3.Update
                Next k
 
            End If
 
        Next j
        tar.MoveNext
    Wend

Seul le premier enregistrement de du recordset tar est pris en compte

Je pense que le problème vient des lignes

Code:

1
2
criter = "SELECT * FROM R_intervalle_analyse " & "WHERE R_intervalle_analyse.n°fourchette =  " & j & " And R_intervalle_analyse.n°arrete = " & tar.Fields(0) & ";"
            Set rst = CurrentDb.OpenRecordset(criter)

mais je ne vois par comment résoudre...

10/05/2007, 18h24
Le Pharaon
Essaye de vérifier si ton recorset prend les bonnes valeurs :
Code:

1 2 3 4 5 For j = 1 To 10 ... ... debug.print rst.Fields(2) & " " & j
10/05/2007, 18h36
ancel17

le problème ne vient pas de la boucle

Code:

For j =1 to 10

qui est effectué correctement, mais bien de tar qui ne change pas d'enregistrement...
10/05/2007, 18h50
Le Pharaon

Excuse j'avais pas tout vu.
Un msgbox tar.recordcount donne quoi ?
10/05/2007, 18h58
ancel17

ça donne bien le nombre d'enregistrement de la table
10/05/2007, 19h02
ancel17

je viens de me rendre compte que le problème ne vient finalement certainement pas de tar car dans la table associée, le résultat obtenue correspond au deuxième enregistrement.

par contre, il s'agit du premier enregistrement de rst4
10/05/2007, 19h36
ancel17

Autre remarque : lorsque je mets un

Code:

msgbox tar.Fields(0)

après le

Code:

While Not tar.EOF

, je devrais théoriquement avoir 2 msgbox successif (un pour chaque enregistrement de tar) or je n'en ai qu'un seul...
10/05/2007, 19h49
ancel17
j'ai inversé le While Not tar.EOF avec le For j = 1 to 10.

on a donc le nouveau code :
Code:

1 2 3 4 5 6 For j = 1 to 10 While Not tar.EOF ... tar.MoveNext Wend Next j
Dans cette configuration, les deux enregistrements de tar sont bien pris en compte, mais on ne passe pas au j suivant et le message suivant s'affiche :

Citation:

Variable objet ou variable de bloc With non définie
11/05/2007, 09h14
ancel17

Par contre là, je vois pas comment résoudre... :oops:
11/05/2007, 10h05
Pierre Fauconnier

Peux-tu expliquer en français ce que tu souhaites réaliser?
11/05/2007, 10h51
ancel17

Bonjour !

Voila ce que je souhaite faire :

j'ai une requête R_intervalle_analyse (n°arrete, nom_analyse, n°fourchette, nb_analyse_annee1,nb_analyse_routine).

je souhaite définir, pour chaque n°fourchette de chaque n°arrete, les dates d'analyses.
Ces dates d'analyse sont calculées sur Max(nb_analyse_annee1) pour la table T_Tmp_annee1 et sur Max(nb_analyse_routine) pour la table T_Tmp_routine.

Par exemple :
n°arrete nom_analyse n°fourchette nb_analyse_annee1
2170 valB 1 4
2170 AsB 1 0
2170 E-t 1 2
2170 CO 1 1

Dans ce cas je dois calculer 4 dates pour la fourchette 1 de l'arrete 2170 et les répartir correctement sur 1 an en prenant en compte, si elle existe, la date de la toute première analyse.

Correspondance avec le code :
j'ai au maximum 10 fourchettes =>

Code:

For j = 1 To 10 ... Next j

ma table T_arrete liste les n°arrete =>

Code:

While Not tar.EOF ... tar.MoveNext Wend

vérification de l'existence de la fourchette pour l'arrete =>

Code:

If Not IsNull(rst.Fields(2) = j) Then ... End If

vérification de l'existence de la date de la toute première analyse =>

Code:

If IsNull(rst4.Fields(3)) Then ... End If

répartition des dates si n'existe pas =>

Code:

rst2.Fields(2) = (Int(52 / max / 2) + (k - 1) * Int(52 / max)) * 7 + DateSerial(Year(Date), 1, 1)

répartition des dates si existe =>

Code:

rst2.Fields(2) = (Int(52 / max / 2) + (k - 1) * Int(52 / max)) * 7 + DateSerial(Year(Date), Month(rst4.Fields(3)), Day(rst4.Fields(3)))

Bonjour,

j'ai résolu le problème, donc pour ceux que ça intéresse, voici le code :

Code:

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
 
    tar.MoveFirst
    While Not tar.EOF
        j = 1
        For j = 1 To 10
 
            Dim criter As String
            criter = "SELECT * FROM R_intervalle_analyse " & "WHERE R_intervalle_analyse.n°fourchette =  " & j & " And R_intervalle_analyse.n°arrete = " & tar.Fields(0) & ";"
            Set rst = CurrentDb.OpenRecordset(criter)
 
            'rempli la table T_Tmp_annee1
            If rst.RecordCount <> 0 Then
                max = DMax("R_intervalle_analyse.[nb_analyse_annee1]", "R_intervalle_analyse", "R_intervalle_analyse.[n°fourchette]=" & j & " And R_intervalle_analyse.[n°arrete] = " & tar.Fields(0))
                If Not IsNull(max) Then
                    If max <> 0 Then
                    For k = 1 To max
                        rst2.AddNew
                        rst2.Fields(0) = rst.Fields(0)
                        rst2.Fields(1) = rst.Fields(2)
                        If IsNull(rst4.Fields(3)) Then
                            rst2.Fields(2) = (Int(52 / max / 2) + (k - 1) * Int(52 / max)) * 7 + DateSerial(Year(Date), 1, 1)
                        Else
                            rst2.Fields(2) = (Int(52 / max / 2) + (k - 1) * Int(52 / max)) * 7 + DateSerial(Year(Date), Month(rst4.Fields(3)), Day(rst4.Fields(3)))
                        End If
                        rst2.Fields(3) = k
                        rst2.Update
                    Next k
                    End If
                End If
            End If
 
            'rempli la table T_Tmp_routine
            If rst.RecordCount <> 0 Then
                max = DMax("R_intervalle_analyse.[nb_analyse_routine]", "R_intervalle_analyse", "R_intervalle_analyse.[n°fourchette]=" & j & " And R_intervalle_analyse.[n°arrete] = " & tar.Fields(0))
                If Not IsNull(max) Then
                    If max <> 0 Then
                    For k = 1 To max
                        rst3.AddNew
                        rst3.Fields(0) = rst.Fields(0)
                        rst3.Fields(1) = rst.Fields(2)
                        If IsNull(rst4.Fields(3)) Then
                            rst3.Fields(2) = (Int(52 / max / 2) + (k - 1) * Int(52 / max)) * 7 + DateSerial(Year(Date), 1, 1)
                        Else
                            rst3.Fields(2) = (Int(52 / max / 2) + (k - 1) * Int(52 / max)) * 7 + DateSerial(Year(Date), Month(rst4.Fields(3)), Day(rst4.Fields(3)))
                        End If
                        rst3.Fields(3) = k
                        rst3.Update
                    Next k
                    End If
                End If
            End If
 
        Next j
    tar.MoveNext
    Wend