Access 2010 Memo Field, add new entry on top

[accote]

Hello All and thank you for any advice you can give me to get this to work.

I have an unbound field called txtMemoAdd
and a Memo field called Notes
What I like to do is for the text entered into the Text Box (txtMemoAdd) to
add any new entries at the top in the Memo field (Notes)

I have a code for the txtMemoAdd field which will enter the date and a blank line after
update, but I can not figure out how to get the new entries to be on top.



Please note that my memo field is in rich text so not every code will work.

Code I have now:

Private Sub txtMemoAdd_AfterUpdate()
Me.Notes = Me.Notes & Now() & Me.txtMemoAdd & "<BR>"
Me.txtMemoAdd = ""
End Sub

Which looks like this in the memo field:

09/23/2012 3:28:39 PM

First New Note


09/23/2012 3:28:53 PM
Another New Note


09/23/2012 3:29:11 PM
Last New Note


How do I get it to have the last entry "Last New Note" to show on top?

Thanks

accote

[pbaldy]

Just change the order of items in the concatenation.

I deleted your other thread; please don't post the same question twice.

[accote]

Sorry, didn't mean to post it twice, don't know how that happened.

I'm not sure what you mean by "the order of items in the concatenation" where would I find that?

Thank You

Just change the order of items in the concatenation.

I deleted your other thread; please don't post the same question twice.

[pbaldy]

I mean here:

Me.Notes = Me.Notes & Now() & Me.txtMemoAdd & "<BR>"

[accote]

Thanks for the follow up, I may not have explained right, I don't want to group or combine the entries.
I like to have any new entries be at the top of the list. The way I have my code now is perfect it just
doesn't order them, so as notes get entered the old ones are always on top, and if there are a lot of
entries one would have to scroll to the bottom to read the last entry made.
Hope that makes sense. Basically I'd like to order them by newest on top, but because it is a memo
field there is no option for that.
I was hoping there is some code that I could add to mine to accomplish that.

I mean here:

Me.Notes = Me.Notes & Now() & Me.txtMemoAdd & "<BR>"

[pbaldy]

This:

Me.Notes = Me.Notes & Now() & Me.txtMemoAdd & "<BR>"

Says "take the existing note and add the current date/time and this new memo info to it. Don't you think that reversing that to

Me.Notes = Now() & Me.txtMemoAdd & "<BR>" & Me.Notes

would accomplish what you're asking?

[accote]

Thank you very, very much, this does work.
I've been messing with this all day, still kind of new at this, you're a live saver.

Thanks again

This:

Me.Notes = Me.Notes & Now() & Me.txtMemoAdd & "<BR>"

Says "take the existing note and add the current date/time and this new memo info to it. Don't you think that reversing that to

Me.Notes = Now() & Me.txtMemoAdd & "<BR>" & Me.Notes

would accomplish what you're asking?

[pbaldy]

No problem.