[Resolvido]Log de informações

Boa tarde,

tenho um codigo no meu banco de dados que captura o usuario que está no sistema, porem, só consegui fazer com que ele mostrasse isso em uma msgbox e preciso que ele armazenasse em uma tabela esses usuarios que acessa o sistema, junto com a data.

Encontrei um arquivo no forum sobre isto, porem esta off : /

segue o codigo:

Código:

Function UsuarioRede() As String
    Dim GetUserN
    Dim ObjNetwork
    Set ObjNetwork = CreateObject("WScript.Network")
    GetUserN = ObjNetwork.UserName
    UsuarioRede = GetUserN
End Function


Esta função cadastra o usuário numa tabela local, para registrar o usuário da máquina. Também grava numa outra  tabela o usuário e data de abertura do arquivo.

Código:


Public Function QualUsuario()
Dim vNetwork As Object
Dim vLogado As Variant

Set vNetwork = CreateObject("WScript.Network")
vLogado = vNetwork.UserName

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tb_LocalUser"
DoCmd.RunSQL "INSERT INTO tb_LocalUser ([UsuarioLogado]) VALUES ('" & vLogado & "')"
DoCmd.RunSQL "INSERT INTO tb_Logins(Usuario_Logins, DataHora_Logins) VALUES ('" & vLogado & "', '" & Now & "')"
DoCmd.SetWarnings True

End Function

obrigado pela ajuda thiago, funcionou certinho.

Só gostaria de saber agora como faço para que essa informação de usuario logado (apenas o usuario) aparecesse em um campo em outra tabela

Ja consegui fazer thiago, peguei a informação na variavel vLogado e a utilizei em uma caixa de texto.

Mais uma vez obrigado pelo auxilio.

Pode usar a função DLookup, também. Ela busca um valor numa tabela.