Bonjour,
Avec ce code j'obtiens l'erreur decrite dans le titre je ne coprend pas a quoi cela correspond
L'erreur intervient au moment du pers.close et je n comprend vraiment pas pourquoi
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 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
Merci
Partager