Pb de copiercoller du contenu d'un champ vers un autre sous accessRésolu

Question

Bonjour a tous,
Je voudrais copier tout le contenu d'un champ d'une table et le coller dans le champ d'une autre table et faire tout ca dans une macro.
Si quelqun peu maider sil vou plai
MERCI

el_teedee · Accepted Answer

Public db As DAO.Database 
Public rs1 As DAO.Recordset 
Public rs2 As DAO.Recordset

Set db = CurrentDb
Set rs1 = db.OpenRecordset("SELECT * FROM T_defaut
")
Set rs2 = db.OpenRecordset("select * FROM T_val_def
")

rs1("valeur_defaut_ancien
") = rs2("valeur_defaut_nouveau
")



Voil&#224;, en ce qui concerne la r&#233;f&#233;rence : 

menu outils -> r&#233;f&#233;rences -> 
Microsoft DAO 3.6 Oblject Library



:-) b&#234;te erreur n'est-ce pas ?

el_teedee · Answer

Salut, 



dans le cas o&#249; tu veux copier un champ d'une table 1 vers une table 2, essaye ceci :



Set db = CurrentDb

Set rs1 = db.OpenRecordset("SELECT * FROM MaTable1")



Set rs2 = db.OpenRecordset("select * FROM MaTable2")



rs2("MonChamp1") = rs1("MonChamp1")


Mais apres je sais plus, mais cela d&#233;pend de comment tu acc&#232;des &#224; base, ADO ou DAO.



Dans mon cas, j'ai d&#233;clar&#233; :

Public db As DAO.Database 

Public rs As DAO.Recordset 

Public rs2 As DAO.Recordset



et il faut ajouter Microsoft DAO 3.6 Oblject Library en r&#233;f&#233;rence



Teed'

colibrialuile · Answer

Merci,
juai essaye mai ca ne marche pas, il ny as pa de message derreur mai rien ne se passe

el_teedee · Answer

Balance ton bout de code pour voir.... car la je peux pas grd chose pour toi sinon

colibrialuile · Answer

Voila mon code:
mes tables sapelle: T_defaut et T_val_def
et les titre de champs correspondant sont: valeur_defaut_ancien pour T_defaut et valeur_defaut_nouveau pour T_val_def

Je voudarai qa l'excution de la macro ou du module le champ "valeur_defaut_ancien" prenne la valeur du champ "valeur_defaut_nouveau" (tout le contenu des deux champs)
Et mon code:

Public db As DAO.Database 
Public rs As DAO.Recordset 
Public rs2 As DAO.Recordset

Set db = CurrentDb
Set rs1 = db.OpenRecordset("SELECT * FROM T_defaut
")

Set rs2 = db.OpenRecordset("select * FROM T_val_def
")

rs2("valeur_defaut_nouveau
") = rs1("valeur_defaut_ancien
")

Et comment tu fai pour ajouter Microsoft DAO 3.6 Oblject Library en r&#233;f&#233;rence?
MERCI

el_teedee · Answer

lol,



spa bien de recopier ce que les gens &#233;crivent sans lire mon petit coco :-)



(Tu me diras, on est en plein dans le sujet : copier / coller lol)



regarde bien ce que j'ai &#233;cris il y a une chtite erreur... Je l'avais
vu juste apr&#232;s t'avoir r&#233;pondu, mais je pensais que tu la verrais.



Cherche et dit moi si tu trouves pas (dis moi si tu trouves aussi lol)



Teed'

colibrialuile · Answer

jai pa trouve lerreur lol

el_teedee · Answer

Au fait, si tu veux que le champ "valeur_defaut_ancien" prenne la valeur du champ "valeur_defaut_nouveau" alors ce n'est pas : 




rs2("valeur_defaut_nouveau
") = rs1("valeur_defaut_ancien
")



mais : 




rs1("valeur_defaut_ancien
") = rs2("valeur_defaut_nouveau
")



;-)

colibrialuile · Answer

je sui daccor avec toi mai mon odule ne marche tjs pas tu pe me dire lerreur stp lol

el_teedee · Answer

Non, je vais te la faire trouver.



Tu cibles 2 tables diff&#233;rentes gr&#226;ce &#224; tes recordset, ok ? Ensuite dans
le recorset tu cibles tes champs. V&#233;rifie du c&#244;t&#233; des noms et d&#233;clarations de tout &#231;a...

colibrialuile · Answer

desol&#233; mai ji compren rien au recordset je men sui jamai servi, je trouverai pa lerreur di la moi stp

colibrialuile · Answer

Merci, jessayerai ca lundi et je te dirai si ca marche 
salut

Pb de copiercoller du contenu d'un champ vers un autre sous access

12 réponses

Discussions similaires