Enter Now() and Current User() at certain point in Notes

[mrssevans]

I am trying to enter this code and it works, but I am needing some code to make this enter at a certain point in the notes field. I need it to go to the beginning of the notes field because there are notes in the field already, enter:
Private Sub Notes_Entry_Click()
Me.Notes = Me.Notes & "***" & CurrentUser() & "***" & Now()
End Sub
and then put a space below it. Can anyone help?

 

[Jack Cowley]

Private Sub Notes_Entry_Click()
Me.Notes = "***" & CurrentUser() & "***" & Now() & Chr(13) & Chr(10) & Me.Notes
End Sub

 

[mrssevans]

Thanks, I am going to try that. Sorry for posting it in two different places. Won't do it again. Thanks again.

 

[Jack Cowley]

That is OK. Now you know. Hope that solves your problem...

 

[mrssevans]

It did, I think. I still doesn't add a new line after the user and now(). I don't know if maybe it didn't work on my system. What was the Chr's? (Sorry, just a begginer in VB) Was it supposed to add characters?

One more thing- can the cursor go to the new line after the time and user? Thanks

 

[Travis]

Private Sub Notes_Entry_Click()
Dim intStart as Integer

Me.Notes = "***" & CurrentUser() & "***" & Now() & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Me.Notes

intStart=Len("***" & CurrentUser() & "***" & Now() & Chr(13) & Chr(10) & Chr(13) & Chr(10))

'Sets the Cursors Starting Position
Me.Notes.SetFocus
Me.Notes.SelStart = intStart

End Sub

 

[mrssevans]

You're a genius. Thanks