Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: имя юзера
 
 автор: user12345   (27.04.2015 в 17:07)   личное сообщение
 
 

Добрый день
Мне нужна функция, которая показало бы имя компьютера, с которого произведено действие.
Заранее спасибо за помощь

  Ответить  
 
 автор: user12345   (27.04.2015 в 19:56)   личное сообщение
 
 

нашёл...

Option Explicit

Private Declare Function GetComputerName _
Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, nSize As Long) As Long

Private Const MAX_COMPUTERNAME_LENGTH As Long = 15&

Public Function CurrentMachineName() As String
Dim lSize As Long
Dim sBuffer As String
sBuffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
lSize = Len(sBuffer)

If GetComputerName(sBuffer, lSize) Then
CurrentMachineName = Left$(sBuffer, lSize)
End If

End Function

  Ответить  
 
 автор: Панург   (28.04.2015 в 04:28)   личное сообщение
 
 


Sub testEnviron()
Dim i As Long
    For i = 1 To 41
        Debug.Print Environ$(i)
    Next i
End Sub

Твоё - Debug.Print Environ("COMPUTERNAME")

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList