copia el registro existente y crea un nuevo registro

Este ejemplo copia el registro existente y crea un nuevo registro con exactamente la misma información.

 

Private Sub cmdInsert_Click() Private Sub cmdInsert_Click () 

 

DoCmd.RunCommand acCmdSelectRecord 

DoCmd.RunCommand acCmdCopy 

DoCmd.RunCommand acCmdPasteAppend 

 

End Sub