[Resolvido]Como gravar a data e hora da saída do logado - ajuda

Vi muitos exemplos aqui, mas não consegui adequar nenhum deles. Sou meio "cru" em vba.

Para registrar na tabela user2 a data e hora que logou eu consegui, coloquei o código abaixo no botão login do formulário de login

CurrentDb.Execute "INSERT INTO Usuar2 (usuar,Dta,hra) VALUES ('" & Me!CaixaLogin & "',date(), Time());"

Agora o que preciso é conseguir gravar na mesma tabela (usuar2) nos campos : DtaSai e hraSai , os respectivas informações data da saída e hora da saída do sistema.

Dentre alguns exemplos um indicava isso:

CurrentDb.Execute "UPDATE NomeDaTabela SET Campo1DaTabela='" & Me.Campo1DoForm & "', Campo2DaTabela='" & Me.Campo2DoForm & "', Campo3DaTabela='" & Me.Campo3DoForm & "' WHERE Código='" & Me.Código & "'"

Só que não deu certo. aliás em qual formulário ou botão colocaria esse código?
Já vasculhei o repositório e outras dicas mais dá errado, muitos exemplos controlam alteração e quem fez mas o logout não. eu só preciso registrar a data e hora da saída.
Se alguém puder ajudar agradeço.

Veja Este exemplo criado por um amigo meu. Já tem todas as funções que você precisa e justamente a hora do login e a hora do encerramento.
Usuario: Administrador
Senha: Admin.
Sucesso.

O exemplo não veio anexado

Ve se te ajuda!!

Fernando Bueno,

Obrigado pelo exemplo, já havia visto anteriormente, muito bom por sinal. O problema é que para adequar meu bd nele ficará mais complicado, não sei ainda como fazer as ribbons e quando carrega no login ele já tem uma estrutura montada, o meu está praticamente completo, vou ver como funciona o montaribbons do Avelino agora. não sei se tem como aproveitar toda estrutura adicionar meu menu com o que está nesse, para mim ainda é meio complicado.
Seria ideal se eu conseguisse.
No momento preciso adiantar o projeto, e no momento, o mais viável será gravar a data e hora de logon e quem logou (isso já consegui) e a saída ou logout do logado. para gravar a entrada fiz pelo formulário de login, agora a saída não sei como faço já tentei vários código e nem sei na verdade onde colocar esse código, se é no próprio formulário de login ou em outro, ou criar um módulo para gravar ao fechar o sistema seja por qual meio.

o código que usei para gravar a entrada fica no botão login, logo após a verificação do mesmo.

CurrentDb.Execute "INSERT INTO Usuar2 (usuar,Dta,hra) VALUES ('" & Me!CaixaLogin & "',date(), Time());"

Certo entendi, esse link ajudara esclarecer sua duvida, veja:

http://www.mabesi.com/forum/access/62-como-criar-log-de-login-e-logout-do-sistema.html

Fernando Bueno,
mais uma vez obrigado pela atenção.
Verifiquei no Fórum do mabesi e, desculpe minha ignorância, mas a dúvida é onde coloco os códigos,

Ele menciona a criação da tabela onde serão armazenados os dados, já tenho a tabela em questão mais o Código não sei onde coloco e nem
a chamada Call

Código:

Sub logUsuario(strTipo As String, strUsuario As String)

Dim str As String

srtSql = "Insert Into tbl_LogUsuario(tipoLog,dataHoraLog,usuario) " & _
"Values('"&strTipo & "',Now(),'" & strUsuario &"')"

DoCmd.SetWarnings False
DoCmd.RunSQL strSql
DoCmd.SetWarnings True

End Sub


Chamada:

Call logUsuario("Login",CurrentUser) 'para login'

ou

Call logUsuario("Logout",CurrentUser) 'para Logout'

Como o de login já consegui fazer armazenar, o problema é com o registro logout.

onde coloco o Call logUsuario("Logout",CurrentUser) para registrar o Logout ?

Ah na tabela que ele propôs não há campo para data/hora logout,

tbl_LogUsuario
idLog nº auto
tipoLog texto
dataHoraLog data/hora (formato = dd/mm/yyyy - hh:nn:ss)
usuario texto

Se puder ajudar, a esclarecer como proceder para implantar fico imensamente agradecido

Sandro
Goiânia

Segue com Anexo.

Vou testar esse comando depois te retorno..

Bom dia pessoal, como consegui resolver, vou compartilhar aqui a solução. Ah antes de mais nada agradeço a todos que tentaram ajudar.

Bom, com uma dica do Avelino, adequei a minha necessidade e funcionou.

Vamos lá:

No formulário de login no botão logar, coloquei o código

Private Sub BotaoLogin_Click()
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
If verificaLogin(CaixaLogin, CaixaSenha) Then
CurrentDb.Execute "INSERT INTO Usuar2 (usuar,Dta,hra) VALUES ('" & Me!CaixaLogin & "',Now(), Time());"

Me.Visible = False
DoCmd.OpenForm "frm2"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"

End If
End If
End Sub

Então logo após a verificação de usuário e senha ele adiciona a informação do usuário, data e hora em que logou.
Ps.: uma mudança nesse formulário é que fez a diferença, antes ao logar o formulário era fechado, então conforme dica,
fica somente oculto Me.Visible = False

Ao descarregar deste mesmo form coloquei:

Private Sub Form_Unload(Cancel As Integer)
CurrentDb.Execute "UPDATE Usuar2 SET Usuar2.DtaSai = Now(), Usuar2.hraSai = Time() WHERE Usuar2.DtaSai Is Null AND Usuar2.hraSai Is Null;"
End Sub

Então quando fecho o access ele registra a data e hora da saída na tabela em questão.

Antes eu estava colocando em cada formulário de cadastro e quando saia registrava, mas são muitos forms, então essa foi a melhor maneira

Até mais.

Sandro
Goiânia

Legal amigo, obrigado pelo compartilhamento e retorno!