title image


Smiley Versuche es mal mit...
2 recordsets.



Prinzip so:



dim db as dao.database

dim rs1 as dao.recordset, rs2 as dao.recordset





set db=currentdb

set rs1=db.openrecordset("DeineErsteTabelle",dbopendynaset)

set rs2=db.openrecordset("DeineZweiteTabelle",dbopendynaset)



Do until rs1.EOF = True



rs2.findFirst "DeinIndex=" str(rs1!deinIndex)



rs1.edit

rs1.DeinFeld=rs2.DeinFeld

rs1.update



rs1.move next



Loop



rs1.close

set rs1=nothing



rs2.close

set rs2=nothing



db.close

set db=nothing





Allerdings dauert dies bei vielen Datensätzen entpsrechend lang.





Viele Grüße trekking



PS: Falls es nict funzt, bitte die Fehlermeldung posten, da ich das eben nur aus dem Ärmel geschüttelt habe.





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: