User Name in a text box

  • Thread starter Thread starter PJ
  • Start date Start date
P

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!!
 
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)?
 
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
 
Thank Daryl, It worked can a date be added after the user name? If so, how
would that look.

Thanks again!!
 
PJ -

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

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