copy and paste record

[HS_1]

I have a button on the form which I want to copy and paste the selected row. However it pastes only the fields which are listed on the form. How do I copy and paste all  columns in the table for the selected row?

Private Sub btnDuplicateRecord_Click()
On Error GoTo btnDuplicateRecord_Click_Err
    On Error Resume Next
    DoCmd.RunCommand acCmdSelectRecord
   
        DoCmd.RunCommand acCmdCopy
        DoCmd.RunCommand acCmdRecordsGoToNew
  
        DoCmd.RunCommand acCmdSelectRecord
   
        DoCmd.RunCommand acCmdPaste
  
btnDuplicateRecord_Click_Exit:
    Exit Sub
btnDuplicateRecord_Click_Err:
    MsgBox Error$
    Resume btnDuplicateRecord_Click_Exit
End Sub

[Perceptus]

I think what you want is similar to this. You are pretty close though

Public Sub Duplication()
 DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 
 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
 DoCmd.Save
End Sub