Capture User Name to print on report 3

[quig699]

Hi, I am looking for a simple way to capture the user name of the person who is printing a report. I am just looking to have their name print on the footer. I am not looking to have it stored anywere. I am able to capture the user name when people enter data, but everything I try to capture it for the report has failed. Any suggestions??

Thanks,

Amy

 

[Remou]

What user name are you talking about? Access security? Windows log-on? What code are you using on the form that does not work on the report?

 

[Crowley16]

the workgroup username is stored in a global accessible variable called currentuser...

if you want to the the system username, then you'll have to use api functions, there's plenty of examples you can google for that...

--------------------
Procrastinate Now!

 

[quig699]

I was looking to get their windows login. Thanks for your help!!

Amy

 

[dhookom]

You didn't state whether you needed code for the windows login. In case you do, check out

http://www.mvps.org/access/api/api0008.htm.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[quig699]

Hi Duane,

I am looking to get the windows login. I actually found the link you suggested but I did not work. What should I name the module and what do I put in the text box where the windows login would appear?

Thanks

Amy

 

[dhookom]

Make sure the name of your module is not the name of your function. That's another good reason for consistently using a naming convention. All my modules are named beginning with "bas". Other developers might use "mod..."

"did not work" isn't very descriptive. Can you be more specific?

To display the user name in a text box, set the control source to:
=fOSUserName()

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[CoolFactor]

Amy,

Input this code into the module you create:

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

'-----------------------------------------------------------------------------------------
' This code is used to retrieve the network user name by accessing the API apiGetUserName.
' Created by: Unknown (Found on Dev Ashish web site

http://home.att.net/~dashish/api)

' This code has not been altered in anyway.
' Added to database: 27 dec 1999
' Added by: Richard Rensel
'-----------------------------------------------------------------------------------------

Function fOSUserName() As String
On Error GoTo fOSUserName_Err

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 = ""
End If


fOSUserName_Exit:
Exit Function

fOSUserName_Err:
MsgBox Error$
Resume fOSUserName_Exit
End Function

This will work!

Also create a text box on the footer and in the control source Paste this:

=FOSUserName()

Presto you are done!

This will work.

 

[quig699]

Thanks to everyone for all of their help!!! I got it to work!!

Amy

 

[MikeC14081972]

Quick question on this subject.

Whats wrong with putting a textbox in the footer and entering

=Environ$("Username")

as this will also populate the field with the windows login and requires a lot less coding.

Just curious really.

If you make something idiot proof - They'll Only make a better idiot!!!

 

[Remou]

Apparently it does not work with all versions of Windows, also Access 2003 can block it:

http://office.microsoft.com/en-gb/access/HA011225981033.aspx

 

[MikeC14081972]

Thanks, must of been lucky so far, but will bear this in mind in the future.

If you make something idiot proof - They'll Only make a better idiot!!!