Erreur de variable non définie

**piercleo** · 12/01/2010, 11h04

Bonjour,

Je suis en train de compiler mon code à la recherche d'erreurs. Suite à un gros plantage de notre base commerciale, j'ai dû recharger une version ancienne. Je ne suis pas bon du tout en informatique.

L'erreur que je reçois est la suivante :

Erreur de compilation :

Variable non définie

Voici le code qui pose problème avec en gras la partie soulignée:

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
Private Sub ImprimeÉtats(ModeImpression As Integer)
On Error GoTo Err_Aperçu_Click
    ' Cette procédure est utilisée par les procédures Aperçu_Click et
    ' Imprimer_Click. Visualise ou imprime l'état sélectionné dans le
    ' groupe d'options ÉtatÀImprimer. Ensuite ferme le formulaire

    Dim strQuelleAnnée As String

    Select Case Me!ÉtatÀImprimer
        Case 1
    'si pas de choix, alors année scolaire par défaut de la table variables
    If IsNull(Forms![Dialogue Statistiques]!SélectionAnnee) Then
        Forms![Dialogue Statistiques]!SélectionAnnee = DLookup("[Année scolaire]", "variables", "N°unique = 1")
    End If
    'choix de l'année scolaire
    strQuelleAnnée = "[Année scolaire] = Forms![Dialogue Statistiques]!SélectionAnnee"
    'suppression des msg system prévenant qu'on va ajouter des enreg.
    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("SupprEnregCumulAbt") 'raz de cumulabt
    DoCmd.OpenQuery ("MajCumulAbt")         'et maj
    DoCmd.SetWarnings True
    'maj fichier temp "cumulabt" pour graphique sur cumul abt par date
    Call CumulAbt.CumulAbt
                DoCmd.OpenReport "E_Nbre d'abonnement par date", ModeImpression, , strQuelleAnnée
        Case 2
     'si pas de choix, alors année scolaire par défaut de la table variables
    If IsNull(Forms![Dialogue Statistiques]!SélectionAnnee) Then
        Forms![Dialogue Statistiques]!SélectionAnnee = DLookup("[Année scolaire]", "variables", "N°unique = 1")
    End If
    'choix de l'année scolaire
    strQuelleAnnée = "[Année scolaire] = Forms![Dialogue Statistiques]!SélectionAnnee"
   'suppression des msg system prévenant qu'on va ajouter des enreg.
    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("SupprEnregCumulAbt") 'raz de cumulabt
    DoCmd.OpenQuery ("MajCumulAbt")         'et maj
    DoCmd.SetWarnings True
    'maj fichier temp "cumulabt" pour graphique sur cumul abt par date
    Call CumulAbt.CumulAbt
                DoCmd.OpenReport "E_Nbre d'abonnement par date Graphique", ModeImpression, , strQuelleAnnée
        Case 3
    'si pas de choix, alors année scolaire par défaut de la table variables
    If IsNull(Forms![Dialogue Statistiques]!SélectionAnnee) Then
        Forms![Dialogue Statistiques]!SélectionAnnee = DLookup("[Année scolaire]", "variables", "N°unique = 1")
    End If
    'choix de l'année scolaire
    strQuelleAnnée = "[Année scolaire] = Forms![Dialogue Statistiques]!SélectionAnnee"
    'suppression des msg system prévenant qu'on va ajouter des enreg.
    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("SupprEnregCumulAbt") 'raz de cumulabt
    DoCmd.OpenQuery ("MajCumulAbt")         'et maj
    DoCmd.SetWarnings True
    'maj fichier temp "cumulabt" pour graphique sur cumul abt par date
    Call CumulAbt.CumulAbt
                DoCmd.OpenReport "E_Nbre d'abonnements par dept", ModeImpression, , strQuelleAnnée
        Case 4
    'si pas de choix, alors année scolaire par défaut de la table variables
    If IsNull(Forms![Dialogue Statistiques]!SélectionAnnee) Then
        Forms![Dialogue Statistiques]!SélectionAnnee = DLookup("[Année scolaire]", "variables", "N°unique = 1")
    End If
    'choix de l'année scolaire
    strQuelleAnnée = "[Année scolaire] = Forms![Dialogue Statistiques]!SélectionAnnee"
    'suppression des msg system prévenant qu'on va ajouter des enreg.
    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("SupprEnregCumulAbt") 'raz de cumulabt
    DoCmd.OpenQuery ("MajCumulAbt")         'et maj
    DoCmd.SetWarnings True
    'maj fichier temp "cumulabt" pour graphique sur cumul abt par date
    Call CumulAbt.CumulAbt
                DoCmd.OpenReport "E_Nbre d'abonnements pris par collec par dept", ModeImpression, , strQuelleAnnée
        Case 5
    'si pas de choix, alors année scolaire par défaut de la table variables
    If IsNull(Forms![Dialogue Statistiques]!SélectionAnnee) Then
        Forms![Dialogue Statistiques]!SélectionAnnee = DLookup("[Année scolaire]", "variables", "N°unique = 1")
    End If
    'choix de l'année scolaire
    strQuelleAnnée = "[Année scolaire] = Forms![Dialogue Statistiques]!SélectionAnnee"
    'suppression des msg system prévenant qu'on va ajouter des enreg.
    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("SupprEnregCumulAbt") 'raz de cumulabt
    DoCmd.OpenQuery ("MajCumulAbt")         'et maj
    DoCmd.SetWarnings True
    'maj fichier temp "cumulabt" pour graphique sur cumul abt par date
    Call CumulAbt.CumulAbt
                DoCmd.OpenReport "E_Nbre d'abonnés par niveau de classe", ModeImpression, , strQuelleAnnée
        Case 6
    'si pas de choix, alors année scolaire par défaut de la table variables
    If IsNull(Forms![Dialogue Statistiques]!SélectionAnnee) Then
        Forms![Dialogue Statistiques]!SélectionAnnee = DLookup("[Année scolaire]", "variables", "N°unique = 1")
    End If
    'choix de l'année scolaire
    strQuelleAnnée = "[Année scolaire] = Forms![Dialogue Statistiques]!SélectionAnnee"
    'suppression des msg system prévenant qu'on va ajouter des enreg.
    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("SupprEnregCumulAbt") 'raz de cumulabt
    DoCmd.OpenQuery ("MajCumulAbt")         'et maj
    DoCmd.SetWarnings True
    'maj fichier temp "cumulabt" pour graphique sur cumul abt par date
    Call CumulAbt.CumulAbt
                DoCmd.OpenReport "E_Comparatif abonnements entre collectivité  et autres", ModeImpression, , strQuelleAnnée
        Case 7
    'si pas de choix, alors année scolaire par défaut de la table variables
    If IsNull(Forms![Dialogue Statistiques]!SélectionAnnee) Then
        Forms![Dialogue Statistiques]!SélectionAnnee = DLookup("[Année scolaire]", "variables", "N°unique = 1")
    End If
    'choix de l'année scolaire
    strQuelleAnnée = "[Année scolaire] = Forms![Dialogue Statistiques]!SélectionAnnee"
    'suppression des msg system prévenant qu'on va ajouter des enreg.
    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("SupprEnregCumulAbt") 'raz de cumulabt
    DoCmd.OpenQuery ("MajCumulAbt")         'et maj
    DoCmd.SetWarnings True
    'maj fichier temp "cumulabt" pour graphique sur cumul abt par date
    Call CumulAbt.CumulAbt
                DoCmd.OpenReport "E_Nbre d'abonnement par date", ModeImpression, , strQuelleAnnée
                DoCmd.OpenReport "E_Nbre d'abonnement par date Graphique", ModeImpression, , strQuelleAnnée
                DoCmd.OpenReport "E_Nbre d'abonnements par dept", ModeImpression, , strQuelleAnnée
                DoCmd.OpenReport "E_Nbre d'abonnements pris par collec par dept", ModeImpression, , strQuelleAnnée
                DoCmd.OpenReport "E_Nbre d'abonnés par niveau de classe", ModeImpression, , strQuelleAnnée
                DoCmd.OpenReport "E_Comparatif abonnements entre collectivité  et autres", ModeImpression, , strQuelleAnnée
        Case 8
    'on ne s'oocupe pas de la date, on prend toutes les années
    'suppression des msg system prévenant qu'on va ajouter des enreg.
    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("SupprEnregCumulAbt") 'raz de cumulabt
    DoCmd.OpenQuery ("MajCumulAbtCumulAn")         'et maj
    DoCmd.SetWarnings True
    'maj fichier temp "cumulabt" pour graphique sur cumul abt par date
    Call CumulAbt.CumulAbt
                DoCmd.OpenReport "E_Nbre d'abonnement par date Graphique Cumul", ModeImpression, , strQuelleAnnée
    End Select
    
    DoCmd.Close acForm, "Dialogue Statistiques"

Quitte_Aperçu_Click:
    Exit Sub

Err_Aperçu_Click:
    Resume Quitte_Aperçu_Click

End Sub

Merci d'avance pour toute aide

Pierre C.

**Arkham46** · 12/01/2010, 16h02

Bjr,

CumulAbt est-il un module, ou une procédure, ou les deux??
Voir dans l'éditeur VBA (ALT+F11) la liste des modules, et les procédures (Sub ou Function) contenues dans ces modules.

Code :

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

Call CumulAbt.CumulAbt

signifie apparement :
Exécute la procédure CumulAbt du module CumulAbt

Erreur de variable non définie

VBA Access

Discussions similaires

Partager

Partager