Discussion :

[mianiser]

Bonjour
je cherche a mettre a jour la table mvnt qui est en relation avec la table identite
mais ca ne fe ke la premiere mise a jour pqr identite mais quant il faut ajouter de nouveau la meme identite avec une modification dans la meme table ca ne marche pas

et il n'envoie aucune erreur

je vous envoie l' exemple du 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
rs.Close
sql = "select * from fonctionnaire where code ='" & lindex & "'"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic, adCmdText
 
If Trim(lindex) = "" Then
MsgBox "Input searching first !!!", vbExclamation, "Modify"
Else
If MsgBox("Do you want to save this modifications ?", vbYesNo) = vbYes Then
 
DataUp
rs.Close
 
sql = "SELECT Fonctionnaire.CODE, MouvementSecteur.Promotion, MouvementSecteur.Secteur, Secteur.Categori FROM Secteur INNER JOIN (Fonctionnaire INNER JOIN MouvementSecteur ON Fonctionnaire.CODE = MouvementSecteur.Namet) ON Secteur.Categori = MouvementSecteur.Secteur"
'sql = "Select * from MouvementSecteur"
rs.Open sql, cn
 
rs.AddNew
rs!namet = txtcodfon
rs!promotion = cbSYear
rs!sector = cbSect
rs.Close
 
MsgBox "Data modified", vbInformation, "Save"
Exit Sub
End If
End If
lindex = rs!code

[Delbeke]

Je ne suis pas très doué avec ADO car j'utilise principalement DAO.
Il serait interressant de revoir la logique de ton code

Par exemple, il serait plus intelligent de vérifier si lindex est différent de vide avant d'ouvrir une connection!

Apres un rs.addnew, un rs.update est aussi interressant pour enteriner les modifications !

[mianiser]

Je ne suis doué avec ce forum mais je tenais a t'informer que tes conseils m'ont beaucoup aider a le finir

donc il fallait ajouter rs.update partout