Code VB6 pour referencer deux tables dans un formulaire
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:
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 |
