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...