[Resolvido]Deletar registros do formulário com MsgBox YesNo.

Pessoal, bom dia,

Estou usando o código abaixo para deletar todos os registros de uma tabela. Ou seja, quando cair na condição Sim o evento deleta todos os registros. Entretanto, estou clicando na condição Não e ainda sim os registros são deletados. O correto seria não deletar os registros quando escolha (Não).

Alguém pode me dar uma ideia de como fazer?

Dim Resp As String
On Error Resume Next
If Forms!logon!nivel = "ADMINISTRADOR" Then
If Resp = vbYes Then

Resp = MsgBox("Deseja realmente alterar registros?", vbYesNo, "Editar Registros")
CurrentDb.Execute "DELETE * FROM Enviado"
MsgBox "Registros deletados com sucesso!", vbInformation, ""
If Resp = vbNo Then

Else

MsgBox "USUÁRIO ATUAL NÃO TEM PERMISSÃO PARA MODIFICAR OS REGISTROS DA TABELA!", vbInformation, ""

End If
End If
End If
Me.Requery

Olá Wagner

Tente assim:

Código:



If Forms!logon!nivel = "ADMINISTRADOR" Then ' assume que é verdadeiro
   If msgBox("Deseja realmente apagar registros?",vbquestion + vbYesNo, "Deletar Registros") = vbYes then
    CurrentDb.Execute "DELETE * FROM Enviado"
    MsgBox "Registros deletados com sucesso!", vbInformation, ""
   end If
Else
  MsgBox "USUÁRIO ATUAL SEM PERMISSÃO PARA MODIFICAR OS REGISTROS DA TABELA!", vbInformation, "Aviso"
End If
Me.Requery



Abraços

Noob

Olá, pelo que entendi seria quando o usuário logado for o administrador dispare a msg do sim/não, caso não seja o administrador logado dispare a msg da não permissão, correto?

Dim Resp As String
On Error Resume Next

If Forms!logon!nivel = "ADMINISTRADOR" Then


Resp = MsgBox("Deseja realmente alterar registros?", vbYesNo, "Editar Registros")

If Resp = vbYes Then

CurrentDb.Execute "DELETE * FROM Enviado"
MsgBox "Registros deletados com sucesso!", vbInformation, ""

ElseIf Resp = vbNo Then

Me.Undo
Cancel = True

Else

MsgBox "USUÁRIO ATUAL NÃO TEM PERMISSÃO PARA MODIFICAR OS REGISTROS DA TABELA!", vbInformation, ""

End If
End If

Me.Requery

Noobezinho,

Muito obrigado, funcionou perfeitamente.

Beto,
Agradeço pela cordial atenção.

Que bom que funcionou de primeira!!!   

Valeu pelo retorno!!!

Boa sorte!!

Noob