Hallo zusammen,
habe mal eine Frage!
ich möchte per button aus eine Tabelle Daten auslesen und in eine ander kopieren. Das auslesen fuktioniert echt super.
Nur bei Insert bringt er mir ständig die Fehlermeldung "Anzahl der Abfragewerter und Zielwerte stimmt nicht überein"
Beide Tabellen sindgleich, heißen nur unterschiedlich.
Hier mal den Code:
Woran kann das liegen? Versuche schon seit Stunden hier daruf zu kommen.
Danke schon mal
habe mal eine Frage!
ich möchte per button aus eine Tabelle Daten auslesen und in eine ander kopieren. Das auslesen fuktioniert echt super.
Nur bei Insert bringt er mir ständig die Fehlermeldung "Anzahl der Abfragewerter und Zielwerte stimmt nicht überein"
Beide Tabellen sindgleich, heißen nur unterschiedlich.
Hier mal den Code:
Code:
'Datensätze aus Tabelle 1 auslesen
strSQL = "Select * FROM tbl_eroeffnungsbilanz"
Set rstDaten = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
With rstDaten
.MoveFirst
Do Until .EOF
Kontenklasse = .Fields("kontenklassenid")
konten = .Fields("kontenid")
beleg = .Fields("belegnr")
txt = .Fields("buchungstext")
soll = .Fields("soll")
haben = .Fields("haben")
Debug.Print Kontenklasse
Debug.Print konten
Debug.Print beleg
Debug.Print txt
Debug.Print soll
Debug.Print haben
'Daten aus Tabelle1 in Tabelle 2 einfügen
strSQL = "INSERT INTO tbl_buchungen (kontenklassenid, kontenid, belegnr, buchungstext, soll, haben) VALUES(" & Kontenklasse & ", " & konten & ", " & beleg & ", '" & txt & "', " & soll & ", " & haben & ")"
CurrentDb.Execute strSQL, dbFailOnError
.MoveNext
Loop
.Close
End With
End If
MsgBox "Die Daten wurden in die Buchungstabelle Übertragen", vbOKOnly, "Test 2023"
End Sub
Woran kann das liegen? Versuche schon seit Stunden hier daruf zu kommen.
Danke schon mal