I want to use the "Duplicate record command" to copy information to a new record. I also want to clear a few of the fields when I do so. I have tried this code and it works accept for one problem. It also clears the fields in the original. thanks in advance for any suggestions.
Private Sub cmdDupRecord_Click()
On Error GoTo Err_cmdDupRecord_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_cmdDupRecord_Click:
Exit Sub
Me.cboDateComplete.Value = 0
Me.tblChargeNo.Value = Null
Me.tblSBSNo.Value = Null
Err_cmdDupRecord_Click:
MsgBox Err.Description
Resume Exit_cmdDupRecord_Click
End Sub
Private Sub cmdDupRecord_Click()
On Error GoTo Err_cmdDupRecord_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_cmdDupRecord_Click:
Exit Sub
Me.cboDateComplete.Value = 0
Me.tblChargeNo.Value = Null
Me.tblSBSNo.Value = Null
Err_cmdDupRecord_Click:
MsgBox Err.Description
Resume Exit_cmdDupRecord_Click
End Sub