Guardar un registro en edición en nuevo registro
Quisiera saber si hay la posibilidad de guardar un registro que he abierto en un formulario para editarlo, pero guardarlo en un nuevo registro en la misma tabla.
Esta tabla tiene muchos campos, por ello buscaba un código que se le pudiera configurar a un comando para guardar el registro con diferente Id, no importa que se cierre el formulario al hacerlo.
2 respuestas
Respuesta de Eduardo Pérez Fernández
¿El formulario es continuo?
Respuesta de Kurosaki Ichigo
Te dejo un código para duplicar el registro del formulario activo. Ciertamente tendrás que asignar un nuevo id para que te permita guardarlo. Debes asignarlo a un botón en el evento click
On Error GoTo cmdDuplicar_Click_Err On Error Resume Next DoCmd.RunCommand acCmdSelectRecord If (MacroError = 0) Then DoCmd.RunCommand acCmdCopy End If If (MacroError = 0) Then DoCmd.RunCommand acCmdRecordsGoToNew End If If (MacroError = 0) Then DoCmd.RunCommand acCmdUndo End If If (MacroError = 0) Then DoCmd.RunCommand acCmdSelectRecord End If If (MacroError = 0) Then DoCmd.RunCommand acCmdPaste End If If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If cmdDuplicar_Click_Exit: Exit Sub cmdDuplicar_Click_Err: MsgBox Error$ Resume cmdDuplicar_Click_Exit