Access - Error cuando un evento no se ha podido ejecutar debido a que no se puede evaluar

Private Sub Comando7_Click()

On Error GoTo Err_Comando7_Click

A = Me.Co.Value - 1

For B = 0 To A

f = 1

   D = Me.No_Radio.Value + f

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70

  Me.No_Radio.Value = D

 If Me.No_Radio.Value < 99 Then

X = 20

Else

X = 200

End If

O = (((Me.f.Value - 2000) * 2) - X + Me.No_Radio.Value) + 10000

l = (Me.P.Value + 1000) - 200

Z = l & "-" & Right(O, 4)

Me.MPT1327.Value = Right(Z, 8)

Next

Exit_Comando7_Click:

    Exit Sub

Err_Comando7_Click:

    MsgBox "Para realizar la copia debe tener lleno al menos un campo", vbInformation, "Error al Copiar"

    Resume Exit_Comando7_Click

End Sub