<div>
Hi, 
 
What do you need ? 
The current user logged in windows (login name) ? 
 
If so, rather than using troublesome APIs, you have some alternatives available: 
1) Using environment variables:
<pre><code class="code-1 nolinks" id="code-20-42367219-1">Dim user As String
user = environ(&quot;USERNAME&quot;)
</code></pre>
 
2) Using Wscript.Network object:
<pre><code class="code-1 nolinks" id="code-20-42367219-2">Dim wshNet As Object
Set wshNet = CreateObject(&quot;WScript.Network&quot;)

Dim user As String
user = wshNet.UserName
Set wshNet = Nothing
</code></pre>
</div>

<div>
What I need is to store the captured detail in login table then use the captured details on the queries so that the following can appear on the reports: 
 
(1) The person who created the voucher 
(2) The person who approved the voucher 
 
 
On the code below it worked very well but for some reasons it has stopped and start blocking other code , I believe there is just one more declaration missing here: 
 
 
#IF Win64 THEN 
&nbsp; Declare PtrSafe Function GetUserName Lib &quot;advapi32.dll&quot; Alias &quot;GetUserNameA&quot; (ByVal _ 
&nbsp; &nbsp;lpBuffer As String, nSize As Long) As LongPtr 
#Else 
&nbsp; Declare Function GetUserName Lib &quot;advapi32.dll&quot; Alias &quot;GetUserNameA&quot; (ByVal _ 
&nbsp; &nbsp;lpBuffer As String, nSize As Long) As Long 
#End If 
Public Function GetUser() As String 
 
&nbsp; &nbsp;Dim strBuffer As String 
&nbsp; &nbsp;Dim lngSize As Long, lngRetVal As Long 
&nbsp; &nbsp; 
&nbsp; &nbsp;lngSize = 199 
&nbsp; &nbsp;strBuffer = String$(200, 0) 
&nbsp; &nbsp; 
&nbsp; &nbsp;lngRetVal = GetUserName(strBuffer, lngSize) 
&nbsp; &nbsp; 
&nbsp; &nbsp;GetUser = Left$(strBuffer, lngSize - 1) 
 
End Function 
 
 
Public Function GetFullName() 
 
&nbsp; &nbsp; Const MESSAGETEXT = &quot;The current user is not recorded in the Users table.&quot; 
&nbsp; &nbsp; Dim strCriteria As String 
&nbsp; &nbsp; Dim varFullName As Variant 
&nbsp; &nbsp; 
&nbsp; &nbsp; strCriteria = &quot;LoginName = &quot;&quot;&quot;&nbsp;&amp; GetUser &amp;&nbsp;&quot;&quot;&quot;&quot; 
 
&nbsp; &nbsp; varFullName = DLookup(&quot;FullName&quot;, &quot;Users&quot;, strCriteria) 
&nbsp; &nbsp; 
&nbsp; &nbsp; If Not IsNull(varFullName) Then 
&nbsp; &nbsp; &nbsp; &nbsp; GetFullName = varFullName 
&nbsp; &nbsp; Else 
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox MESSAGETEXT, vbExclamation, &quot;Warning&quot; 
&nbsp; &nbsp; End If 
&nbsp; &nbsp; &nbsp; &nbsp; 
End Function 
 
Public Function AddNewUser() 
 
