Datensätze von Tabelle A nach Tabelle B kopieren

[AccessNuub]

Hallo zusammen,

ich habe 2 Tabellen (A und B) ich möchte nur die ersten 4 Spalten aus Tabelle A nach B kopieren.
Meine Idee wäre

Code [Auswählen] Erweitern

Dim rsSel As DAO.Recordset
Dim DB As DAO.Database
Dim strSel As String
Dim strIns As String
Set DB = CurrentDb
Select Spalte 1, Spalte 2, Spalte 3, Spalte 4 From Tabelle A
Set rsSel = DB.OpenRecordset(strSel, dbOpenDynaset)
rsSel.Close
strIns = INSERT INTO Tabelle B
So hätte ich es ungefähr machen wollen. Klappt aber nicht...

[MzKlMu]

Hallo,
der gezeigte Code ist noch nicht mal im Ansatz brauchbar.
Wenn man sich eine solche Abfrage als Anfügeabfrage im Entwurf zusammenstellt, kann man nach Umschaltung in die SQL Sicht ansehen wie das aussehen muss.
Im einfachsten Fall geht das so:

Code [Auswählen] Erweitern

CurrentDb.Execute "INSERT INTO TabelleB ( Spalte1, Spalte2, Spalte3, Spalte4 )
SELECT Spalte1, Spalte2, Spalte3, Spalte4
FROM TabelleA", DbFailOnErrorDer Rest des oben gezeigten Codes ist überflüssig.

Wobei das Vorhaben an sich äußerst fragwürdig ist. Wozu willst Du die Spalten kopieren, Du hast sie doch schon. Was Du da machst ist redundante Datenhaltung welche in einer DB zu vermeiden ist.


PS1:

Klappt aber nicht...

Solche Fehlerbeschreibungen sind völlig sinnlos. Das gewöhnst Du Dir am Besten gleich ab.
PS2:
Warum hast Du in Deinem anderen Thema nicht mehr geantwortet ?
https://www.access-o-mania.de/forum/index.php?topic=26295.msg156870#msg156870
Es ist in einem Forum guter Brauch auch Feedback zu geben bzw. zu antworten.

[AccessNuub]

Hey Sorry, war die lezte Zeit nicht online.
Hast recht. Dein Code hat mir viel geholfen. Vielen Dank!

[AccessNuub]

Wobei das Vorhaben an sich äußerst fragwürdig ist. Wozu willst Du die Spalten kopieren, Du hast sie doch schon. Was Du da machst ist redundante Datenhaltung welche in einer DB zu vermeiden ist.

Mein chef will das so. Er will eine art "Hilfstabelle" haben wo er einfach alle daten in eine Excel Tabelle exportieren kann.

[MzKlMu]

Hallo,

Er will eine art "Hilfstabelle" haben wo er einfach alle daten in eine Excel Tabelle exportieren kann.

Dazu verwendet man eine Abfrage die man genau wie eine Tabelle exportieren kann. Eine extra Tabelle ist dazu nicht notwendig.