Trazer O Login Da Rede Em Um Campo De Um Formulario Em Access

[Felipe Vital]

Gostaria de saber como eu posso pegar o log de um usuário da rede, e com este dado, alimentar um campo no access.

Felipe Vital

[Guest - Gilberto -]

Utilize o código abaixo

Option Compare Database

Option Explicit

' função para pegar o usuario ativo

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _

(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Function gGetUserName() As String

Const lpnLength As Integer = 255

Dim Status As Integer

Dim lpName, lpUserName As String

lpUserName = Space$(lpnLength + 1)

Status = WNetGetUser(lpName, lpUserName, lpnLength)

lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)

gGetUserName = lpUserName

End Function

[Guest - gilberto -]

e na consulta de atualização ou acréscimo definir a expressão, ex

Usuario: gGetUserName()