View Full Version : Time Stamp a Memo Field


mrssevans
11-15-2001, 08:01 AM
I am wanting to timestamp and userstamp a memo field each time before the user start typing in the field. It would Look like
***User***Date***Time***
I have tried to do this in a macro but it is faulty.
Does anyone have any suggestions?

donbettis
11-15-2001, 09:02 AM
As for the User Stamp... I am not sure what your login process is...

As for Date/Time I have a Note Field on several Forms... In the table the field Data/Type is set to text. On the AfterUpdate Event of the notes Field I do the Following... I apply the Date/Time after the note is written.

**** MY CODE ****
Private Sub Notes_AfterUpdate()

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

End Sub
**** END MY CODE ****

You should be able to add the following code to your OnEnter Event. This will add the date before anything is typed... I am not sure if it will work on a Memo Data Type Field, But it does work on a text field...

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

........

I actually use two buttons, Add New Notes & View All Notes. The Add Button opens a form to Add Notes. The View All Button opens the Notes Table in Datasheet View. Both Buttons run a query. The query has [Me]![ContactID] in the ContactID Criteria Field. This allows the query to open only notes for the Current Contact.

[This message has been edited by donbettis (edited 11-15-2001).]

mrssevans
11-15-2001, 10:23 AM
Don- since it is in a memo format will this still work?

donbettis
11-15-2001, 11:04 AM
It appears to work... It doesn't appear to be very clean though...