Log af user i tabel

Hej Jensen
Environ("username") fungerer vist fint.
VH Anders

Ikke som inputvalue i tabeller, - kun som visning :-(

Jeg benytter nedenstående for at finde aktuel bruger .. Virker på såvel Domæne samt standalone PC´er
----------------------------------------------------
opret en VBA funktion

Public Function GetUserName() As String
      GetUserName = CreateObject("WScript.Network").UserName
End Function

og kald funktionen :
=GetUserName()

---
mvh martens

Ikke som inputvalue i tabeller? There isnt any default values you can use directly on the table, youll need to implement your own methods to do that.

There is also an API you can use to get the currentky logged in user
http://theaccessweb.com/api/api0008.htm

I tried to use this ( suggested by Terry ) :

   
API: Get Login name

Author(s)
Dev Ashish


(Q) How do I retrieve the UserName with which the user is logged into the network?

(A) Paste the following code in a new module and call the function fOSUserName.

'******************** Code Start **************************
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If ( lngX > 0 ) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function
'******************** Code End **************************

When I insert the code in a module, these two lines is shown in red :

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

This works
Option Compare Database
Option Explicit

Private Const sModName = "mod_Utilities" 'Application.VBE.ActiveCodePane.CodeModule

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
   
Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
   
   
   
   
   
'******************** Code Start **************************
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Function fosusername() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        fosusername = Left$(strUserName, lngLen - 1)
    Else
        fosusername = vbNullString
    End If
End Function
'******************** Code End **************************

The code you show works fine, no idea why ist not working

Still same issue

I'm using 64 Bit ...

The error message claim that the function needs to be updated to 64 Bit

try martens, that works too

64 bit access? Not a good idea...

I cant test this but try changing the declaration

Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA" (ByVal lpBuffer As String, nSize As LongPtr) As Long

https://vba.miraheze.org/wiki/Access_fOSUserName_function

There is no need to use Access 64 bit just because you use Windows 64 bit, and I doubt you will experience performance improvements by using Access 64 bit, but you can be sure you will experience other issues.