Thanks AccessBlaster but that doesn't really help me.
I have a Memo field called Notes that can hold a few lines of text I need it to do the following:
1. Copy all of the current contents (this works)
2. Paste all of the contents inserting a new line of text at the top (this works)
3. Put today's date and time plus the staff initials on that new top line (this works)
4. Place the cursor at the end of the first line - ready to type appending text to the end of the top line but above any earlier lines (this does not work) the code above puts the cursor at the very end of all lines of text in the memo box.
This second attempt kinda works (but only if steps 1, 2 and 3 creates exactly the right number of characters) the problem is that the number varies.
Private Sub Command59_Click()
Me.Note = Format(Now, "d mmm yyyy hh:nn") & " - " & "(" & DLookup("[login]", "logintable") & ") " & Chr(13) & Chr(10) & Me.Note
Me.Note.SelStart = 25
Me.Note.SelLength = 0
I guess I could do with a way of counting the number of characters created in steps 1, 2 and 3.
Or maybe a way of counting the number of characters up to the first line break?