Code:
Private Sub Duplicate_Click()
'If this is a new Record being copied...save it first
If Me.NewRecord Then
Me.Dirty = False
End If
'Copy and Paste entire Record
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPasteAppend
'Blank any Controls desired/set Control to new value
Me.SalesOrder = Null
Me.MainSN = "NEW"
Me.ACSN = Null
Me.PrimSN = Null
Me.PanelSN = Null
MsgBox "Record Duplicated. PLEASE Update Sales Order Number"
End Sub
FYI, DoCmd.Save saves Design Changes made to a Form, not the data entered in a Record.
Linq ;0)>
The problem with making anything foolproof...is that fools are so darn ingenious!
All posts/responses based on Access 2003/2007