Using access registration details

[BSJoJaMAx4]

Hi all again

i have a database that many users add to. I need to record the name of the person who entered the record (for follow up purposes) which is done manually. Can I use the information recorded by access on first time use (name, initials etc) to auto stamp the record?

[NoellaG]

Hi,

try using the environ("username") function

kind regards
NG

[ranman256]

and set the DATE field to defaut value = NOW()

[BSJoJaMAx4]

Hi NoellaG - I have set up a text box with default value =environ("username") but it returns #Name?. Anything I have missed?

[CJ_London]

you can't use environ as a default values - you need assign it in the form before update event e.g. something like

me.user=environ("username")

or if you just want to see it in an unbound textbox, then put =environ("username") in the textbox controlsource

And to be pedantic, you should do the same for the timestamp

me.timestamp=now()

Why? because the default value is created when a new record is first created, but before it is saved. So if a new record is started at 1pm and before saving the user goes to lunch, has a meeting whatever before finally saving at 3pm, the timestamp will be 1pm, not 3pm. This may or may not matter for your purposes, but something to be aware of.

[BSJoJaMAx4]

Thanks for that.

I have created a new textbox unbounded on my main menu (just want to show a Welcome username message) and it shows #name? error message. Pasted

=Environ("username")

int he data > control source box.

On my record screen (where I want to record the record creater details) I have a new text box, in before update event I have

Private Sub Text149_BeforeUpdate(Cancel As Integer)Me.[CSQ Officer] = Environ("username")
End Sub

but its showing blank.

i know its going to be something simple but at this stage its not obvious.

[NoellaG]

Hi again,

I think the easiest solution for you is to create your own function in a general module:

Public Function GetUsername() As String
    GetUsername = Environ("username")
End Function

This function you can use to set the default value for your textbox:

= getUsername()
Just like you can use the buildin function.

success
NG

[BSJoJaMAx4]

Thanks all that worked a treat.