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ü
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 249534
Url: https://administrator.de/forum/access-datensaetze-einzeln-kopieren-einfuegen-249534.html
Ausgedruckt am: 24.04.2025 um 19:04 Uhr
3 Kommentare
Neuester Kommentar
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!
