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 |
Partager