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
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.
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
Danke für den Lösungsansatz. Habs hinbekommen.