Me.Notes = Now() & " " & Me.Notes

will put the current date/time stamp at the beginning of your notes field.

However, from what you're saying, that's not what you want.

I think Tank probably came closest to what you want with the suggestion of
having two text box: one unbound, and one bound to your Notes field.
Whenever you type something into the unbound text box and then move to
another text box, the code Tank gave you will put the current date/time and
whatever you typed into the unbound text box at the top of the bound text
box. There are some potential errors in that code, but since you didn't
indicate what line generates the syntax error, we can only guess. I wouldn't
bother with the DoCmd.GoToControl instruction, and I'd use vbCrLf rather
than vbNewLine. I'd also put a new line between the comment you just added
and the rest of the text in Notes.

Private Sub CommentUnbound_AfterUpdate()

Me.Notes = Format(Now(), "d-mmm-yy hh:nn ") & _
Me.CommentUnbound &vbCrLf & Me.Notes

Me.CommentUnbound = vbNullString

End Sub


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"arogers via AccessMonster.com" u29179@uwe wrote in message
news:69d5935529f8b@uwe...
I'm sorry Douglas I have explained exactly what I would like to do right
from
the very start and I will repeat :
( arogers - 11-17-2006 21:22 )

How can I add a current Date/Time stamp to my Notes field (Memo) each time
I
add data to the field and ensure the most recent Date/Time is always at
the
top of the field. (Access 97) ) I dont think it could be any more basic
than
that! and I think you will see from the threads that I have (Bothered) to
answer various people who have tried to help and I appreciate all the help
and advice given so far.

Allan

Douglas J. Steele wrote:
Various people in this thread have asked you to explain exactly what it is
you want, and you haven't bothered to answer any of them.

If you can't provide basic information about what it is you're trying to
do,
it's extremely difficult for any of us to help!

Private Sub Notes_AfterUpdate()
Me.Notes = Me.Notes & " " & Now() & " "
[quoted text clipped - 18 lines]

Allan

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...forms/200611/1