modifier un enregistrement

et oui c encore moi!

voila mon code:

Dim db As Database
Dim rs1 As Recordset
Dim sql As String

sql = "SELECT * FROM Connexion WHERE Login='" & TxtCurrentLogin.Text & "'"


Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)

rs1.Edit

rs1.Fields("Login") = TxtNewLogin.Text
rs1.Fields("Password") = TxtNewPass.Text

rs1.Update
rs1.Close
MsgBox " Mot de passe changé"

ET quand je compile il me met une erreur au niveau de rs1.Edit qui me dit méthode ou membre de données introuvable.

C un code que j ai sorti d un tutorial alors je vois pas trop mon erreur.

Merci de me donner un coup de main.

Bah moi je ferais pas ca en fait .... je ferais plutot :

    Set rs1 = CurrentDb.OpenRecordset("Connexion ")
   
    rs1.MoveFirst
    While Str(rs1.Fields("Login")) <> Str(TxtCurrentLogin.value) 'or not rs1.EOF
       'J'ajouterai le test de EOF ..
        rs1.MoveNext
    Wend
           
    'On est sur le bon enregistrement..
   rs1.Edit
   rs1!Login = TxtCurrentLogin.value
   rs1!Password = TxtNewPass.value
   rs1.Update
           
   rs1.Close
   
    Set rs1 = Nothing

Voilou ..

ok je vais essayer ca merci pour tout

Essaye avant de remercié c'est pas dis que ca marche

j ai repri ton code mais j ai toujours la meme erreur au meme endroit.

Un truc est anormalement déclaré ... :s
dans ton code, DB n'est pas renseigné et dans mon cas rs1 n'est pas déclaré ...
Essaye un des 2 codes :

Dim rs1 As Recordset
Set rs1 = CurrentDb.OpenRecordset("Connexion ")
   
    rs1.MoveFirst
    While Str(rs1.Fields("Login")) <> Str(TxtCurrentLogin.value) 'or not rs1.EOF
       'J'ajouterai le test de EOF ..
        rs1.MoveNext
    Wend
           
    'On est sur le bon enregistrement..
   rs1.Edit
   rs1!Login = TxtCurrentLogin.value
   rs1!Password = TxtNewPass.value
   rs1.Update
           
   rs1.Close
   
    Set rs1 = Nothing

ou

Dim db As Database
Dim rs1 As Recordset
Dim sql As String

sql = "SELECT * FROM Connexion WHERE Login='" & TxtCurrentLogin.Text & "'"

db = CurrentDb
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)

rs1.Edit

rs1.Fields("Login") = TxtNewLogin.Text
rs1.Fields("Password") = TxtNewPass.Text

rs1.Update
rs1.Close
MsgBox " Mot de passe changé"

So .. ?

Mince j'ai un espace en trop .. sur la ligne
Set rs1 = CurrentDb.OpenRecordset("Connexion ")

>>  Remplace par :
Set rs1 = CurrentDb.OpenRecordset("Connexion")

ca ne marche pas non plus dans mon code ( j avais deja déclaré rs1 avant) et avec ton code il y a une erreur a la ligne db = CurrentDb

Salut,

Et en ajoutant au début :
set db = opendatabase("CheminBase.mdb") ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?