Need help updating code for user ID

[NikoTheBowHunter]

I would like to update the following to include the users ID but as I have no coding experience, not sure how that would be done.

Private Sub Notes_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not IsNull(Text138) Then
Me.[Notes History] = Format(Date, "mm/dd/yyyy") & " | " & Me.Text138 & "<BR>" & Me.[Notes History]
Me.Text138 = Null
End If
End Sub

I would like the UserID to come at the end of the notes entered. I'm guessing something would be added after the & and before the break "<BR>" but not sure what. any help that can be offered would be much appreciated.

cheers,
niko

[ranman256]

vUserID = Environ("Username")

[NikoTheBowHunter]

Maybe I'm putting the above in my code wrong as now it wants to erase all the notes I had and nothing is added.

Private Sub Notes_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not IsNull(Text138) Then
Me.[Notes History] = Format(Date, "mm/dd/yyyy") & "   |   " & Me.Text138 & vUserID = Environ("Username") & "<BR>" & Me.[Notes History]
Me.Text138 = Null
End If
End Sub

[Bob Fitz]

Perhaps:

Private Sub Notes_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Not IsNull(Text138) Then
Me.[Notes History] = Format(Date, "mm/dd/yyyy") & "   |   " & Me.Text138 & " " & Environ("Username") & "<BR>" & Me.[Notes History]
Me.Text138 = Null
End If End Sub

[NikoTheBowHunter]

It works! thanks so much Bob!!!