[Resolvido]ajuda com Registro de usuário no sistema

Boa Noite,

Para acessar meu bd tenho a tela de login, como faço para registrar quem entrou no sistema em data e hora. Vi vários exemplos aqui, mas todos voltados para permissão de usuário ou registro de um formulário. não preciso ver em qual formulário ele entrou, somente qual dia e hora entrou no sistema e ficar registrado esses dados. O exemplo que ao alterar em um formulário e modifica-lo e ficar gravado é ótimo exemplo (quem introduziu e quem alterou do Jpaulo) seria até um controle mais viável e seguro, o problema é que tenho vários formulários e não consegui adequar essa situação para todos. Então só o fato de registrar quem entrou no sistema em data e hora já ajudaria bastante.
Quem puder dar uma força, agradeço muito. Ah a outra forma se tiver uma maneira mais simples, porque se tiver que ir em tabela por tabela e formulário por formulário para ficar gravado essas informações, ficaria muito complexo e o bd ficaria enorme, acho eu. A não ser que tivesse um controle assim: fulano logou tal data e hora e quais locais ele entrou. Caso não seja possível essa dica, ficarei extremamente grato só com quem logou data e hora.

Sandro
Goiânia
Brasil

Bom dia Avelino,



Não deu certo, o envio da informação de quem logou e data/hora não foi inserida na tabela Usuario. Vou colocar os dados pra ver onde errei.

tenho uma tabela chamada Usuario com os campos> login, senha e DtaHor

o formulário de Login com nome Flogin com as caixas de texto não acopladas:

CaixaLogin (com origem da linha SELECT Usuario.login FROM Usuario; )

CaixaSenha

e três botões:

Botão: Login com o evento ao clicar:

Private Sub BotaoLogin_Click()
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then

If verificaLogin(CaixaLogin, CaixaSenha) Then
CurrentDb.Execute "INSERT INTO Usuario (login,DtaHor) VALUES ('" & Me!CaixaLogin & "',date());"
DoCmd.Close
DoCmd.OpenForm "Memp"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"

End If

End If

End Sub

******************************************************

o botão BotaoAlterar: (que abre outro formulário para alteração de senha)

com o evento:
Private Sub BotaoAlterar_Click()
If Not IsNull(CaixaLogin) Then
DoCmd.OpenForm "FAlterarSenha", , , , , , CaixaLogin
Else
MsgBox "Informe o usuário!", vbExclamation, "Alterar Senha"
CaixaLogin.SetFocus
End If
End Sub
******************************************************

e o botão sair


Grato pela sua atenção.

Sandro
Goiânia

Olá Avelino Sampaio,
Para mim esse Comando foi de grande valia.
Se você não se importar, como eu faria para colocar a Hora_de_Saída no último registro de quem logou no momento em que eu fechar o Sistema, para que no Registro da Tabela fique registrado o Nome_do_Usuário, Data_de_Entrada e Data_de_Daída.
Se puder me responder, serei grato.
Abrçs.

Wallace Lima, boa noite

Você mencionou que o código do Avelino funcionou, poderia me dizer como inseriu o código
qual campo ou botão e o código em si?
Tentei mas não consigo, já fiz de várias formas mas não registra na tabela.

Grato

Boa noite companheiro,
O meu código ficou da seguinte forma:

CurrentDb.Execute "INSERT INTO LoginUsuário (RGLog,GraduaçãoLog,UsuárioLog,DataLog,HoraEntrLog) VALUES ('" & Me!Txt_RG_Tab & "', '" & Me!Txt_Graduação_Tab & "', '" & Me!Txt_Usuário_tab & "', date(), Time());"

Esse código eu coloquei para gravar na Banco de Dados já aberto, porém na Tabela LoginUsuário, nos campos ( RGLog,GraduaçãoLog,UsuárioLog,DataLog,HoraEntrLog ) os dados contidos na Tabela Usuário (Porém os dados dessa tabela já são filtrados quando do login) que estão nas caisas de Texto ( Txt_RG_Tab, Txt_Graduação_Tab, Txt_Usuário_tab ) e adicionando a data e hora ( date(), Time() ) (Respectivamente.
Essas Caixas de Texto contém dados extraídos da Tabela Usuário quando do momento do Login, aproveitando todos esses dados.

Espero ter ajudado.

Gostaria de saber como eu poderia fazer para incluir a Hora de Saíoda do usuário neste último registro criado na Tabela do Login.
Obrigado a todos.

Wallace

Esse código você colocou no evento: no atual do formulário de login?

Bom dia socgyn,
Esse código eu coloquei no Evento/Clicar do Botão entrar, porém após a autorização do U}susário, ou seja, após ser verificado se o Ususário e Senha estão corretos.

Consegui resolver, estava errando pois a tabela que eu tinha de usuário é onde se cadastra os mesmos, então criei outra tabela e após a verificação envia os dados do usuário, data e hora.
no botão login ficou 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 & "',date(), Time());"
DoCmd.Close
DoCmd.OpenForm "frm2"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"

End If
End If
End Sub

Com isso os dados são enviados para a tb Usuar2.

Agradeço a colaboração.

Sandro
Goiânia
Brasil

Olá companheiros,

Gostaria de saber como eu poderia fazer para incluir a Data e Hora de Saída do usuário neste último registro criado na Tabela do Login.
Obrigado a todos.

Olá Wallace

Se vc repetir a consulta no comando ao fechar dos objetos (forms e relatórios), mas agora com os dados dos campos DataSaída e HoraSaída (creio que ainda a serem criados) não resolveria o problema?