Access - Quitar mensaje

Buenas.

Tengo el siguiente código para eliminar un registro:

On Error GoTo Err_boteliminarReg_Click
DoCmd.RunCommand acCmdSelectRecord 'Selecciona el registro actual
DoCmd.RunCommand acCmdDeleteRecord 'Borra el registro actual
DoCmd.GoToRecord , , acLast 'Va al último registro

Exit_botEliminarReg_Click:
Exit Function
Err_boteliminarReg_Click:
MsgBox Err.Description
Resume Exit_botEliminarReg_Click

pero después de aparecer el mensaje confirmando el borrado, si pulso en No me aparece otro mensaje diciendo: "La acción RunCommand se canceló"

Qué puedo hacer para que este último mensaje no aparezca?

Gracias y un saludo.

Err_boteliminarReg_Click:
On error resume next PON ESTO
MsgBox Err.Description QUITA ESTO
Resume Exit_botEliminarReg_Click QUITA ESTO

Gracias 2PL ha salido a la perfección.

Un saludo.