Discussion :

[Massiliya]

Bonjour

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
    Dim oDb1 As DAO.Database
    Dim rec0 As DAO.Recordset  ' table en ajout
    Set oDb1 = CurrentDb
    Set rec0 = oDb1.OpenRecordset("SELECT * FROM dim_aux", dbOpenDynaset)
    'Vider la table "dim_aux"
            '
            'Empêche les demande de confirmation de s'afficher
                  DoCmd.SetWarnings False
            'Efface le contenu de la table
                  DoCmd.RunSQL "DELETE * FROM dim_aux;"
            'Retablit les confirmations
                  DoCmd.SetWarnings True
    'Remplir la table "dim_aux"
        'dim = 50 cm
             If (Me.Cocher50 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 50
                 rec0.Update
             End If
        'dim = 60 cm
             If (Me.Cocher60 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 60
                 rec0.Update
             End If
        'dim = 70 cm
             If (Me.Cocher70 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 70
                 rec0.Update
             End If
        'dim = 80 cm
             If (Me.Cocher80 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 80
                 rec0.Update
             End If
        'dim = 90 cm
             If (Me.Cocher90 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 90
                 rec0.Update
             End If
         'dim = 100 cm
             If (Me.Cocher100 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 100
                 rec0.Update
             End If
         'dim = 110 cm
             If (Me.Cocher110 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 110
                 rec0.Update
             End If
         'dim = 120 cm
             If (Me.Cocher120 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 120
                 rec0.Update
             End If
         'dim = 130 cm
             If (Me.Cocher130 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 130
                 rec0.Update
             End If
         'dim = 140 cm
             If (Me.Cocher140 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 140
                 rec0.Update
             End If
         'dim = 150 cm
             If (Me.Cocher150 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 150
                 rec0.Update
             End If
         'dim = 160 cm
             If (Me.Cocher160 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 160
                 rec0.Update
             End If
         'dim = 170 cm
             If (Me.Cocher170 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 170
                 rec0.Update
             End If
         'dim = 180 cm
             If (Me.Cocher180 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 180
                 rec0.Update
             End If
         'dim = 190 cm
             If (Me.Cocher190 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 190
                 rec0.Update
             End If
         'dim = 200 cm
             If (Me.Cocher200 = True) Then
                 rec0.AddNew
                 rec0![Dimcoupe] = 200
                 rec0.Update
             End If
    rec0.Close
    Set rec0 = Nothing

Ci-dessus j'ai un code que j'ai écrit pour me permettre de vider une table nommée "dim_aux" de son contenu puis la remplir à partir des cases à cocher représentant chacune une longueur comme le montre le capture écran ci-dessous:

Toutefois j'ai un message d'erreur que j'ai pas compris :

Merci d'avance pour votre aide

[Massiliya]

Bah j'ai résolu le problème en fait j'ai mis ce code après l'instruction de fermeture du formulaire

Code :

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

DoCmd.Close

En changeant l'ordre tout va bien