Slt,
Je reviens sur cette préoccupation:
pour ne pas qu'il y ait de doublon avec un tel code .comment modifier la valeur sur laquelle l'on definit un critère (sql)
NB: je crée une variable qui prend la valeur de la donnée à modifier quand il s'agit de la donnée sur qui est posée une condition
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 Private Sub CmdModifier_Click() Set db = CurrentDb Set rst = db.OpenRecordset("SELECT * FROM tSite WHERE (site = '" & lesite & "')") If MsgBox("Voulez-vous modifier ce enregistrement", vbQuestion + vbYesNo, "Confirmer") = vbYes Then With rst .Edit !site = Me.txtsite !Description = Me.txtdescription .Update End With Me.LstSite.Requery Me.txtsite = Null Me.txtdescription = Null Else End If Me.txtsite.SetFocus End Sub
Merci.
Partager