ERREUR : La méthode 'item' de l'objet 'Forms' à échoué

**Blanco68** · 04/05/2013, 12h44

Bonjour,

J'ai un problème avec un formulaire Access qui est assez problématique et je ne sais pas ce qui provoque cette erreur.
Je vais essayer d'expliquer au maximum car c'est assez compliqué.

Déjà voici l'erreur

Donc c'est erreur est provoqué après avoir créer un bouton et du code concernant le bouton avec la méthode CreateControl.

La ligne concerné est celle-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
DoCmd.OpenForm "Plan", acNormal
    
    Forms![plan]![Sem_mois].Form![debut_plan].Caption = Format(date_deb, "dd mmmm yyyy")
    Forms![plan]![Sem_mois].Form![fin_plan].Caption = Format(date_fin, "dd mmmm yyyy")
    Forms![plan].Form![day1].Caption = "Lun " & date_deb
    Forms![plan].Form![day2].Caption = "Mar " & date_deb + 1
    Forms![plan].Form![day3].Caption = "Mer " & date_deb + 2
    Forms![plan].Form![day4].Caption = "Jeu " & date_deb + 3
    Forms![plan].Form![day5].Caption = "Ven " & date_deb + 4
    Forms![plan].Form![day6].Caption = "Sam " & date_deb + 5

En fait je gère un planning pour des cours et je créé des boutons par semaines qui concerne des cours par la suite j'aimerais cliquer sur ces boutons pour consulté les informations du cours. Donc jusque ici pas de soucis c'est quand je veux changer de semaine que ça plante. Voici un exemple lorsque ça fonctionne

Ensuite je ferme le formulaire en manuel et je le relance et la il me sort un message que je n'ai jamais vu sur access et la plus aucun bouton ne fonctionne je dois fermer la BDD et la relancer

Pour la création des boutons et du code j'ai suivis le tuto que j'ai trouvé sur ce site.

Edit: Je viens de tester avec des On Error Resume next et en fait l'erreur se produit à chaque fois que je cherche une valeur en passant par Forms![plan]....

D'ailleurs est-ce que quelqu'un pourrait me dire si un Docmd.OpenForm lance le load du formulaire en question ?

**alassanediakite** · 04/05/2013, 21h34

Salut
Je soupçonne une répétition de création du même contrôle.
Utilises-tu la méthode CreateControl en passant de semaine à semaine?
Peut-on avoir le lien du tuto en question?
Pour Docmd.OpenForm, Oui il lance l'évènement load du formulaire.
@+

**Blanco68** · 05/05/2013, 09h48

Voila de quoi je me suis inspiré
http://access.developpez.com/faq/?pa...reeDynCtrlCode

La création de plusieurs contrôles du même nom est peu probable car je ne fais aucune sauvegarde du form quand je le ferme je ne sauvegarde jamais.
Pour l'openform c'est bizarre car en pas à pas il ne passe pas dans le load du formulaire

. Il passe bien dans le load des sous formulaire mais pas dans le formulaire principale

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
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
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
Public Sub change_jour(date_deb As Date, date_fin As Date)
 
Dim bd As DAO.Database
Set bd = CurrentDb
 
Dim ctl As Control
Dim mdl As Module
Dim lng As Long 'Sert à récupérer le numéro de la ligne d'insertion de la procédure
 
Dim heure_debut As Date 'Heure ou commence le planning
 
DoCmd.OpenForm "Parametrage", acNormal
 
heure_debut = TimeValue(Forms![parametrage].Form![param_debut].Caption)
 
DoCmd.Close acForm, "Parametrage", acSaveNo
 
'Position en haut a gauche
Dim haut As Double
Dim gauche As Double
 
'Combien faut-il se déplacer pour avancer d'un jour
Dim jour_deplacement As Double
 
'Combien faut-il se déplacer pour avancer d'un quart d'heure
Dim quart_heure_deplacement As Double
 
 
'Taille du bouton
Dim width_h As Double
Dim height_quart As Double
Dim height_h As Double
 
