MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 4/7/2014, 14:48

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 4/7/2014, 14:58

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 4/7/2014, 15:04

    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
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 4/7/2014, 15:07

    Noobezinho,

    Muito obrigado, funcionou perfeitamente.

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 4/7/2014, 15:11


    Que bom que funcionou de primeira!!!  Razz 

    Valeu pelo retorno!!!

    Boa sorte!!

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 08:47