User Name in a text box

[PJ]

I have the following code in a memo text field:

Private Sub txtNotesOnTransaction_BeforeUpdate(Cancel As Integer)
Debug.Print "User: " & CurrentUser() & " " & Me!txtNotesOnTransaction
End Sub

I want the current user entering data user name to fill in before typing any
other data.

It is not working any suggestions?

Thanks!!

 

[Douglas J. Steele]

What does "not working:" mean in this context?

Are you getting an error? If so, what's the error? If you're not getting an
error, what are you getting (and what do you want to get instead)?

 

[Daryl S]

PJ -

Use the On Enter method instead of the On Update method, and put in code
like this:

If isnull(Me!txtNotesOnTransaction) Then
Me!txtNotesOnTransaction = CurrentUser()
End If

 

[PJ]

Thank Daryl, It worked can a date be added after the user name? If so, how
would that look.

Thanks again!!

 

[PieterLinden via AccessMonster.com]

Thank Daryl, It worked can a date be added after the user name? If so, how
would that look.

Thanks again!!

PJ -

[quoted text clipped - 17 lines]

If isnull(Me!txtNotesOnTransaction) Then
Me!txtNotesOnTransaction = CurrentUser() & " " & Now()
End If

 

[Daryl S]

PJ -

If you want the date and time, do as Pieter indicated - add this: & " " &
Now()

If you just want the date, add this: & " " & Date()