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

    Login e Senha através de VBA

    Compartilhe

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 07/11/2013

    Login e Senha através de VBA

    Mensagem  Bessa_SP em Sex 26 Set 2014, 20:31

    Boa tarde Srs.

    Estou postando o meu BD a minha dificuldade é a seguinte, no formulário acesso, quando o login e senha forem iguais a tbl_usuario, ao clicar no botão acessar ele irá abrir o formulário menu, caso esteja errado, irá dar uma msnbox "Acesso Negado", veja os meus código e me oriente aonde foi que eu errei.

    Obrigado...
    Anexos
    Sys_Gerenciamento_Preços_Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (629 Kb) Baixado 30 vez(es)

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Login e Senha através de VBA

    Mensagem  LiveBrain em Sex 26 Set 2014, 22:30

    Opa Bessa,

    Deixe o seu IF conforme abaixo

       
    Código:
    If Txt_Senha = DLookup("[Senha]", "[TBL_usuario]", "[Usuario]='" & txt_usuario.Column(txt_usuario.ListIndex, 1) & "'") Then
          
            DoCmd.Close acForm, "Forms_login"
            DoCmd.OpenForm "forms_menu"
          Else
            MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
            Me.Txt_Senha.Value = ""
            
        End If


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 07/11/2013

    Re: Login e Senha através de VBA

    Mensagem  Bessa_SP em Qua 01 Out 2014, 14:46

    Prezado Live Brain

    O código que o amigo postou deu certo, porém somente se eu acessar com um único usuário caso tenha outros ele não reconhece a senha daquele usuário e da msgbox que a senha está errada, segue novamente o BD.

    Agradeço pela sua ajuda...
    Anexos
    Sys_Gerenciamento_Preços.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 20 vez(es)

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Login e Senha através de VBA

    Mensagem  LiveBrain em Qua 01 Out 2014, 16:46

    Vi que você fez algumas alterações no Formulário e até na Tabela, por isso não está funcionando mais.

    Vamos lá novamente:

    Altere a origem da linha da sua Caixa de combinação para

    Código:
    SELECT Tbl_Login.Usuario FROM Tbl_Login;
    podei deixar as propriedades Número de Colunas e Coluna acoplada em 1

    Depois deixe sei código igual abaixo

    Código:
    If Txt_Senha = DLookup("[Senha]", "[TBL_login]", "[Usuario]='" & Txt_Usuario.Column(0, Txt_Usuario.ListIndex) & "'") Then
        DoCmd.Close acForm, "Forms_acesso"
        DoCmd.OpenForm "forms_menu"
    Else
        MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
        Me.Txt_Senha.Value = ""
    End If


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 07/11/2013

    Re: Login e Senha através de VBA

    Mensagem  Bessa_SP em Qua 01 Out 2014, 16:58

    Professor Live Brain

    Não estou conseguindo alterar o seguinte:
    SELECT Tbl_Login.Usuario FROM Tbl_Login; na caixa de combinação quando coloco esse código na origem da linha da caixa e mando executar no modo formulário a caixa fica vazia sem aparecer os usuários da tbl_login.

    Obrigado pela ajuda...

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Login e Senha através de VBA

    Mensagem  LiveBrain em Qua 01 Out 2014, 18:01

    Deixe a propriedade LarguraS das Colunas em branco


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 07/11/2013

    Re: Login e Senha através de VBA

    Mensagem  Bessa_SP em Qua 01 Out 2014, 21:58

    Professor Live Brain

    Deu certo fiz conforme Sr. colocou e está funcionando, antes de colocar como resolvido tenho uma pergunta, há possibilidade de por exemplo eu entro com o login admin, e vou e altero o preço de um produto e fica registrado quem foi que fez essa alteração de acordo com o nome do usuário logado.

    De qualquer forma muito obrigado aprendi bastante com relação aos códigos...

    Grato

      Data/hora atual: Qui 08 Dez 2016, 14:03