VBA Access - Nome do usuário na rede (Network User Name).

Em alguns casos pode ser necessário que registremos os nomes dos usuários que estão acessando as nossas aplicações. Ou talvez desejemos desenvolver um modo de Login que utilize esses nomes de usuários na rede. Function NetUName() As String On Error GoTo Err_Handler Dim lngLen As Long Dim strUserName As String Const lngcMaxFieldSize As Long = 64& ' Inicia. Let strUserName = String$ (254, vbNullChar) Let lngLen = 255& ' Em caso de sucesso a API retornará um valor diferente de zero. If apiGetUserName (strUserName, lngLen) <> 0& Then Let lngLen = lngLen - 1& If lngLen > lngcMaxFieldSize Then 'Tamanho Máximo do campo. Let lngLen = lngcMaxFieldSize End If Let NetworkUserName = Left$ (strUserName, lngLen) End If Exit_Handler: Exit Function Err_Handler: Call LogError(Err.Number, Err.Description, conMod & ".NetworkUserName", , False) Resume Exit_Handler End Function

André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com