Neuer Datensatz mit (Standard-)Werten aus älterem Datensatz

[pjo12345]

Hallo Leute,

ich stehe mal wieder vor einem kleinen Problem. Ich möchte beim Anlegen eines neuen Datensatzes Werte aus einem Älteren übernehmen. Diesen Datensatz, aus welchem die Daten übernommen werden sollen, möchte ich frei auswählen können. Also quasi aus einer Liste aller vorhandenen Datensätze einen auswählen und die Werte in den neuen Datensatz als Standardwerte übernehmen.
Ich hoffe , dass ich mich einigermaßen verständlich ausgedrückt habe.


mfg Pjo12345

[ulli]

Hallo.

hier ein Codebeispiel für das Duplzieren eines Datensatzes unter Verwendung von Dlookup, was aufs Gleiche hinausläüft. Eine Befehlsschaltfläche im Formular schreibt die Daten des aktuellen Datensatzes in einen neuen Datensatz. Wenn du aus einem Listenfeld auswählen willst, kannst du das leicht anpassen.

Code [Auswählen] Erweitern

Private Sub Befehl35_Click()
On Error GoTo Err_Befehl35_Click

Dim DupDSatz As Long

DupDSatz = Me!ID

DoCmd.GoToRecord , , acNewRec

Me!Institution = DLookup("Institution", "Netzwerk", "Netzwerk!ID = " & DupDSatz)
Me!Nachname = DLookup("Nachname", "Netzwerk", "Netzwerk!ID = " & DupDSatz)
Me!Vorname = DLookup("Vorname", "Netzwerk", "Netzwerk!ID = " & DupDSatz)
Me!Strasse = DLookup("Strasse", "Netzwerk", "Netzwerk!ID = " & DupDSatz)
Me!PLZ = DLookup("PLZ", "Netzwerk", "Netzwerk!ID = " & DupDSatz)
Me!Ort = DLookup("Ort", "Netzwerk", "Netzwerk!ID = " & DupDSatz)
Me!Kontakt = DLookup("Kontakt", "Netzwerk", "Netzwerk!ID = " & DupDSatz)
Me!Anmerkungen = DLookup("Anmerkungen", "Netzwerk", "Netzwerk!ID = " & DupDSatz)

MsgBox "Sie befinden sich im duplizierten Datensatz und können Änderungen vornehmen."
Exit_Befehl35_Click:
    Exit Sub

Err_Befehl35_Click:
    Me.AllowAdditions = False
    MsgBox Err.Description
    Resume Exit_Befehl35_Click
   
End Sub

[pjo12345]

Danke für den Lösungsansatz. Habs hinbekommen.