&nbsp; &nbsp; Dim strCriteria As String 
&nbsp; &nbsp; Dim strLoginName As String 
&nbsp; &nbsp; Dim strFullName As String 
&nbsp; &nbsp; Dim strSQL As String 
&nbsp; &nbsp; 
&nbsp; &nbsp; strLoginName = GetUser() 
&nbsp; &nbsp; strCriteria = &quot;LoginName = &quot;&quot;&quot;&nbsp;&amp; strLoginName &amp;&nbsp;&quot;&quot;&quot;&quot; 
&nbsp; &nbsp; 
&nbsp; &nbsp; If IsNull(DLookup(&quot;LoginName&quot;, &quot;Users&quot;, strCriteria)) Then 
&nbsp; &nbsp; &nbsp; &nbsp; strFullName = InputBox(&quot;Enter new user's full name:&quot;) 
&nbsp; &nbsp; &nbsp; &nbsp; strSQL = &quot;INSERT INTO Users(LoginName,FullName) &quot;&nbsp;&amp; _ 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;VALUES(&quot;&quot;&quot; &amp;&nbsp;strLoginName &amp;&nbsp;&quot;&quot;&quot;,&quot;&quot;&quot; &amp;&nbsp;strFullName &amp;&nbsp;&quot;&quot;&quot;)&quot; 
&nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; CurrentDb.Execute strSQL, dbFailOnError 
&nbsp; &nbsp; End If 
 
End Function
</div>

<div>
Scratch these APIs and use one of the alternative I posted.
</div>

<div>
If you did want to stay with the existing APIs (and I agree for getting the user ID I would use a pure VBA approach rather than the older Windows API approach), this change should get you going: 
 

<pre><code class="code-1 nolinks" id="code-20-42367257-1"> lngRetVal = CLng(GetUserName(strBuffer, lngSize))
</code></pre>
<hr />
»bp
</div>

<div>
So you could replace all of this: 
 

<pre><code class="code-10 nolinks" id="code-20-42367260-1">#IF Win64 THEN
 Declare PtrSafe Function GetUserName Lib &quot;advapi32.dll&quot; Alias &quot;GetUserNameA&quot; (ByVal _
 lpBuffer As String, nSize As Long) As LongPtr
#Else
 Declare Function GetUserName Lib &quot;advapi32.dll&quot; Alias &quot;GetUserNameA&quot; (ByVal _
 lpBuffer As String, nSize As Long) As Long
#End If
Public Function GetUser() As String

 Dim strBuffer As String
 Dim lngSize As Long, lngRetVal As Long
 
 lngSize = 199
 strBuffer = String$(200, 0)
 
 lngRetVal = GetUserName(strBuffer, lngSize)
 
 GetUser = Left$(strBuffer, lngSize - 1)

End Function
</code></pre>
With: 
 

<pre><code class="code-1 nolinks" id="code-20-42367260-2">Public Function GetUser() As String
 GetUser = Environ(&quot;USERNAME&quot;)
End Function
</code></pre>
<hr />
»bp
</div>

<div>
Couple things: 
 
1. Using an Environ variable, your opening up a security hole. &nbsp; Any user that can get to the command line would then be able to circumvent security. &nbsp; The API is a better approach as you are then getting a username based on authenticated credentials. 
 
2. On this: 
 
&quot;#IF Win64 THEN&quot; 
 
&nbsp; &nbsp;What's critical in your code is the &quot;bitness&quot; of Office &nbsp;that is installed, not Windows. &nbsp; The WIN64 constant is used to tell if your running in 64 or 32 bit VBA. &nbsp; &nbsp;The constant VBA7 tells you if your running in VBA from Access 2010 and up, or prior. 
 
For help with 32 vs 64 bit Access code, see the links in this comment: 
 
<a href="https://www.experts-exchange.com/questions/27190589/GetUserName-fails-on-64bit-Access.html?anchorAnswerId=36167741#a36167741" rel="ugc">https://www.experts-exchange.com/questions/27190589/GetUserName-fails-on-64bit-Access.html?anchorAnswerId=36167741#a36167741</a> 
 
&nbsp;also, you don't say what's wrong with your code, but the call for that was not modified for 64 bit.. &nbsp;You should be able to do: 
 
Declare PtrSafe Function GetUserName Lib &quot;advapi32.dll&quot; Alias &quot;GetUserNameA&quot; (ByVal lpBuffer As String, nSize As Long) As Long 
 
&nbsp;and be fine in A2010 and up with 32 or 64 bit Access. 
 
Jim.
</div>

<div>
I have tried this in the past , this is not even reliable, it works if one is using the same computer but the moment you move your database to &nbsp;another computer with runtime environment it stops working! 
 
That is the reason why I'm not using it. For example according to your code , I was using it like like below , please follow me: 
 
(1) Create a module: 
 
Public Function GetUser() As String 
&nbsp; &nbsp; GetUser = Environ(&quot;USERNAME&quot;) 
End Function 
 
(2) At form level 
 
I will create a control which I want to be inserted with the window login details 
 
Then I will use this 
 
Before insert event 
 
Me. txtCreatedby = GetUser() 
 
End sub 
 
Please check and confirm &nbsp;if I'm &nbsp;I was not doing the right thing! 
 
On the approval side 
 
I will use &nbsp;form current event 
 
with Me.txtauthorized by = GetUser() 
 
Regards 
 
Chris
</div>

<div>
also, you don't say what's wrong with your code, but the call for that was not modified for 64 bit.. &nbsp;You should be able to do: 
 
Now what about doing it like below: 
 
#If VBA7 And Win64 Then 
&nbsp; &nbsp; 'x64 Declarations 
&nbsp; &nbsp; Private Declare PtrSafe Function apiGetUserName Lib &quot;advapi32.dll&quot; Alias _ 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;GetUserNameA&quot; (ByVal lpBuffer As String, nSize As Long) As Long 
#Else 
&nbsp; &nbsp; 'x32 Declaration 
&nbsp; &nbsp; Private Declare Function apiGetUserName Lib &quot;advapi32.dll&quot; Alias _ 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;GetUserNameA&quot; (ByVal lpBuffer As String, nSize As Long) As Long 
#End If 
 
Regards 
 
Chris
</div>

<div>
Chris, 
 
&nbsp; Also note that you had &quot;Private&quot; in the front of your declares. &nbsp; I dropped that so they work throughout the app. &nbsp; not sure how you had things setup, but that might have been part of your problem. 
 
Jim.
</div>

<div>
<div class="content wysiwyg-content">
Hi 
 
I have just come back from one of our depot with bad news the code below is block other code from working , we &nbsp;are currently using Ms access 2016 stored as 32 BIT running on windows 64 BIT 
 
#IF Win64 THEN 
&nbsp; Declare PtrSafe Function GetUserName Lib &quot;advapi32.dll&quot; Alias &quot;GetUserNameA&quot; (ByVal _ 
&nbsp; &nbsp;lpBuffer As String, nSize As Long) As LongPtr 
#Else 
&nbsp; Declare Function GetUserName Lib &quot;advapi32.dll&quot; Alias &quot;GetUserNameA&quot; (ByVal _ 
&nbsp; &nbsp;lpBuffer As String, nSize As Long) As Long 
#End If 
 
For example we cannot up date depot details any more. 
 
Any solution to this will be highly appreciated. 
 
Regards 
 
Chris
</div>
</div>

Hi

I have just come back from one of our depot with bad news the code below is block other code from working , we  are currently using Ms access 2016 stored as 32 BIT running on windows 64 BIT

#IF Win64 THEN
  Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal _
   lpBuffer As String, nSize As Long) As LongPtr
#Else
  Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal _
   lpBuffer As String, nSize As Long) As Long
#End If

For example we cannot up date depot details any more.

Any solution to this will be highly appreciated.

Regards

Chris

The Win 64 BIT

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

This topic area includes legacy versions of Windows prior to Windows 2000: Windows 3/3.1, Windows 95 and Windows 98, plus any other Windows-related versions including Windows Mobile.