Datensatz aus Hauptformular und Unterformular kopieren

[gsaccess]

Ich habe folgendes Problem:
Im Formular f_Kalkulation werden Kalkulationen mit Material, MaterialSonstiges und Stunden erstellt.
Nun sollte die gesamte Kalkulation mit den Daten im Haupt- und in den Unterformularen kopiert und die KalkNr um 1 erhöht werden.
Im HF funktioniert die Kopie mit dem folgenden Code:

Code [Auswählen] Erweitern

Dim Kalkkopie As Integer
            Kalkkopie = MsgBox("Soll die Kalkulation kopiert werden?", vbYesNo + vbQuestion, "Rückfrage zur Kalkulation")
            If Kalkkopie = 6 Then

            Dim dbs As DAO.Database
            Dim rstKalk As DAO.Recordset

            Set dbs = CurrentDb
            Set rstKalk = dbs.OpenRecordset("t_auftrag_kalk")
                With rstKalk
                rstKalk.AddNew

               
                rstKalk!Kalknr = DMax("KalkNr", "t_auftrag_kalk") + 1
                rstKalk!auftragnr_kalk = Me.auftragnr_kalk
                rstKalk!kundennr_kalk = Me.kundennr_kalk
                rstKalk!kalkdatum = Date
                rstKalk!materialpreis_lager = Me.materialpreis_lager
                rstKalk!materialpreis_sonstige = Me.materialpreis_sonstige
                rstKalk!Verzinkungskosten = Me.Verzinkungskosten
                rstKalk!FK_janein = -1
                rstKalk!FKSatz = Me.FKSatz
                rstKalk!Fixkosten = Me.Fixkosten
                rstKalk!Multiplikator = 1

                .Update
                .Close
                End With
            End If
            Me.KombiKalksuchen.Requery
Die Daten in den Unterformularen wollte ich mittels Anfügeabfragen kopieren.
zB qry_KalMaterialanfuegen
dabei kommt die  Fehlermeldung: siehe unten
Ich habe schon die verschiedensten Verianten von Abfragen versucht, komme aber auf keine Lösung.

In der Anlage eine TestDB um das ganze verständlicher zu machen.
vielleicht kann mir jemand die Abfragen so verändern, dass alle Datensätze im HF und UF richtig kopiert werden.

[gsaccess]

Lösung habe ich unter kopieren in diesem Forum gefunden.