With DoCmd
 .RunCommand acCmdSelectRecord
 .RunCommand acCmdCopy
 .GoToRecord , , acNewRec
 .RunCommand acCmdPaste
End With
Me.TucampoClave.SetFocus
Me.TucampoClave = ""

By Buho