3
Access Datensätze einzeln kopieren einfügen
Hallo Hallo,
also ich habe eine Datenbank A mit Pfad PfadA und eine Datenbank B mit PfadB. Ich möchte nun die Datensätze aus B einzeln kopieren und an A anhängen. Stehe aber leider etwas auf dem Schlauch, wie ich an so etwas ran gehe.
Momentan ist in B kein Feld ID. Meine Idee war etwas in die Richtung "While File not emtpy ...".
Bin über jegliche Hilfe sehr dankbar.
Cheers
Qwertzuiopü
also ich habe eine Datenbank A mit Pfad PfadA und eine Datenbank B mit PfadB. Ich möchte nun die Datensätze aus B einzeln kopieren und an A anhängen. Stehe aber leider etwas auf dem Schlauch, wie ich an so etwas ran gehe.
Momentan ist in B kein Feld ID. Meine Idee war etwas in die Richtung "While File not emtpy ...".
Bin über jegliche Hilfe sehr dankbar.
Cheers
Qwertzuiopü
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 249534
Url: https://administrator.de/contentid/249534
Printed on: April 18, 2024 at 21:04 o'clock
3 Comments
Latest comment
Also den untenstehenden Code habe ich bisher, aber das kopieren und einfügen fehlt mir...
Set AccApp = New Access.Application
AccApp.OpenCurrentDatabase PfadA & "A.mdb", False
Set DBA = AccApp.CurrentDb
Set AccApp2 = New Access.Application
AccApp2.OpenCurrentDatabase Pfad & "B.mdb", False
Set DBB = AccApp.CurrentDb
Set RecSet = CurrentDb.OpenRecordset("Tabelle1") 'einlesen
Do While Not RecSet.EOF
RecSet.MoveNext
Loop
RecSet.Close
Set AccApp = New Access.Application
AccApp.OpenCurrentDatabase PfadA & "A.mdb", False
Set DBA = AccApp.CurrentDb
Set AccApp2 = New Access.Application
AccApp2.OpenCurrentDatabase Pfad & "B.mdb", False
Set DBB = AccApp.CurrentDb
Set RecSet = CurrentDb.OpenRecordset("Tabelle1") 'einlesen
Do While Not RecSet.EOF
RecSet.MoveNext
Loop
RecSet.Close
Moin Qwertzuiopü,
mach doch eine INSERT INTO SQL Anfügeabfrage:
Das ganze kannst du auch via VBA machen:
Grüße Uwe
mach doch eine INSERT INTO SQL Anfügeabfrage:
INSERT INTO TabelleB IN 'C:\Datenbank_B.accdb'
SELECT Feld1,Feld2
FROM TabelleA;
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ......"
DoCmd.SetWarnings True
Moin Uwe,
das war auch mein erster Versuch. Dafür waren nur leider meine Datenbanken zu groß.
Habe es jetzt aber auch hinbekommen. Kopiere jetzt jeden Datensatz einzeln.
Dauert leider lange, aber funktioniert.
Trotzdem Danke!
das war auch mein erster Versuch. Dafür waren nur leider meine Datenbanken zu groß.
Habe es jetzt aber auch hinbekommen. Kopiere jetzt jeden Datensatz einzeln.
Dauert leider lange, aber funktioniert.
Trotzdem Danke!
