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]Excluir usando a senha de acesso ao sistema.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Excluir usando a senha de acesso ao sistema. Empty [Resolvido]Excluir usando a senha de acesso ao sistema.

    Mensagem  Silvio 25/7/2014, 23:19

    Prezados, cordialmente boa noite a todos.

    Preciso resolver um pequeno problema. Tenho o seguinte comando:
    Código:
    On Error GoTo fim
    Dim strSenha As String
    strSenha = InputBoxDK("Digite a senha para a exclusão", "Senha", "******")
    Select Case strSenha
     Case Is <> DLookup("[SENHA]", "USUARIOS", "[USER] = '" & Forms!login!USER & "'")
     MsgBox "Senha incorreta, tente novamente", vbInformation, Me.Caption
     DoCmd.CancelEvent
     Case Is = DLookup("[SENHA]", "USUARIOS", "[USER] = '" & Forms!login!USER & "'")

    Dim numRecord As Integer
        numRecord = InputBox("Informe o Nº do Pedido..:", Me.Caption)
         
        If MsgBox("Deseja excluir o Pedido...  " & numRecord & " ?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then

    Necessito que a senha que habilita a exclusão seja a mesma que acessa o sistema que desenvolvo.

    Do jeito que acima está, não está a acontecer nada.

    Grato a todos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Excluir usando a senha de acesso ao sistema. Empty Re: [Resolvido]Excluir usando a senha de acesso ao sistema.

    Mensagem  Marcelo David 26/7/2014, 01:20

    Olá Silvio! O Docmd.CancelEvent deverá ser substituído por Exit Sub (caso seja uma sub) ou Exit Function (Caso seja uma função)

    Mas eu simplificaria assim:


    Dim strSenhaUser as string, strSenhaAtual 'Senha do usuário gravada no bd
    Dim strUsuario as Integer 'Senha digitada pelo usuário

    strSenhaUser = DLookup("[SENHA]", "USUARIOS", "[USER] = '" & Forms!login!USER & "'") 'Busco a senha real do usuário

    strSenhaAtual = InputBoxDK("Digite a senha para a exclusão", "Senha", "******") 'Informa a senha a ser comparada

    If strSenhaAtual <> strSenhaUser then 'Caso a senha digitada for diferente da senha do usuário, interrompo o código
        MsgBox "Senha incorreta, tente novamente", vbInformation, Me.Caption
        Exit Sub
    Endf If



    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Excluir usando a senha de acesso ao sistema. Marcel11
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Excluir usando a senha de acesso ao sistema. Empty Re: [Resolvido]Excluir usando a senha de acesso ao sistema.

    Mensagem  Silvio 26/7/2014, 14:43

    Bom dia Marcelo...

    Não me havia atentado a esse detalhe....acertou em cheio.

    Obrigado.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Excluir usando a senha de acesso ao sistema. Empty Re: [Resolvido]Excluir usando a senha de acesso ao sistema.

    Mensagem  Marcelo David 26/7/2014, 17:14

    Grato meu amigo!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Excluir usando a senha de acesso ao sistema. Marcel11

    Conteúdo patrocinado


    [Resolvido]Excluir usando a senha de acesso ao sistema. Empty Re: [Resolvido]Excluir usando a senha de acesso ao sistema.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:43