Thanks John,
I'll make do with
Private Sub Notes_AfterUpdate()
Me.Notes = Me.Notes & " " & Now() & " "
End Sub
I will only be adding notes to my notes field 3 or 4 times max in my two sub
forms so scrolling wont be a problem. I already have calls log table which
will be be my main notes records also as a sub form.
Many thanks
Allan
John Vinson wrote:
I'm sorry Douglas I have explained exactly what I would like to do right from
the very start and I will repeat :
[quoted text clipped - 6 lines]
answer various people who have tried to help and I appreciate all the help
and advice given so far.
Have you *intentionally rejected* the normalized solution, using a
Notes table related one to many to this table? This could have a
date/time field defaulting to Now(), a foreign key to your main table,
and a Text or Memo field for the note; you could display it in reverse
chronological order in a subform/subreport; you could much more easily
search for a note based on a date/time range or vice versa. Having all
of the notes and dates jammed together in a single memo field makes it
much harder to search, especially if you want to associate a note with
its date!
If you REALLY want it this way anyhow, you'll need to update the field
in VBA code; e.g. have two textboxes, txtMemo bound to the memo field
and txtNewNote, unbound. In your code you could use
Private Sub txtNewNote_AfterUpdate()
Dim strNew As String
strNew = GetUserID & " - " & Format(Now, "mm-dd-yyyy hh:nn") & vbCrLf
strNew = strNew & Me!txtNewNote & vbCrLf
strNew = strNew & Me!txtMemo
Me!txtMemo = strNew
End Sub
John W. Vinson[MVP]
--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...forms/200611/1