Who created new record

[ducecoop]

In Access 2003 I used to use the following in as the default value in a field called “AddedBy”
=Environ("username")

This does not seem to work in 2007 and 2010.

Any alternative method for a one login situation, (All users have the same DB login) that can pull their computers login username?


tia
Dave

[pbaldy]

Like this?

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

[ducecoop]

OK - I looked at that and was not sure how to "Call it"
I did create the madule and tried just calling it from the default vaule attribute of the "AddedBy" field

= fOSUserName()

got an error saying function not found.

Did I create the function wrong
or
is that not the place to call it from

Thanks

[pbaldy]

That should work. It's in a standard module (not behind a form or report)? Make sure the module doesn't have the same name as the function, and make sure you've saved it.

[ducecoop]

That should work. It's in a standard module (not behind a form or report)? Make sure the module doesn't have the same name as the function, and make sure you've saved it.

Modal is saved and with a different name then the function and is not behind a form or report

This is the error I get:

[slave138]

Maybe type "Public" before the Function declaration in the module?

[ducecoop]

Maybe type "Public" before the Function declaration in the module?

If I understood you correctly I tried that with the same error results

here is the Modal code

Option Compare Database


'******************** 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

Public 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

[slave138]

What's the name of the module?

[pbaldy]

Are you trying to make this the default value at the table level? I'm not sure that will work. I just tested and got the same error. It will definitely work as the default value of a textbox on a form.

[ducecoop]

Are you trying to make this the default value at the table level? I'm not sure that will work. I just tested and got the same error. It will definitely work as the default value of a textbox on a form.

Yes I was trying to use it as a default value at table level.
I actually did not have the field on any form since the field was mostly for security and follow-up purposes.
I added it as a hidden field to the necessary forms and as you said - works great.

Thanks to all


Dave

[pbaldy]

Glad it worked for you.