Grab current users into textbox default value display 1

[d1004]

If current user ID log into the network, I want to have the capability of putting that ID into my current user txt box.
Is there a way to do that. I know in DOS, you grab that by
using %username%
Thank you,
-D1004

 

[hermanlaksko]

Some years back I found this and kept it for later use, leter has not come yet , so I have not tryed it but here it is:


Private Declare Function getusername Lib "advapi32" Alias "GetUserNameA"
(ByVal buffer As String, buffersize As Long) As Long
------------------------------------------------------------------------
Function getuser() As String
Dim username As String * 255
Dim namesize As Long
Dim errno As Long
namesize = Len(username)
errno = getusername(username, namesize)
getuser = Left(username, namesize - 1)

End Function

 

[d1004]

This is a really stupid question, but can I put that function inside my Private Sub UserID_Enter()
Thank you!

 

[hermanlaksko]

No but you could call it from that sub

 

[Rick39]

You could also use Environ("username&quot

 

[hermanlaksko]

Hi Rick39
I did not know of the Environ function Thx

 

[d1004]

I tried the environ("username&quot, and it works for Window 2000 OS, but it wouldn't let
me for Window 95. Is there any other method?
Thank you