Registro de Logout em Tabela

Amigos mestres, venho solicitar uma luz para essa nova implementação que faço no meu projeto.
Eu estou tentando inserir na Tabela Usuários a data e a hora em que o usuário entrou no programa (login) e a data e a hora em que o usuário saiu do programa (logout).

Consegui metade da implementação: o Login está funcionando. Claro que de uma forma simples, os dados são sobrepostos no campo DT_Entrou, ou seja, só registra o último login do usuário. Mas eu não consegui montar e nem achar nenhum repositório que resolvesse o impasse na hora de sair do programa.

Eu gostaria que ao clicar no Botão SAIR do programa principal MENU e voltar para o Form Login em branco, ficasse registrado a data e a hora do evento na Tabela Usuários no campo Dt_Saiu do usuário logado.

Espero que tenha sido claro na minha solicitação de ajuda, mas para reforçar postarei aqui o extrato do meu BD contendo as tabela, consultas, formulários e módulos envolvidos.

Estou também com um problema inconveniente envolvendo os mesmo controles que é o seguinte: Eu cadastro o usuário e também altero sua senha, determinado a ele uma senha padrão "123456". Estudando o nosso fórum eu encontrei o modo de inserir na Tabela Usuários a nova senha alterada através do Formulário Altera_Senha, mas o que está ocorrendo de inconveniente é que se o usuário for do mesmo nível, mesmo que ele tenha uma senha diferente a outro usuário do mesmo nivel, ele consegue logar usando o nome do outro usuário usando sua própria senha, assim pode ludibriar o registro de login na Tabela.

Ex: Eu cadastro um usuário com a senha padrão, ele altera no primeiro acesso, mas se ele selecionar qualquer usuário do mesmo nível com a senha dele, ele consegue logar no programa normalmente.

Qual a modificação no código que devo fazer para isso não acontecer?


Att,


Amarcos

O primeiro problema você resolve colocando o mesmo código do login na ação do botão sair. Você vai mudar apenas o campo.

O segundo problema você vai ter que inspecionar como a consulta está sendo feita no banco de dados e quais os dados estão retornando. Certeza que o problema está nessa consulta.

Meu amigo obg pela atenção, mas td o que vc fez eu já tentei. Pode ser que esteja fazendo errado... possivelmente... kkkkkk

Teria como descrever como eu deveria modificar o código e como deveria estar a minha consulta?


Att,


AMarcos

Algum amigo mestre se disponibiliza em me ajudar no impasse?

Posso ser mais específico em algo que ainda não esteja bem claro.


Att,


AMarcos

Bom dia, Marcos.

Eu vi seu banco e percebi que você cometeu um pequeno erro ao modelar seu sistema de login.
- Você criou uma tabela com Id, Usuário, Login, Senha, Função, Data de entrada e Data de saída. É uma convenção usar o campo login como campo de informação única, ou seja, não pode repetir. Você está usando esse campo pra gravar o "tipo de usuário". É bastante provável que o problema do login com senha de outro esteja acontecendo por isso. Minha sugestão é que o campo login seja marcado na tabela como "Indexado: Sim (Duplicação não autorizada)"

- Outro problema que percebi foi que você criou uma função para validar o login e essa função recebe três parâmetros. Para validar um login basta você receber dois parâmetros (login e senha). Sendo que um desses dois campos devem ser únicos na tabela. A solução que sugeri acima provavelmente vai resolver seu problema. Ainda assim sugiro que reescreva a função de login pra que ela receba apenas dois parâmetros.

Resumindo: Na tabela faça com que o campo login seja único e na função verificaLogin faça com que ela receba apenas login e senha.

Faça essas alterações e os testes. Se não resolver volta aqui já com essas alterações que eu vejo qual o problema.

Bons estudos.

Ok, meu amigo vou realizar as alterações encontradas e sugeridas pelo amigo e volto sim a entrar em contato hoje ainda no período da tarde.

Um grande abraço!!!


AMarcos

