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

    Compartilhe
    avatar
    jradmbr
    Novato
    Novato

    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

    Mensagem  jradmbr em Ter 06 Jun 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

    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Walter em Ter 06 Jun 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!"
    avatar
    jradmbr
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: VBA/Access - Login e Senha - Botão Login

    Mensagem  jradmbr em Qua 07 Jun 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
    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Walter em Qua 07 Jun 2017, 16:33

    Obrigado pelo retorno.

    Sucesso!

    Walter


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

      Data/hora atual: Qua 22 Nov 2017, 20:08