MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]senha para excluir registro

    Compartilhe

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    [Resolvido]senha para excluir registro

    Mensagem  ewertonms em Seg 26 Set 2016, 15:39

    Olá pessoal, como faço para solicitar uma senha ao tentar excluir um registro, tentei usando inputbox mas ele da que a senha está incorreta, usei o código abaixo:

    Código:


    On Error GoTo Err_btnExcluir_Click
    Dim senha As String
    Dim contrasenha As String
    contrasenha = instsulmineiro


    resp1 = MsgBox("Deseja realmente excluir esse registro?", vbCritical + vbYesNo, "Exclusão de registro")
    If resp1 = vbYes Then
     senha = InputBox("Digite a senha", "Confirmar Exclusão")
     
        If senha = contrasenha Then
            DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
            DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
            senha = Null
        Else
            MsgBox "Senha incorreta! Não foi possível excluír o registro!", vbOKOnly + vbCritical, "Impossível Excluir"
      End If
     
     End If

    Exit_btnExcluir_Click:
        Exit Sub

    Err_btnExcluir_Click:
        MsgBox Err.Description
        Resume Exit_btnExcluir_Click


    Existe alguma outra forma?

    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 10/06/2012

    Re: [Resolvido]senha para excluir registro

    Mensagem  mcsanches em Seg 26 Set 2016, 15:51

    ewertonms utilize dessa maneira

    Dim strInput As String

    strInput = InputBox("Entre com a senha para excluir permanentemente " & Me.nome & vbNewLine & vbNewLine, _
    "ATENÇÃO")

    If strInput = "" Or strInput = Empty Then
    MsgBox "Não informou a senha - Cancelado...", vbCritical
    Me.nome.SetFocus
    Exit Sub
    End If

    If strInput = "APAGAR" Then


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    MsgBox ("Registro excluído com Sucesso..."), vbInformation

    Else

    MsgBox ("Senha inválida..."), vbCritical

    Exit Sub
    End If


    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    Re: [Resolvido]senha para excluir registro

    Mensagem  ewertonms em Seg 26 Set 2016, 16:32

    Obrigado mcsanches funcionou aqui obrigado.

      Data/hora atual: Qua 07 Dez 2016, 18:18