[AC-2007] affectation d'un champ d'une requête a une zone de texte d'un état [Résolu]

[rominous41]

bonjour ,
voici mon 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
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
 
Private Sub Report_Open(Cancel As Integer)
Dim strreq As String
    Dim flag As Boolean
    flag = False
    If IsNull([Form_RECHERCHE]![nom]) And IsNull([Form_RECHERCHE]![prenom]) And IsNull([Form_RECHERCHE]![mois]) And IsNull([Form_RECHERCHE]![reso]) And IsNull([Form_RECHERCHE]![adherent]) Then
        MsgBox "Veuillez spécifier un champs au minimum "
        [Form_RECHERCHE]![nom].SetFocus
    End If
    If [Form_RECHERCHE]![ta] = -1 Then
        strreq = "select * from salarie where"
        If IsNull([Form_RECHERCHE]![nom]) = False Then
            strreq = strreq & " nom = '" & [Form_RECHERCHE]![nom] & "'"
            flag = True
        End If
        If IsNull([Form_RECHERCHE]![prenom]) = False Then
            If flag = True Then
                strreq = strreq & " and prenom = '" & [Form_RECHERCHE]![prenom] & "'"
            Else
                strreq = strreq & " prenom = '" & [Form_RECHERCHE]![prenom] & "'"
                flag = True
            End If
        End If
        If IsNull([Form_RECHERCHE]![mois]) = False Then
            If flag = True Then
                strreq = strreq & " and mois = '" & [Form_RECHERCHE]![mois] & "'"
            Else
                strreq = strreq & " mois = '" & [Form_RECHERCHE]![mois] & "'"
                flag = True
            End If
        End If
        If IsNull([Form_RECHERCHE]![reso]) = False Then
            If flag = True Then
                strreq = strreq & " and reso = '" & [Form_RECHERCHE]![reso] & "'"
            Else
                strreq = strreq & " reso = '" & [Form_RECHERCHE]![reso] & "'"
            End If
        End If
        strreq = strreq & ";"
        Else
        strreq = "select * from salarie where "
        If IsNull([Form_RECHERCHE]![nom]) = False Then
            strreq = strreq & " nom = '" & [Form_RECHERCHE]![nom] & "'"
            flag = True
        End If
        If IsNull([Form_RECHERCHE]![prenom]) = False Then
            If flag = True Then
                strreq = strreq & " and prenom = '" & [Form_RECHERCHE]![prenom] & "'"
            Else
                strreq = strreq & " prenom = '" & [Form_RECHERCHE]![prenom] & "'"
                flag = True
            End If
        End If
       If IsNull([Form_RECHERCHE]![mois]) = False Then
          If flag = True Then
               strreq = strreq & " and mois = '" & [Form_RECHERCHE]![mois] & "'"
            Else
              strreq = strreq & " mois = '" & [Form_RECHERCHE]![mois] & "'"
                flag = True
            End If
        End If
        If IsNull([Form_RECHERCHE]![reso]) = False Then
            If flag = True Then
                strreq = strreq & " and reso = '" & [Form_RECHERCHE]![reso] & "'"
            Else
                strreq = strreq & " reso = '" & [Form_RECHERCHE]![reso] & "'"
            End If
        End If
        strreq = strreq & ";"
    End If
    MsgBox strreq
    Set sqlrecup = CurrentDb().OpenRecordset(strreq)
    MsgBox sqlrecup.RecordCount
    absence1 = sqlrecup!abs1
    Me.absence2 = sqlrecup!abs2
    Me.absence3 = sqlrecup!abs3
    Me.absence4 = sqlrecup!abs4
    Me.absence5 = sqlrecup!abs5
    Me.absence6 = sqlrecup!abs6
    Me.absr1 = sqlrecup!absr1
    Me.absr2 = sqlrecup!absr2
    Me.absr3 = sqlrecup!absr3
    Me.absr4 = sqlrecup!absr4
    Me.absr5 = sqlrecup!absr5
    Me.absr6 = sqlrecup!absr6
    Me.adherent = sqlrecup!adherent
    Me.av_sem1 = sqlrecup!sem1av
    Me.av_sem2 = sqlrecup!sem2av
    Me.av_sem3 = sqlrecup!sem3av
    Me.av_sem4 = sqlrecup!sem4av
    Me.av_sem5 = sqlrecup!sem5av
    Me.av_sem6 = sqlrecup!sem6av
    Me.cinquiemes = sqlrecup!sem5
    Me.cumul_s1 = sqlrecup!cumul1
    Me.cumul_s2 = sqlrecup!cumul2
    Me.cumul_s3 = sqlrecup!cumul3
    Me.cumul_s4 = sqlrecup!cumul4
    Me.cumul_s5 = sqlrecup!cumul5
    Me.cumul_s6 = sqlrecup!cumul6
    Me.deb = sqlrecup!deb
    Me.dureeheb = sqlrecup!hebdo
    Me.ecart1 = sqlrecup!ecart1
    Me.ecart2 = sqlrecup!ecart2
    Me.ecart3 = sqlrecup!ecart3
    Me.ecart4 = sqlrecup!ecart4
    Me.ecart5 = sqlrecup!ecart5
    Me.ecart6 = sqlrecup!ecart6
    Me.fin = sqlrecup!fin
    Me.hg_s1 = sqlrecup!hct1
    Me.hg_s2 = sqlrecup!hct2
    Me.hg_s1 = sqlrecup!hct3
    Me.hg_s3 = sqlrecup!hct4
    Me.hg_s4 = sqlrecup!hct5
    Me.hg_s5 = sqlrecup!hct6
    Me.hor_plan_cinq = sqlrecup!h_plan5
    Me.hor_plan_prem = sqlrecup!h_plan1
    Me.hor_plan_qua = sqlrecup!h_plan4
    Me.hor_plan_sec = sqlrecup!h_plan2
    Me.hor_plan_six = sqlrecup!h_plan6
    Me.hor_plan_troi = sqlrecup!h_plan3
    Me.hsn1_s1 = sqlrecup!hs11
    Me.hsn1_s2 = sqlrecup!hs12
    Me.hsn1_s3 = sqlrecup!hs13
    Me.hsn1_s4 = sqlrecup!hs14
    Me.hsn1_s5 = sqlrecup!hs15
    Me.hsn1_s6 = sqlrecup!hs16
    Me.hsn2_s1 = sqlrecup!hs21
    Me.hsn2_s2 = sqlrecup!hs22
    Me.hsn2_s3 = sqlrecup!hs23
    Me.hsn2_s4 = sqlrecup!hs24
    Me.hsn2_s5 = sqlrecup!hs25
    Me.hsn2_s6 = sqlrecup!hs26
    Me.hsn3_s1 = sqlrecup!hs31
    Me.hsn3_s2 = sqlrecup!hs32
    Me.hsn3_s3 = sqlrecup!hs33
    Me.hsn3_s4 = sqlrecup!hs34
    Me.hsn3_s5 = sqlrecup!hs35
    Me.hsn3_s6 = sqlrecup!hs36
    Me.ht_total = sqlrecup!totalht
    Me.ht1 = sqlrecup!ht1
    Me.ht2 = sqlrecup!ht2
    Me.ht3 = sqlrecup!ht3
    Me.ht4 = sqlrecup!ht4
    Me.ht5 = sqlrecup!ht5
    Me.ht6 = sqlrecup!ht6
    Me.mail = sqlrec!mail
    Me.max = sqlrec!max
    Me.mens = sqlrecup!mens
    Me.mois = sqlrecup!mois
    Me.nom = sqlrecup!nom
    Me.poste = sqlrecup!poste
    Me.premieres = sqlrecup!sem1
    Me.prenom = sqlrecup!prenom
    Me.quatriemes = sqlrecup!sem4
    Me.secondes = sqlrecup!sem2
    Me.sixiemes = sqlrecup!sem6
    Me.solde_s1 = sqlrecup!solde1
    Me.solde_s2 = sqlrecup!solde2
    Me.solde_s3 = sqlrecup!solde3
    Me.solde_s4 = sqlrecup!solde4
    Me.solde_s5 = sqlrecup!solde5
    Me.solde_s6 = sqlrecup!solde6
    Me.total_absence = sqlrecup!totalabs
    Me.total_absr = sqlrecup!totalabrs
    Me.total_av = sqlrecup!totalav
    Me.total_cumul = sqlrecup!totalcumul
    Me.total_ecart = ""
    Me.total_hg = sqlrecup!totalhct
    Me.total_hor_plan = sqlrecup!totalh_plan
    Me.total_solde = sqlrecup!total!solde
    Me.troisièmes = sqlrecup!sem3
    Me.tx = sqlrecup!taux
End Sub

et voici mon erreur

erreur d’exécution '-2147352567(80020009)
impossible d'attribuer une valeur a cet objet

le débogueur surligne " absence1 = sqlrecup!abs1 "

Avez vous des idées

[LedZeppII]

Bonjour,

• Peut-être que le contrôle absence1 n'est pas indépendant.
• Peut-être que ce n'est pas le bon événement.
  En général on voit plutôt ça dans les événements Print ou Format de la section dans laquelle se trouve le contrôle.

A+

[rominous41]

Merci LedZeppII,
Ta réponse ma aidé à trouver la solution au problème.
En effet je voulais affecter mes valeurs à l'ouverture de l'état, et à mon avis les textbox ne sont pas encore créées à ce moment là. C'est pour ça qu'il ne peut pas mettre de valeur.