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

**ancel17** · 10/05/2007, 18h15

Bonjour !

j'ai un souci avec le code suivant :

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
    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 :

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

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...

**Le Pharaon** · 10/05/2007, 18h24

Essaye de vérifier si ton recorset prend les bonnes valeurs :

Code :

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

1
2
3
4
5
 
For j = 1 To 10
...
...
debug.print rst.Fields(2) & "  " & j

**ancel17** · 10/05/2007, 18h36

le problème ne vient pas de la boucle

Code :

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

For j =1 to 10

qui est effectué correctement, mais bien de tar qui ne change pas d'enregistrement...

**Le Pharaon** · 10/05/2007, 18h50

Excuse j'avais pas tout vu.
Un msgbox tar.recordcount donne quoi ?

**ancel17** · 10/05/2007, 18h58

ça donne bien le nombre d'enregistrement de la table

**ancel17** · 10/05/2007, 19h02

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

**ancel17** · 10/05/2007, 19h36

Autre remarque : lorsque je mets un

Code :

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

msgbox tar.Fields(0)

après le

Code :

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

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...

**ancel17** · 10/05/2007, 19h49

j'ai inversé le While Not tar.EOF avec le For j = 1 to 10.

on a donc le nouveau code :

Code :

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

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 :

Variable objet ou variable de bloc With non définie

**ancel17** · 11/05/2007, 09h14

Par contre là, je vois pas comment résoudre...

**Pierre Fauconnier** · 11/05/2007, 10h05

Peux-tu expliquer en français ce que tu souhaites réaliser?

**ancel17** · 11/05/2007, 10h51

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 :

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

For j = 1 To 10 ... Next j

ma table T_arrete liste les n°arrete =>

Code :

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

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

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

Code :

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

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 :

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

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

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

Code :

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

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 :

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

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

**ancel17** · 12/06/2007, 09h26

Bonjour,

j'ai résolu le problème, donc pour ceux que ça intéresse, voici 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
 
    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

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

VBA Access

Discussions similaires

Partager

Partager