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