Memo field line insert 1

[ronnies]

I would like to insert todays date and a blank line at the beginning of a memo data box by clicking a command button, while retaining the data already stored in the memo data box field. Any Help??

 

[jbehrne]

Hi,

This should do the trick:
Set this code to run on your command button's "on click" event: (change MemoName to match the name of your memo field)

Me!MemoName = Date & "-" & Time
Me!MemoName.SetFocus
me!tblnotes.SelStart = me!tblnotes.SelLength

HTH

jbehrne If at first you don't succeed, call in an airstrike. - Murphy's Laws of Combat Operations

 

[jbehrne]

Sorry,

I didn't read that you wanted to retain the previous notes, so try this:

Dim PrevtblNotes

PrevtblNotes = Me!MemoName

Me!MemoName = PrevtblNotes & Date & "-" & Time & vbCrLf
Me!MemoName.SetFocus
Me!MemoName.SelStart = me!tblnotes.SelLength

jbehrne If at first you don't succeed, call in an airstrike. - Murphy's Laws of Combat Operations

 

[ronnies]

Thanks!! With a little code modification, this preformed exactly as I desired

Thanks again!