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:
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.
Lösung habe ich unter kopieren in diesem Forum gefunden.