modifier un enregistrement

Question

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.

cs_cbu · Answer

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 ..

jdetrez · Answer

ok je vais essayer ca merci pour tout

cs_cbu · Answer

Essaye avant de remerci&#233; c'est pas dis que ca marche

jdetrez · Answer

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

cs_cbu · Answer

Un truc est anormalement d&#233;clar&#233; ... :s

dans ton code, DB n'est pas renseign&#233; et dans mon cas rs1 n'est pas d&#233;clar&#233; ...

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&#233;"



So .. ?

cs_cbu · Answer

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

jdetrez · Answer

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

cs_CanisLupus · Answer

Salut,

Et en ajoutant au d&#233;but :
set db = opendatabase("CheminBase.mdb") ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Modifier un enregistrement

8 réponses

Discussions similaires