Views

Histats

Vitrine

Access VBA - Nome do Computador (Estação de Trabalho)

Inline image 1

Muitas vezes queremos deixar registrados os nomes do computadores que acessaram a nossa
aplicação. Isso é possível através do uso da função 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


Referências: 
Tags: VBA, Excel, Access, Word, Powerpoint, office, computer name, workstation



✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias