Apply a date and blank lines automatically to the top of a memo fi

[Guest]

I have a memo field on a form in which users will always add new info on top
of existing data/notes. Upon entering the field (either by tabbing or
clicking), they would like to:

1. insert the current date automatically at the beginning of the existing
field contents (without overwriting what's already there)
2. insert a couple of blank lines (vbCR?)
3. move cursor to the top of the field contents and to the right of the
date, so they can start typing their latest comments.

Is this possible? If so, what recommendations can you give me? Which field
event would I use; On Enter, On Got Focus or something else?

 

[Marshall Barton]

I have a memo field on a form in which users will always add new info on top
of existing data/notes. Upon entering the field (either by tabbing or
clicking), they would like to:

1. insert the current date automatically at the beginning of the existing
field contents (without overwriting what's already there)
2. insert a couple of blank lines (vbCR?)
3. move cursor to the top of the field contents and to the right of the
date, so they can start typing their latest comments.

Is this possible? If so, what recommendations can you give me? Which field
event would I use; On Enter, On Got Focus or something else?

Play around with this kind of idea:

Sub textbox_GotFocus()
Me.textbox = Format(Date, "d mmm, yyyy") & vbCrLf _
& vbCrLf & Me.textbox
Me.SelStart = 12 'length of date string
End Sub

But, I think I would not allow the user to tab or click into
the textbox. If they can then you will get many entries
with just the same date. Perhaps you should have a separate
button to enable the textbox and set the focus to it???

 

[Guest]

I see your point. I'll ask them if they'd like that type of querying
capability on their notes. Thanks for the suggestion.

 

[Guest]

Thanks for the suggestion. I'm going to give it a try and let you know how
it goes!

 

[Guest]

That did it beautifully!