need help with date/time stamp

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a memo field, which needs to have a date/time stamp appended to the
end of each line, when the enter key is pressed

ie: test line 1 <enter> 01:01:01 09/05/05
test line 2 <enter> 01:01:50 09/05/05

Help Please !
 
Hello,

I've scoured the m.p.a.forms and the whole of Access Newsgroups searching
for a "specific" solution to add a date/time to each new entry in a note
field. There are lots of answers to lots of Date and Time Stamp questions.

Can anyone help with this one (specifically):

Using Access 2003, I created the templated ContactManagement.mdb,

1. Is it possible to have the Notes field behave the way the notes/comments
fields do in ACT(and many other) where each note gets a Date/Time with it?
2. How is this done by simpleton non-programmers who just need to have the
date/time with each new (single-line or multi-line) note?

The goal is:

1. Click in the Notes field, and
2. All of the previous entries are pushed down one line, and
3. In the top/first line/row the current "Day, MMM--DD--YYYY: " appears, and
4. I enter a new note (on one or several lines as it wraps the text), and
5. That latest note is saved when I leave the Notes field for another field
or another contact record.

Subordinate questions:

1. How is it possible to do this such that if I leave the Notes field (click
in another field) and then click back into the Notes filed, the above repeats?
2. Can this happen on a web page version of this?

Thank you in advance for your expert answers to this request.

Chris
 
Thank you for the response Arvin,

Where do I put that code? Somewhere in the Field, Properties?
 
Add a command button and then double=click on the Click event. You will see
[Event Procedure] appear in the box. Then click on the ellipses (...) at the
end of the box and a code window will open up with a stub filled in for the
command button procedure. Add the line of code:

Me.txtMyMemo = Me.txtMyMemo & vbCrLf & Now()

substituting your names, then compile and save and you're done.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
 
Back
Top