VBA Access - Registrando o nome das máquinas (Workstation).

Muitas vezes queremos deixar registrados os nomes do computadores qeu acessaram a nossa aplicação. Isso é possível através do uso de uma fnução como a demonstrada abaixo: Com poucas alterações esse código poderá ser utilizado também no Word, Excel, Powerpoint e quaisquer aplicações que utilizem o VBA. Function ComputerN() As String On Error GoTo Err_Handler Dim strName As String Dim lngLen As Long Let lngLen = 16& Let strName = String$ (lngLen, vbNullChar) If apiGetComputerName (strName, lngLen) = 0& Then Let ComputerName = "Desconhecido" Else Let ComputerName = Left$ (strName, lngLen) End If Exit_Handler: Exit Function Err_Handler: Call LogError (Err.Number, Err.Description, conMod & ".fOSMachineName") Resume Exit_Handler End Function

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