delete command button

[Guest]

I am using Access 2002. I have a command button in a subform to delete a
record in the subform. I am receiving this error, but the record deletes
fine.
No current Record

Here is the code generated by the wizard that is throwing this error.
*************************************
Private Sub Delete_Rec_Click()
On Error GoTo Err_Delete_Rec_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Delete_Rec_Click:
Exit Sub

Err_Delete_Rec_Click:
MsgBox Err.Description
Resume Exit_Delete_Rec_Click

End Sub

*********************************

Any assistance is greatly appreciated.

David Peterson

 

[Mark Phillipson]

Hi,

Try replacing the 2 DoMenuItem with

DoCmd.RunCommand acCmdDeleteRecord


--
HTH

Mark Phillipson

Free Add-Ins at; http://mphillipson.users.btopenworld.com/