How do I duplicate a record in access?

[Marq]

I have a form where I have drop down menus which I use to load change orders for jobs. I am doing a lot of repetative entries per form. Most are identical choices except the date.

Is there a duplicate button that can be created on this form?

 

[alansidman]

Maybe something akin to this:

Private Sub copyrecordbutton_Click()
On Error GoTo Err_copyrecordbutton_Click
Dim txtOld1 As Variant
Dim txtOld2 As Variant
Dim txtOld3 As Variant
Dim txtOld4 As Variant

txtOld1 = txtcurrent1.Value
txtOld2 = txtcurrent2.Value
txtOld3 = txtcurrent3.Value
txtOld4 = txtcurrent4.Value

RunCommand acCmdRecordsGoToNew

txtnew1.Value = txtOld1
txtnew2.Value = txtOld2
txtnew3.Value = txtOld3
txtnew4.Value = txtOld4

  
Exit_copyrecordbutton_Click:
    Exit Sub

Err_copyrecordbutton_Click:
    MsgBox Err.Description
    Resume Exit_copyrecordbutton_Click
    
End Sub

 

[Micron]

How many fields? That approach can get quite wordy (is that a word?).
If you're not copying over the PK, then sometimes this is enough
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend

Or you can clone the recordset, add new and loop through all the fields except for the PK field and update the clone.