How do I duplicate a record in access?

Marq

Well-known Member
Joined
Dec 13, 2004
Messages
776
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

Well-known Member
Joined
Feb 26, 2007
Messages
5,035
Office Version
2019
Platform
Windows
Maybe something akin to this:

VBA Code:
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

Well-known Member
Joined
Jun 3, 2015
Messages
1,742
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.
 

Forum statistics

Threads
1,077,777
Messages
5,336,243
Members
399,072
Latest member
abublitz

Some videos you may like

This Week's Hot Topics

Top