Gravar em tabela todos acessos de usuários com data e hora

Boa tarde a todos, tenho um BD 2007 funcionando perfeito só que preciso agora que quando os usuários cadastrados façam o acesso ao clicar no botão este fique gravado em uma tabela a ser criada com os devidos campos USUÁRIO, DATA e HORA, segue o Cód. do botão de acesso

Private Sub Acessar_Click()
If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
DoCmd.OpenForm "FiltrosSequenciais"
DoCmd.OpenForm "FormSaudacao"
Else
MsgBox ("Usuário ou Senha Inválidos!")
End If
End Sub

Agradeço desde já abç

Private Sub Acessar_Click()
If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
DoCmd.OpenForm "FiltrosSequenciais"
DoCmd.OpenForm "FormSaudacao"
CurrentDB.Execute "INSERT INTO [sua tabela] ([camp1], [campo2], [campo3]) VALUES ('" & Environ("username") & "', '" & Date & "', '" & Time & "')"
Else
MsgBox ("Usuário ou Senha Inválidos!")
End If
End Sub

boa tarde amigos esses exempto é bastante legal mas eu estou aproveitado ele para meu BD mas só tem um problema no lugar do usuário que logou esta aparecendo o nome do cumputador.alguem pode mim ajudar

De uma olhada neste exemplo do JPaulo, ele registra o usuario do pc, o usuario do bd e o ip da maquina utilizada.

https://www.maximoaccess.com/t213-quem-introduziu-quem-alterou?highlight=introduziu

Philipp.moreira

Grato pela atenção, funcionou mas esta registrando o Id da maquina e não o Usuário

Dei uma mexida e descobri o erro, funciona perfeito e mesmo que mude de maquina irá registrar a mesma tbm então ficou assim...

Private Sub Acessar_Click()
If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
DoCmd.OpenForm "FiltrosSequenciais"
DoCmd.OpenForm "FormSaudacao"
CurrentDb.Execute "INSERT INTO [Registro Acesso] ([Maquina],[Usuario],[Data],[Hora]) VALUES ('" & Environ("Username") & "', '" & txtUsuario & "', '" & Date & "', '" & Time & "')"
Else
MsgBox ("Usuário ou Senha Inválidos!")
End If
End Sub