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

    Login e Senha através de VBA

    Compartilhe

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    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)
    avatar
    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 : 94
    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)
    avatar
    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 : 94
    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...
    avatar
    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 : 94
    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: Qua 20 Set 2017, 20:55