Aí galera, preciso novamente da ajuda de vocês.
Criei uma tabela para armazenar os nomes e senhas dos usuários do sistema.
O que preciso é armazenar o valor da senha da tabela em um campo oculto do formulário. No entanto, esse formulário não tem vínculo com a tabela. Gostaria de fazer isso usando comandos SQL, tipo:
INSERT INTO ('" & Me.campo & "') SELECT tbl_usuarios.senha FROM tbl_usarios WHERE tbl_usuarios.usuario= ('" & Me.usuario & "');"
Sei que é mais fácil usar uma combo que traga a coluna senha oculta e quando selecionar o usuário, a ação após atualizar armazena o valor da senha do respectivo usuário no campo que eu quiser no meu form.
No entanto, quero que o usuário informe o nome de usuário e senha para efetuar o login, por isso preciso recuperar a senha que está armazenada na tabela através do vba, uma vez que o form de login não tem vínculo com a tabela usuarios.
Quando o usuário informar o nome de usuário, já fiz um código que verifica se o usuário está cadastrado, e se estiver, o sistema deve armazenar o valor da senha referente a esse usuário no campo Me.campo do form.
Estou usando o DCount duplo mas a mensagem será a mesma para usuário não cadastrado e senha incorreta:
If DCount("CampoUsuário","tbl_usuários","CampoUsuário=Me.Usuário") And DCount("CampoSenha","tbl_usuários","CampoSenha=Me.senha") = 0 Then
MsBox Usuário não cadastrado.
Isso faz o que eu quero em parte, mas como eu disse, eu gostaria de inserir o valor da senha da tabela Usuários em um campo no formulário para pode manipular de forma mais simples e precisa.
Tem como?
Criei uma tabela para armazenar os nomes e senhas dos usuários do sistema.
O que preciso é armazenar o valor da senha da tabela em um campo oculto do formulário. No entanto, esse formulário não tem vínculo com a tabela. Gostaria de fazer isso usando comandos SQL, tipo:
INSERT INTO ('" & Me.campo & "') SELECT tbl_usuarios.senha FROM tbl_usarios WHERE tbl_usuarios.usuario= ('" & Me.usuario & "');"
Sei que é mais fácil usar uma combo que traga a coluna senha oculta e quando selecionar o usuário, a ação após atualizar armazena o valor da senha do respectivo usuário no campo que eu quiser no meu form.
No entanto, quero que o usuário informe o nome de usuário e senha para efetuar o login, por isso preciso recuperar a senha que está armazenada na tabela através do vba, uma vez que o form de login não tem vínculo com a tabela usuarios.
Quando o usuário informar o nome de usuário, já fiz um código que verifica se o usuário está cadastrado, e se estiver, o sistema deve armazenar o valor da senha referente a esse usuário no campo Me.campo do form.
Estou usando o DCount duplo mas a mensagem será a mesma para usuário não cadastrado e senha incorreta:
If DCount("CampoUsuário","tbl_usuários","CampoUsuário=Me.Usuário") And DCount("CampoSenha","tbl_usuários","CampoSenha=Me.senha") = 0 Then
MsBox Usuário não cadastrado.
Isso faz o que eu quero em parte, mas como eu disse, eu gostaria de inserir o valor da senha da tabela Usuários em um campo no formulário para pode manipular de forma mais simples e precisa.
Tem como?