title image


Smiley Re: Einträge einer Tabelle auf einer zweite "verteilen"


Dim RS1 as DAO.Recordset, RS2 as DAO.recordset

Set RS1 = Currentdb.Openrecordset("Tabelle1",dbopensnapshot)

if not RS1.eof then

Set RS2 = Currentdb.Openrecordset("Tabelle2",dbopendynaset)

Do Until RS2.EOF

RS2.Edit

RS2!Feld2 = RS1!Feld1

RS2.Update

RS1.Movenext

RS2.Movenext

If RS1.EOF then RS1.Movefirst

Loop

RS2.close

end if

RS1.Close



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: