Slt,
Je reviens sur cette préoccupation:
comment modifier la valeur sur laquelle l'on definit un critère (sql)
pour ne pas qu'il y ait de doublon avec un tel 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
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
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
Merci.