Bonsoir à tous !
Voila, j'ai un souci car je suis en train de créer un formulaire (constituer de case à cocher) qui doit me permettre d'alimenter ma base de donnée.

Sur ce formulaire figure un bouton Enregistrer qui au moment du clic doit enregistrer dans ma base des informations... Cependant rien ne se passe.
Même le message de confirmation d'enregistrement ne s'affiche pas.

Petite précision, le code que j'utilise pour l'évènement sur le clic du bouton enregistrer et un copier coller car j'avais déjà fait un travail similaire cependant le code a était adapté après l'avoir collé.

Voici mon 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
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
Private Sub BT_Enregistrer_Click()
 
 
Dim rep, rep2, rep3, rep4, rep5, rep6, rep7 As Boolean
Dim Rs, Rs2, Rs3, Rs4, Rs5, Rs6, Rs7, Rs8, Rs9, Rs10, Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18 As DAO.Recordset
Dim nquestionnaire As Long
Dim nclient As Long
Dim ncompetence As Long
 
 
'test
 
If Me.c1.Value = True Then
rep = True
ElseIf Me.c1.Value = False Then
rep = False
End If
 
If Me.c2.Value = True Then
rep2 = True
ElseIf Me.c2.Value = False Then
rep2 = False
End If
 
If Me.c3.Value = True Then
rep3 = True
ElseIf Me.c3.Value = False Then
rep3 = False
End If
 
If Me.c4.Value = True Then
rep4 = True
ElseIf Me.c4.Value = False Then
rep4 = False
End If
 
If Me.c5.Value = True Then
rep5 = True
ElseIf Me.c5.Value = False Then
rep5 = False
End If
 
If Me.c6.Value = True Then
rep6 = True
ElseIf Me.c6.Value = False Then
rep6 = False
End If
 
If Me.c7.Value = True Then
rep7 = True
ElseIf Me.c7.Value = False Then
rep7 = False
End If
 
 
 
 
 
 
 
'On rempli le champ date de la table questionnaire par la date du formulaire
 
SQL = "select * from questionnaire;"
Set Rs = CurrentDb.OpenRecordset(SQL)
Rs.AddNew
    Rs.DateQuest = Me.TXT_date
Rs.Update
Rs.Close
 
SQL50 = "select max(NumQuestionnaire) from Questionnaire;"
Set rs50 = CurrentDb.OpenRecordset(SQL50)
nquestionnaire = rs50(0)
rs50.Close
 
'Pour recuperer le numero de client
 
nclient = Me.ListeClient
 
 
'test
 
 
For ncompetence = 1 To 7
    SQL2 = "select * from réponse;"
    Set Rs2 = CurrentDb.OpenRecordset(SQL2)
    Rs2.AddNew
        Rs2.NumQuestionnaire = nquestionnaire
        Rs2.NumCompétence = ncompetence
        Rs2.NumClient = nclient
        Select Case ncompetence
            Case 1
                Rs2.réponse = rep
            Case 2
                Rs2.réponse = rep2
            Case 3
                Rs2.réponse = rep3
            Case 4
                Rs2.réponse = rep4
            Case 5
                Rs2.réponse = rep5
            Case 6
                Rs2.réponse = rep6
            Case 7
                Rs2.réponse = rep7
        End Select
    Rs2.Update
    Rs2.Close
Next ncompetence
 
 
 
'Confirmation
MsgBox ("Le formulaire à bien était enregistré")
DoCmd.Close acForm, "Formulaire1"
DoCmd.OpenForm ("Formulaire1")
 
End Sub
Je suis débutant, merci de votre compréhension et de votre aide.