Office: (Office 2003) Duplizieren einer Offerte

Moin, moin ihr lieben

ich habe folgendes Problem: ich erstelle eine Offerte an einen Kunden.
Im HF habe ich die Offertendaten drin stehen, z. B. Kundenname, Ort, worum es geht
im HF habe ich dann die Leistungen, welche ich der Offerte zuordne.

Jetzt soll ein anderer Kunde die gleiche Offerte bekommen, die ich zu diesem Zweck dupliziere.
Mit einem Button im HF (Datensatz duplizieren) kopiere ich aber nur die Kopfdaten.
Ich müsste jetzt alle DS im UF in einen String packen (oder in einer Variablen zwischenspeichern), um dann diese dem neune DS (Kopfdaten) hinzu zufügen.

Wer hat einen Tipp für mich?
HF und UF sind über die offerid mit einander verknüpft

:)

 

Hallo,
wieso in einen String oder eine Variable ?
Du musst mit einer Anfügeabfrage alle Datensätze des Ufos an die leistungstabelle anfügen. Dabei muss die OfferId des neuen Datensatzes der Kopfdaten verwendet werden.

 

Moin, ja müsste ich. die Anfügeabfrage kriegt aber den DS nicht zu fassen, warum auch immer. War der erste meiner Ansätze

 

Du musst das über eine Anfügeabfrage mache.

 

z.b. so:
Code:

Im cmbKundenKopie, wird der Kunde ausgewählt dem die duplizierte Bestellung zugeordnet wird.

 

Danke, ich versuch das mal umzustricken.

Ne, funktioniert nicht. Muss ich mir nächste Woche mal ganz genau ansehen.
1 Parameter wurde erwartet, zu wenig übergeben:

Dim strsql
Dim Db As DAO.Database

Set Db = CurrentDb
If Me.Dirty Then Me.Dirty = False
strsql = "INSERT into Offerte (anfrage, modus, hinweis)" & _
"SELECT anfrage, modus, hinweis " & _
"From Offerte " & _
"WHERE offerid =" & Me.offerid

Db.Execute strsql, 128
lngID = Db.OpenRecordset("SELECT @@IDENTITY AS LastID;")(0)

strsql = "INSERT into leistungofferte (offerid, leistungsid, lwas, epreis, waehrung, menge, bemerk) " & _
"SELECT offerid ,leistungsid , lwas, epreis, waehrung ,menge, bemerk " & _
"FROM leistungofferte WHERE offerid = " & Me.offerid

Db.Execute strsql, 128

 

Also, im ersten teil läuft es.
Es wird eine neue Offerte in der tabelle "Offerte" erstellt.
Aber im zweiten Teil klappt es nicht.
In der tabelle Leistungzuofferte passiert rein gar nix

Dim strsql
Dim Db As DAO.Database

Set Db = CurrentDb
If Me.Dirty Then Me.Dirty = False
strsql = "INSERT into Offerte (name, anfrage, modus, hinweis)" & _
"SELECT name, anfrage, modus, hinweis " & _
"From Offerte " & _
"WHERE offerid =" & Me.offerid

Db.Execute strsql, 128
lngID = Db.OpenRecordset("SELECT @@IDENTITY AS LastID;")(0)

strsql = "INSERT into leistungzuofferte (offerid, leistungsid, epreis, waehrung, menge, bemerk) " & _
"SELECT offerid ,leistungsid , epreis, waehrung ,menge, bemerk " & _
"FROM leistungzuofferte WHERE leistofferid = " & Me!LeistungswahlOfferte!leistofferid

Db.Execute strsql, 128

 

Was wundert dich daran ?
Die lngID wird nicht nur zum Spaß ermittelt.
Code-Tags wären schön.

 

Code:

Beim Umstricken etwas mehr Augenmaß verwenden (besser abschreiben).

 

Warum holst du dir den Fremdschlüssel aus dem UFO, wenn du doch im HF den Primärschlüssel hast ?

 

\@fredfred: die Zeile ist dabei. Und wenn ich den Primärschlüssel nehme, hängt er mir die Ds aus dem UFO an die Offerte an, ohne eine neue zu erstellen.

@ebs17: aus dir werde ich nicht so ganz schlau

 

Die Zeile mag wohl dabei sein.
Aber das "Ergebnis" kommt nicht zum Einsatz.

In deiner ersten Anfügeabfrage vermisse ich den Bezug zum Kunden.

Der Wert des Schlüsselpaaars ist doch identisch ..
Wenn ich im HF die ID der Offerte habe (um den alten DS der kopiert werden soll zu identifizieren), muss ich mir den doch nicht aus dem UFO holen. Der PK wird doch lediglich als FK durchgereicht.

Könnte da ein Zusammenhang zur lngID bestehen ?? *wink.gif*

 

wenn ich die Offerte ertelle, heisst es nicht dass ich einen Kunden erfasst habe
Ich muss davon ausgehen, dass ich eine Offerte schicke, aber den Kunden nicht bekomme.
Wenn er meine Offerte annimmt, dann wird der Kunde erst angelegt.
Macht sonst keinen Sinn.

Was den Primäschlüssel angeht stimme ich dir zu, aber es sind 2 tabellen.
1. Tab HF
2. Tab UF

 

Wenn die Offerte noch keinem Kunden zugeordnet ist, worin besteht der Sinn des Duplizierens ?

Des Rätsels Lösung:
Die lngID ist der neu generierte Primärschlüssel der neu angelegten Offerte.
Der muss natürlich bei den Detaildatensätze als FK beim INSERT der Detaildatensätze geschrieben werden.
Schau dir bitte nochmal meinen Originalstring der zweiten INSERT-Abfrage an, wie die lngID verwendet wird.

Ob das zwei Tabellen sind spielt doch keine Rolle.
In beiden Insersts musst du die ID der alten DS (ob HF oder UFO) verwenden, um die alten DS in der Tabelle zu identifizieren.
Diese Datensätze werden kopiert /eingefügt in die Tabellen als neue DS, jedoch unter Austausch der alten Fremdschlüssel durch die neu ermittelte ID.

 

manche Dinge können so einfach sein.
Vielen Dank, jetzt läuft es

Wünsche noch einen schönen, sonnigen Freitag