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á.
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