Access - Eliminar mje. alerta eliminación registro

Form.AllowDeletions = True

DoCmd.SetWarnings False

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

DoCmd.SetWarnings True

Private Sub BorrarReg_Click()

On Error GoTo Err_BorrarReg_Click

Form.AllowDeletions = True

DoCmd.SetWarnings False

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.RunCommand acCmdDeleteRecord

DoCmd.SetWarnings True

Exit_BorrarReg_Click:

    Exit Sub

Err_BorrarReg_Click:

    MsgBox Err.Description

    Resume Exit_BorrarReg_Click

End Sub

Dim Pregunta as String

Pregunta = MsgBox("Desea eliminar el registro Activo?",vbyesno,"Confirmar Eliminación")

If Pregunta =vbYes then

Docmd.setwarning false

Docmd.runsql"delete id_usuario from Usuarios where id_usuario = txtidUsuario"

txtResultado = dlookup("id_usuario","usuarios","id_usuario =" & "txtidUsuario")

If isnull( txtResultado) then

Msgbox"El registro se ha eliminado correctamente",vbinformation,"Registro Eliminado"

Else

MsgBox"Se ha producido un Error al intentar eliminar el registro activo",vbcritical,"Registro no Eliminado"

End if

End if