Erreur :operation demandée non autorisée dans ce contexte
Bonjour,
Avec ce code j'obtiens l'erreur decrite dans le titre je ne coprend pas a quoi cela correspond
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
| Dim pers As New ADODB.Recordset
pers.Open "PERSONNEL WHERE Nom_etablissement =""" & [etb] & """ AND Qualite = 'Principal' ", MaDb, adOpenDynamic, adLockOptimistic, adCmdTable
If pers.EOF Then
'Ajout de la personne
pers.AddNew
pers.Fields("Nom_etablissement") = etb
pers.Fields("Nom") = chef_nom.Value
pers.Fields("Prenom") = chef_prenom.Value
pers.Fields("Tel") = chef_tel.Value
pers.Fields("Mail") = chef_mail.Value
pers.Fields("Qualite") = "Principal"
Else
'Changement du nom
Rqt = "UPDATE PERSONNEL Set Nom = """ & [ntb] & """ WHERE Nom_etablissement = """ & [etb] & """ AND Qualite = 'Principal' "
MaDb.Execute Rqt, iAffected, adExecuteNoRecords
'Changement du prénom
Rqt = "UPDATE PERSONNEL Set Prenom = """ & [prn] & """ WHERE Nom_etablissement = """ & [etb] & """ AND Qualite = 'Principal' "
MaDb.Execute Rqt, iAffected, adExecuteNoRecords
'Changement du telephone
Rqt = "UPDATE PERSONNEL Set Tel = """ & [tel] & """ WHERE Nom_etablissement = """ & [etb] & """ AND Qualite = 'Principal' "
MaDb.Execute Rqt, iAffected, adExecuteNoRecords
'Changement du mail
Rqt = "UPDATE PERSONNEL Set Mail = """ & [mel] & """ WHERE Nom_etablissement = """ & [etb] & """ AND Qualite = 'Principal' "
MaDb.Execute Rqt, iAffected, adExecuteNoRecords
End If
pers.Close |
L'erreur intervient au moment du pers.close et je n comprend vraiment pas pourquoi
Merci
