MaximoAccess

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

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 : 74
    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 : 121
    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 : 74
    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: Seg 20 Nov 2017, 13:28