Имя текущего пользователя

Private Declare Function GetUserNameA Lib 'advapi32.dll' (ByVal lpBuffer As String, nSize As Long) As Long
 
Public Function LoginUserName() As String
'***************************************************************************************
' возвращает логин пользователя Windows
'***************************************************************************************
  Dim er, lSize As Long
  Dim sBuffer As String
  
  On Error GoTo Err_LoginUserName
  lSize = 255
  sBuffer = Space$(lSize)
  er = GetUserNameA(sBuffer, lSize)
  If lSize > 0 And lSize < 100 Then
    LoginUserName = Left$(sBuffer, lSize - 1)
    On Error GoTo 0
    Exit Function
  End If
Err_LoginUserName:
  LoginUserName = 'user'
End Function

Option Compare Database
 
Private Declare Function GetUserNameA Lib 'advapi32.dll' (ByVal lpBuffer As String, nSize As Long) As Long
Public Function LoginUserName() As String
'***************************************************************************************
' Возвращает логин пользователя Windows
'***************************************************************************************
Dim er, lSize As Long
Dim sBuffer As String
 
On Error GoTo Err_LoginUserName
lSize = 255
sBuffer = Space$(lSize)
er = GetUserNameA(sBuffer, lSize)
If lSize > 0 And lSize < 100 Then
LoginUserName = Left$(sBuffer, lSize - 1)
On Error GoTo 0
Exit Function
End If
Err_LoginUserName:
LoginUserName = 'user'
End Function
 
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
 
   DoCmd.GoToRecord , , acNewRec
  
   DoCmd.SendObject , 'База ошибок', acFormatTXT, , , , , , False, False
 
Exit_Кнопка6_Click:
    Exit Sub
    
Err_Кнопка6_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка6_Click
    
End Sub

Private Declare Function GetComputerNameA Lib 'kernel32' (ByVal lpBuffer As String, nSize As Long) As Long
 
Public Function ComputerName() As String
'***************************************************************************************
' возвращает имя компьютера Windows
'***************************************************************************************
Dim er, lSize As Long
Dim sBuffer As String
 
On Error GoTo Err_ComputerName
lSize = 255
sBuffer = Space$(lSize)
er = GetComputerNameA(sBuffer, lSize)
If lSize > 0 And lSize < 100 Then
ComputerName = Left$(sBuffer, lSize - 1)
On Error GoTo 0
Exit Function
End If
Err_ComputerName:
ComputerName = 'Name'
End Function