Daten zwischen zwei Tabellen austauschen

27/03/2009 - 15:08 von Christoph Sobotta | Report spam
Hallo,
ich möchte Datenzeilen von der Erfasungstabelle zur Stammtabelle übertragen.
Die Struktur der Tabellen sind gleich

Dim RS As Recordset
Dim db As Database
Dim RS1 As Recordset
Set db = CurrentDb()
Set RS = db.OpenRecordset("tblVermietung")
Set RS1 = db.OpenRecordset("tblVermietung_Erfassung")
If RS1.BOF And RS1.EOF Then
MsgBox "Es sind keine Mietobjekte in der Datei vorhanden"
Exit Sub
Else
End If
RS1.MoveFirst
Do Until RS1.EOF
RS.AddNew
RS.Edit
'MsgBox RS1!Objektnummer
RS!Objektnummer = RS1!Objektnummer
RS.Update
RS1.MoveNext
Loop
RS1.Close
RS.Close

In der Zeile RS.Update kommt der Fehler :

"Der Suchschlüssel wurde in keinem Datensatz gefunden."

Was fehlt hier noch ?

Vielen Dank für die Hilfe

Meine Internet Adresse
http://www.pocketcutter.de
 

Lesen sie die antworten

#1 Peter Doering
27/03/2009 - 15:26 | Warnen spam
Hallo,

Christoph Sobotta wrote:

ich möchte Datenzeilen von der Erfasungstabelle zur Stammtabelle übertragen.
Die Struktur der Tabellen sind gleich



Am besten per SQL:

INSERT INTO tblVermietung SELECT * FROM tblVermietung_Erfassung

... wenn die Felder in beiden TAbellen uebereinstimmen. Ansonsten:

INSERT INTO tblVermietung (Feld1, Feld2, ...)
SELECT Feld1, Feld2, ...
FROM tblVermietung_Erfassung

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen