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]VBA/Access - Login e Senha - Botão Login

    jradmbr
    jradmbr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 13
    Registrado : 14/11/2016

    [Resolvido]VBA/Access - Login e Senha - Botão Login Empty [Resolvido]VBA/Access - Login e Senha - Botão Login

    Mensagem  jradmbr 6/6/2017, 20:23

    Boa tarde, pessoal!

    Com muito sacrifício consegui chegar até esse ponto, agora não estou conseguindo acrescentar mais uma ação.


    Como está:

    1) Usuário abre o Banco de Dados Access;
    2) Formulário inicial exige login e senha;
    3) Usuário clica no botão com nome "Login"
    4) Procedimento do botão: Se login e senha conferem, abre o formulário chamado "Frm_Principal", se não, apresenta mensagem "Usuário ou Senha inválidos!".
    Obs.: Se o login e senha conferem, o formulário "Frm_principal" será aberto, porém o formulário de Login e Senha continuará aberto em primeiro plano.


    Como deveria ser:

    1) Usuário abre o Banco de Dados Access;
    2) Formulário inicial exige login e senha;
    3) Usuário clica no botão com nome "Login"
    4) Procedimento do botão: Se login e senha conferem, abre o formulário chamado "Frm_Principal", se não, apresenta mensagem "Usuário ou Senha inválidos!".
    Obs.: Se o login e senha conferem, o formulário "Frm_principal" será aberto, E... o formulário Login e Senha deverá ser fechado

    Abaixo apresento o código do botão "Login"

    Podem me ajudar?
    Agradeço desde já.


    Código:


    Private Sub btnLogin_Click()

        If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
            DoCmd.OpenForm "Frm_Principal"
        Else
            MsgBox ("Usuário ou Senha inválidos!")
        End If

    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 17/04/2011

    [Resolvido]VBA/Access - Login e Senha - Botão Login Empty Re: [Resolvido]VBA/Access - Login e Senha - Botão Login

    Mensagem  Walter 6/6/2017, 22:55

    Boa noite.

    Minha Sugestão:

    If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
    DoCmd.OpenForm "Frm_Principal"
    DoCmd.Close acForm, "NomeDoSeuFormularioDeLogin"
    Else
    MsgBox ("Usuário ou Senha inválidos!")
    End If


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    jradmbr
    jradmbr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 13
    Registrado : 14/11/2016

    [Resolvido]VBA/Access - Login e Senha - Botão Login Empty Re: VBA/Access - Login e Senha - Botão Login

    Mensagem  jradmbr 7/6/2017, 12:21

    Prezado Walter, bom dia!

    Agradeço muito sua ajuda! Funcionou perfeitamente!


    Walter escreveu:Boa noite.

    Minha Sugestão:

    If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
    DoCmd.OpenForm "Frm_Principal"
    DoCmd.Close acForm, "NomeDoSeuFormularioDeLogin"
    Else
    MsgBox ("Usuário ou Senha inválidos!")
    End If
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 17/04/2011

    [Resolvido]VBA/Access - Login e Senha - Botão Login Empty Re: [Resolvido]VBA/Access - Login e Senha - Botão Login

    Mensagem  Walter 7/6/2017, 16:33

    Obrigado pelo retorno.

    Sucesso!

    Walter


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"

    Conteúdo patrocinado


    [Resolvido]VBA/Access - Login e Senha - Botão Login Empty Re: [Resolvido]VBA/Access - Login e Senha - Botão Login

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:23