CurrentUser()

mean34dean · September 30th, 2008, 11:42 AM

I am trying to capture record changes and am using CurrentUser() to update a field when the record is changed. It seems that the current user is Admin, no matter who is logged in. What do I need to use to capture who is actually logged into the computer?

SerranoG · September 30th, 2008, 03:48 PM

Are you using a home computer, in a small business with one or two unnetworked computers, or a place where you have a Local Area Network (LAN)?

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

mean34dean · September 30th, 2008, 03:57 PM

Yes we are on a LAN.

mean34dean · September 30th, 2008, 03:59 PM

I am actually just using a macro to set the value for 3 fields

[Modby]
[ModDate]
[ModTime]

Looking at it as if it were a module:

Code:

Function LastModified()
On Error GoTo LastModified_Err

    With CodeContextObject
        .ModDate = Date()
        .ModTime = Time()
        .ModBy = CurrentUser()
    End With


LastModified_Exit:
    Exit Function

LastModified_Err:
    MsgBox Error$
    Resume LastModified_Exit

End Function

It works well, except that I get "Admin" as the current user all of the time. What should I use to get the network current user??

mmcdonal · October 15th, 2008, 02:09 PM

Access is not very good at capturing user creds. I put a hidden field on the form called WhoMod (text), and one called DateMod (date) then do this:

Sub FormName_BeforeUpdate

Dim sUser As String
Dim dtDate As Date

dtDate = Now()
sUser = (Environ$("Username"))

Me.DateMod = dtDate
Me.WhoMod = sUser

End Sub

Did that help?

P.S. What's a macro? =)

mmcdonal

Look it up at: http://wrox.books24x7.com

mean34dean · October 15th, 2008, 02:34 PM

I should have posted this earlier, but, here is how I fixed the problem.
I replaced CurrentUser()
with this.

GetNetworkUserName()

And it worked!

I was suprised, but happy.:D