Duplicate record and clear fields

[JOD59]

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

 

[Remou]

Hi
Is this a typo?

Exit_cmdDupRecord_Click:
[bold]Exit Sub[/bold]
Me.cboDateComplete.Value = 0
Me.tblChargeNo.Value = Null
Me.tblSBSNo.Value = Null

 

[JOD59]

Remou, not sure what you mean? this is what I tried but this also clears original

 

[Remou]

Hi
It's just that:
Me.cboDateComplete.Value = 0
Me.tblChargeNo.Value = Null
Me.tblSBSNo.Value = Null
Occurs after an Exit Sub, above. So I do not see how it could run. I thought that maybe the Exit Sub should be after, rather than before these lines.

As a PS, what version of Access are you using?

 

[JOD59]

Hi Remou, I'm running MSA 2000, the code will run because it comes before End Sub.

 

[Remou]

Ok, sorry I could not help.