Amigão realizei as alterações recomendadas, mas agora não consigo entrar no sistema.  Só dá senha inválida!

Teria como analisar se está faltando algo?


Att,



AMarcos

Não aparece o anexo pra mim.

Voltei a anexar o BD na Mensagem 7.

Bom día Marcos!

Para resolver o problema da "senha inválida", selecione a combobox Usuário e na opção Coluna Dependente, mude para 2.
É isso aí!



Saludos!

E aí meu amigo Franklin quanto tempo????

Muito obrigado mesmo por mais essa ajuda.  Deu super certo!!!

Nem pensava em que vc pudesse me dispensar sua atenção mais uma vez. Estava mesmo esperando a resposta do nosso mestre renpv, mas como a vida é corrida ele ainda não deve ter visto a minha última solicitação.

Com certeza ele também ficará satisfeito pelo seu retorno.  Pois esse fórum é assim, ima confraria de amigos mestres, um dando suporte e aumentando o conhecimento do outro.

De minha parte só tenho que agradecer a todos que me dispensam a atenção me ajudando ou não...

Mas deixando a rasgação de seda, será que você também me ajuda no primeiro problema de Login/Logout, descrito na mensagem nº1 deste tópico: eu não consigo inserir o registro de LOGOUT na Tabela Usuários qo clicar no botão Sair (btn_SairApp) do formulário "Menu".

Será que você pode me dar mais essa luz no que fazer? Em que estou errando? Ou o que estou deixando de fazer?

Muito obg mais uma vez e fico a espera de sua ajuda como também dos outros mestres do fórum.


Saludos

Att,

AMarcos

Em resposta a sua MP, veja, estude e adapte este anexo que lembro já ter postado em algum tópico por aqui.

Amigo Marcos bom día!

Vc já tem a resposta de Damasceno.
O meu desejo é de continuar a colaborar.

Saludos

Meus caros amigos Damasceno e Franklin, infelizmente não deu para adaptar tal código utilizado no repositório de exemplo.

A minha necessidade é ter um código VBA no botão SAIR (btn_SairAPP) de modo que ele lance os dados contidos na caixa txt_Now (=Now) na Tabela Usuarios no usuário logado e discriminado na caixa txtUsuarioAtual (=getUsuarioAtual).

A minha dificuldade é que a Tabela Usuarios está vinculada ao Formulário Frm_Login.


O código utilizado por mim e que não está retornando resultado é este abaixo, conforme BD postado na mensagem nº 7:

Private Sub btn_SairApp_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "Update Usuarios Set Dt_Saiu = '" & Now() & "' Where Login = '" & comb_Login & "' and IsNull(Dt_Saiu)" '
DoCmd.SetWarnings True
DoCmd.Close
DoCmd.OpenForm "Frm_Login"
End Sub

Att,


AMarcos

Algum avanço, AMarcos?

Sim meu amigo Damasceno.  

Depois de muito pesquisar e realizar alguns testes, consegui fazer inserir a data e a hora na Tabela no momento de Logout:

Private Sub btn_SairApp_Click()
   DoCmd.SetWarnings False
   DoCmd.RunSQL "Update Usuarios Set Dt_Saiu= Now() Where Login = getUsuarioAtual()" '
   DoCmd.SetWarnings True
   DoCmd.Close
   DoCmd.OpenForm "Frm_Login"
End Sub

Muito obg pela atenção dispensada!

Só não dei o resolvido ainda porque estou quebrando a cabeça para conseguir acrescentar o campo Grupo (txt_CtrlGrupo) correspondente ao usuário logado (txtUsuarioAtual) no formulário Menu no momento do Login.

Com isso irei aplicar as permissões em cima do Grupo logado.  Estou tentando alterar a função LoginSenha e o Formulário Login, mas até agora sem êxito.

Se o amigo tiver uma oportunidade de me apontar um direção, ficarei muito grato!  Na maioria das vezes as coisas são bem mais fáceis do que parecem.

Att,


AMarcos