Memo Field Cursor Positioning Problem

[robboll]

I use this code to date stamp a memo field:

Me.Notes = Notes & vbCrLf & vbCrLf & "=============== Added by " & Me!
txtSTATION & " on " & _
Now() & " ===============" & vbCrLf & vbCrLf & " "

Me.Notes is the textbox

And the code is: Copying everything in Notes, moving down to rows
(vbCrLf & vbCrLf), adding the first segment of the new line
"=============== Added by ", Stamping in the Station owner
"=============== Added by " & Me!txtSTATION, Adding the date stamp "
on " & Now() & " ===============" and then moving down two more rows.

This actually works great with user mouse clicks until it fills the
screen. The problem is when I am at the end of the text and go to a
new line to add, it puts in the stamp as expected, but it highlights
everything and goes to the top of the first entry.

So the problem is: When adding a date stamp, what code can be applied
that puts the cursor after the last line of text (without highlighting
everything)? Any suggestions greatly appreciated!

RBolling

 

[robboll]

If there isn't a reasonable solution to this there might be a better
solution than using dataestamps. Maybe a subform with a new memo
record for each entry? The datestamp at the beginning of each.

 

[Jeanette Cunningham]

Use a separate field to record the datestamp, if you want to record the name
of the person creating the note, use a separate field for the name as well.
It is easier for data entry, it is easier for queries.

Jeanette Cunningham