' duplicate record
Private Sub cmdDuplicate_Click()
Dim bolPrevState As Boolean
If Me.NewRecord Then
' exit if on new record
Exit Sub
End If
' save prevous state of allowEdits
bolPrevState = Me.AllowEdits
' set to allow edits
Me.AllowEdits = True
' copy entire row
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
' paste to new record
DoCmd.RunCommand acCmdPasteAppend
' optional to
' save duplicated record
DoCmd.RunCommand acCmdSaveRecord
' re-instate AllowEdits status
Me.AllowEdits = bolPrevState
End Sub
' disable edits
Private Sub Form_Current()
Me.AllowEdits = False
End Sub
' allow edits
Private Sub cmdAllowEdits_Click()
Me.AllowEdits = True
End Sub