'Valeur des variables
'Faire fonction de calcul cm en twips
width_h = 1639
height_h = 1113
height_quart = 268.033563285702
haut = 1733
gauche = 835.65
jour_deplacement = 1700.79
quart_heure_deplacement = 283.5
 
 
Dim nbday As Integer
Dim nb_quart_debut As Integer
Dim nb_quart_duree As Integer
Dim heure_mod_debut As Date
Dim heure_mod_fin As Date
Dim duree_resa As Double
 
    Dim sql As String
    Dim sql1 As String
    Dim sql2 As String
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset
 
 
    'On récupère l'entête du planning
    Dim salle As Integer
 
    salle = Forms![plan].Form![salle_et].Caption
 
    'On effectue la requête
    sql = "SELECT DISTINCT Reservation.Num_res, Reservation.date_res, Reservation.heure_debut, Reservation.heure_fin, Reservation.Num_cours, Enseignant.Nom, Matiere.Libellé_mat, Salle.Libelle_salle FROM Salle INNER JOIN (Enseignant INNER JOIN ((Matiere INNER JOIN Cours ON Matiere.Num_mat = Cours.Num_mat) INNER JOIN Reservation ON Cours.Num_cours = Reservation.Num_cours) ON Enseignant.Num_ens = Cours.Num_ens) ON Salle.Num_salle = Reservation.Num_salle WHERE (((Reservation.date_res) Between #" & Format(date_deb, "mm/dd/yyyy") & "# And #" & Format(date_fin, "mm/dd/yyyy") & "#) AND ((Salle.Num_salle)=" & salle & "));"
 
    Set rs = bd.OpenRecordset(sql)
 
    DoCmd.Close acForm, "plan", acSaveNo
    DoCmd.Close acModule, "plan", acSaveNo
 
    If (rs.RecordCount <> 0) Then
 
     DoCmd.OpenForm "plan", acDesign
 
    End If
 
    While Not rs.EOF
 
 
        sql1 = "SELECT DISTINCT Groupe_etudiant.Libelle_grp_etud, [_suivre_par_grp].Num_cours FROM Groupe_etudiant INNER JOIN _suivre_par_grp ON Groupe_etudiant.Num_grp_etud = [_suivre_par_grp].Num_grp_etud WHERE ((([_suivre_par_grp].Num_cours)=" & rs![Num_cours] & "));"
        sql2 = "SELECT DISTINCT Sous_groupe.Libellé_sgrp, Groupe_etudiant.Libelle_grp_etud FROM (Sous_groupe INNER JOIN _suivre_par_sgrp ON Sous_groupe.Num_sgrp = [_suivre_par_sgrp].Num_sgrp) INNER JOIN (Groupe_etudiant INNER JOIN _appartenir ON Groupe_etudiant.Num_grp_etud = [_appartenir].Num_grp_etud) ON Sous_groupe.Num_sgrp = [_appartenir].Num_sgrp WHERE ((([_suivre_par_sgrp].Num_cours)=" & rs![Num_cours] & "));"
 
 
        Set rs1 = bd.OpenRecordset(sql1)
        Set rs2 = bd.OpenRecordset(sql2)
 
 
        'On met a zéro pour le prochain passage
        nb_quart_debut = 0
        nb_quart_duree = 0
        duree_resa = 0
 
        'Numéro du jour de la réservation
        nbday = DatePart("w", rs![date_res])
 
        'heure de la réservation
        heure_mod_debut = rs![heure_debut]
        heure_mod_fin = rs![heure_fin]
 
        'Boucle qui calcul ou d'ou être placé le début de la résa
        While (Format(heure_mod_debut, "hh:mm") > Format(heure_debut, "hh:mm"))
 
            nb_quart_debut = nb_quart_debut + 1
            heure_mod_debut = DateAdd("n", -15, heure_mod_debut)
 
        Wend
 
        'On remet la variable de la liste déroulante
        heure_mod_debut = rs![heure_debut]
 
        'Boucle qui permet de calculer la fin de la résa
        While (Format(heure_mod_fin, "hh:mm") > Format(heure_mod_debut, "hh:mm"))
 
            nb_quart_duree = nb_quart_duree + 1
            heure_mod_fin = DateAdd("n", -15, heure_mod_fin)
 
        Wend
 
        While (nb_quart_duree > 0)
 
        If (nb_quart_duree >= 4) Then
            nb_quart_duree = nb_quart_duree - 4
            duree_resa = duree_resa + height_h
        Else
            duree_resa = duree_resa + height_quart
            nb_quart_duree = nb_quart_duree - 1
        End If
 
        Wend
 
        Select Case nbday
 
            Case 2:
 
                        Set ctl = CreateControl("plan", acCommandButton, , , , gauche, haut + (quart_heure_deplacement * nb_quart_debut), width_h, duree_resa)
                        With ctl
                          'Définit un nom pour le contrôle
                          .Name = "Option" & rs![Num_res]
                          .FontSize = 8
                          .FontBold = True
                          .Caption = rs![nom] & Chr(13) + Chr(10) & rs![Libellé_mat]
 
                          If (rs1.RecordCount > 0) Then
 
                            While Not rs1.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs1![Libelle_grp_etud]
 
                                rs1.MoveNext
                            Wend
 
                          End If
 
                          If (rs2.RecordCount > 0) Then
 
                           While Not rs2.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs2![Libelle_grp_etud] & " " & rs2![Libellé_sgrp]
 
                                rs2.MoveNext
                            Wend
 
                          End If
                          .Shape = 0
                          'Déclare l'événement "Après mise à jour" du contrôle
                          .OnClick = "[Event Procedure]"
                        End With
 
 
                        'Normalement il ne nous reste plus qu'à écrire la procédure
                        'événementielle avec Module.CreateEventProc
 
                        'Et maintenant, création du code à éxécuter
 
                        Set mdl = Forms![plan].Module
 
                        If (mdl.Find("Option" & rs![Num_res], 0, 0, mdl.CountOfLines, 500, True, True, True) = False) Then
 
                            lng = mdl.CreateEventProc("Click", "Option" & rs![Num_res])
                            mdl.InsertLines lng + 1, _
                              vbTab & _
                              "DoCmd.OpenForm ""resa_plan"", acNormal"
 
                        End If
 
            Case 3:
 
                        Set ctl = CreateControl("plan", acCommandButton, , , , gauche + jour_deplacement, haut + (quart_heure_deplacement * nb_quart_debut), width_h, duree_resa)
                        With ctl
                     'Définit un nom pour le contrôle
                          .Name = "Option" & rs![Num_res]
                          .FontSize = 8
                          .FontBold = True
                          .Caption = rs![nom] & Chr(13) + Chr(10) & rs![Libellé_mat]
 
                          If (rs1.RecordCount > 0) Then
 
                            While Not rs1.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs1![Libelle_grp_etud]
 
                                rs1.MoveNext
                            Wend
 
                          End If
 
                          If (rs2.RecordCount > 0) Then
 
                           While Not rs2.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs2![Libelle_grp_etud] & " " & rs2![Libellé_sgrp]
 
                                rs2.MoveNext
                            Wend
                        End If
                          .Shape = 0
                          'Déclare l'événement "Après mise à jour" du contrôle
                          .OnClick = "[Event Procedure]"
                        End With
 
 
                        'Normalement il ne nous reste plus qu'à écrire la procédure
                        'événementielle avec Module.CreateEventProc
 
                       'Et maintenant, création du code à éxécuter
 
                        Set mdl = Forms![plan].Module
 
                        If (mdl.Find("Option" & rs![Num_res], 0, 0, mdl.CountOfLines, 500, True, True, True) = False) Then
 
                            lng = mdl.CreateEventProc("Click", "Option" & rs![Num_res])
                            mdl.InsertLines lng + 1, _
                              vbTab & _
                              "DoCmd.OpenForm ""resa_plan"", acNormal"
 
                        End If
 
            Case 4:
 
                        Set ctl = CreateControl("plan", acCommandButton, , , , gauche + jour_deplacement * 2, haut + (quart_heure_deplacement * nb_quart_debut), width_h, duree_resa)
                        With ctl
                          'Définit un nom pour le contrôle
                          .Name = "Option" & rs![Num_res]
                          .FontSize = 8
                          .FontBold = True
                          .Caption = rs![nom] & Chr(13) + Chr(10) & rs![Libellé_mat]
 
                          If (rs1.RecordCount > 0) Then
 
                            While Not rs1.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs1![Libelle_grp_etud]
 
                                rs1.MoveNext
                            Wend
 
                          End If
 
                          If (rs2.RecordCount > 0) Then
 
                           While Not rs2.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs2![Libelle_grp_etud] & " " & rs2![Libellé_sgrp]
 
                                rs2.MoveNext
                            Wend
                        End If
                          .Shape = 0
                          'Déclare l'événement "Après mise à jour" du contrôle
                          .OnClick = "[Event Procedure]"
                        End With
 
 
                        'Normalement il ne nous reste plus qu'à écrire la procédure
                        'événementielle avec Module.CreateEventProc
 
                        'Et maintenant, création du code à éxécuter
 
                        Set mdl = Forms![plan].Module
 
                        If (mdl.Find("Option" & rs![Num_res], 0, 0, mdl.CountOfLines, 500, True, True, True) = False) Then
 
                            lng = mdl.CreateEventProc("Click", "Option" & rs![Num_res])
                            mdl.InsertLines lng + 1, _
                              vbTab & _
                              "DoCmd.OpenForm ""resa_plan"", acNormal"
 
                        End If
 
            Case 5:
 
                        Set ctl = CreateControl("plan", acCommandButton, , , , gauche + jour_deplacement * 3, haut + (quart_heure_deplacement * nb_quart_debut), width_h, duree_resa)
                        With ctl
                          'Définit un nom pour le contrôle
                          .Name = "Option" & rs![Num_res]
                          .FontSize = 8
                          .FontBold = True
                          .Caption = rs![nom] & Chr(13) + Chr(10) & rs![Libellé_mat]
 
                          If (rs1.RecordCount > 0) Then
 
                            While Not rs1.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs1![Libelle_grp_etud]
 
                                rs1.MoveNext
                            Wend
 
                          End If
 
                          If (rs2.RecordCount > 0) Then
 
                           While Not rs2.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs2![Libelle_grp_etud] & " " & rs2![Libellé_sgrp]
 
                                rs2.MoveNext
                            Wend
                        End If
                          .Shape = 0
                          'Déclare l'événement "Après mise à jour" du contrôle
                          .OnClick = "[Event Procedure]"
                        End With
 
                        'Normalement il ne nous reste plus qu'à écrire la procédure
                        'événementielle avec Module.CreateEventProc
 
                        'Et maintenant, création du code à éxécuter
 
                        Set mdl = Forms![plan].Module
 
                        If (mdl.Find("Option" & rs![Num_res], 0, 0, mdl.CountOfLines, 500, True, True, True) = False) Then
 
                            lng = mdl.CreateEventProc("Click", "Option" & rs![Num_res])
                            mdl.InsertLines lng + 1, _
                              vbTab & _
                              "DoCmd.OpenForm ""resa_plan"", acNormal"
 
                        End If
 
 
 
            Case 6:
 
                        Set ctl = CreateControl("plan", acCommandButton, , , , gauche + jour_deplacement * 4, haut + (quart_heure_deplacement * nb_quart_debut), width_h, duree_resa)
                        With ctl
                          'Définit un nom pour le contrôle
                          .Name = "Option" & rs![Num_res]
                          .FontSize = 8
                          .FontBold = True
                          .Caption = rs![nom] & Chr(13) + Chr(10) & rs![Libellé_mat]
 
                          If (rs1.RecordCount > 0) Then
 
                            While Not rs1.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs1![Libelle_grp_etud]
 
                                rs1.MoveNext
                            Wend
 
                          End If
 
                          If (rs2.RecordCount > 0) Then
 
                           While Not rs2.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs2![Libelle_grp_etud] & " " & rs2![Libellé_sgrp]
 
                                rs2.MoveNext
                            Wend
                          End If
                          .Shape = 0
                          'Déclare l'événement "Après mise à jour" du contrôle
                          .OnClick = "[Event Procedure]"
                        End With
 
 
                        'Normalement il ne nous reste plus qu'à écrire la procédure
                        'événementielle avec Module.CreateEventProc
 
                       'Et maintenant, création du code à éxécuter
 
                        Set mdl = Forms![plan].Module
 
                        If (mdl.Find("Option" & rs![Num_res], 0, 0, mdl.CountOfLines, 500, True, True, True) = False) Then
 
                            lng = mdl.CreateEventProc("Click", "Option" & rs![Num_res])
                            mdl.InsertLines lng + 1, _
                              vbTab & _
                              "DoCmd.OpenForm ""resa_plan"", acNormal"
                        End If
 
            Case 7:
 
                        Set ctl = CreateControl("plan", acCommandButton, , , , gauche + jour_deplacement * 5, haut + (quart_heure_deplacement * nb_quart_debut), width_h, duree_resa)
                        With ctl
                          'Définit un nom pour le contrôle
                          .Name = "Option" & rs![Num_res]
                          .FontSize = 8
                          .FontBold = True
                          .Caption = rs![nom] & Chr(13) + Chr(10) & rs![Libellé_mat]
 
                          If (rs1.RecordCount > 0) Then
 
                            While Not rs1.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs1![Libelle_grp_etud]
 
                                rs1.MoveNext
                            Wend
 
                          End If
 
                          If (rs2.RecordCount > 0) Then
 
                           While Not rs2.EOF
                                .Caption = .Caption & Chr(13) + Chr(10) & rs2![Libelle_grp_etud] & " " & rs2![Libellé_sgrp]
 
                                rs2.MoveNext
                            Wend
                        End If
                          .Shape = 0
                          'Déclare l'événement "Après mise à jour" du contrôle
                          .OnClick = "[Event Procedure]"
                        End With
 
 
                        'Normalement il ne nous reste plus qu'à écrire la procédure
                        'événementielle avec Module.CreateEventProc
 
                       'Et maintenant, création du code à éxécuter
 
                        Set mdl = Forms![plan].Module
 
                        If (mdl.Find("Option" & rs![Num_res], 0, 0, mdl.CountOfLines, 500, True, True, True) = False) Then
 
                            lng = mdl.CreateEventProc("Click", "Option" & rs![Num_res])
                            mdl.InsertLines lng + 1, _
                              vbTab & _
                              "DoCmd.OpenForm ""resa_plan"", acNormal"
 
                        End If
 
            Case Else:
            MsgBox ("dimanche")
 
        End Select
 
   rs.MoveNext
   Wend
 
    rs.Close
 
    Set mdl = Nothing
    Set ctl = Nothing
 
    DoCmd.OpenForm "Plan", acNormal
 
    Forms![plan]![Sem_mois].Form![debut_plan].Caption = Format(date_deb, "dd mmmm yyyy")
    Forms![plan]![Sem_mois].Form![fin_plan].Caption = Format(date_fin, "dd mmmm yyyy")
    Forms![plan].Form![day1].Caption = "Lun " & date_deb
    Forms![plan].Form![day2].Caption = "Mar " & date_deb + 1
    Forms![plan].Form![day3].Caption = "Mer " & date_deb + 2
    Forms![plan].Form![day4].Caption = "Jeu " & date_deb + 3
    Forms![plan].Form![day5].Caption = "Ven " & date_deb + 4
    Forms![plan].Form![day6].Caption = "Sam " & date_deb + 5
 
 
 
 
    Application.Echo True
 
 
End Sub

ERREUR : La méthode 'item' de l'objet 'Forms' à échoué

VBA Access

Discussions similaires

Partager

Partager