cleverson_manaus

brother conseguiu resolver seu problema? querendo ajuda, posta mais detalhes de suas tabelas e campos. cleverson

você pode optar por registrar, se estiver em rede, o userlogin e namemachine . crie um módulo para cada função: '01 - Mostra o usuário logado na máquina Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function fOSUserName() As String ' Returns the network login name Dim lngLen As Long, lngX As Long Dim strUserName As String strUserName = String$(254, 0) lngLen = 255 lngX = apiGetUserName(strUserName, lngLen) If lngX <> 0 Then fOSUserName = Left$(strUserName, lngLen - 1) Else fOSUserName = "" End If End Function '02 - mostra o nome da maquina usado pelo usuário Private Declare Function apiGetComputerName Lib "kernel32" Alias _ "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function fOSMachineName() As String 'Returns the computername Dim lngLen As Long, lngX As Long Dim strCompName As String lngLen = 16 strCompName = String$(lngLen, 0) lngX = apiGetComputerName(strCompName, lngLen) If lngX <> 0 Then fOSMachineName = Left$(strCompName, lngLen) Else fOSMachineName = "" End If End Function - no seu form, crie duas variáveis string por exemplo: Dim strUser as string Dim strMachine as string - depois atribua os valores das funções às variáveis, assim: strUser = fOSUserName() strMachine = fOSMachineName() - em seguida depedendo de como você acessa seus dados, via DAO ou form acoplado, atribua os valores dessas variáveis a duas caixas de texto no seu form. cole e teste cleverson