VBA code to display date at the start of field.

[virencm]

Hi Guys,

I need help with VBA code for this one please.

I have a button above a memo field. on click event of this button I need the cursor to go the the start of the memo field and hit enter so that the user can append comments at the start of the field

The code i have come up with so far is below:

me.comments.setfocus
me.comments.selstart =0
me.comments.value = me.comments .value & vbnewline & left(Date,5) & " - "

The above code is supposed to start at position 0 of the comment box, hit enter and display a date so the user can start typing a note.

Instead the code finds the last word in the comments box, hits enter and displays date at the end.

Can someone please help with the code to display the date at position 0?

Hope this makes sense.

Thanks
V

[Bob Fitz]

Perhaps:
me.comments = left(Date,5) & " - " & vbnewline & me.comments

[Micron]

Or you have the equation backwards?
me.comments = vbnewline & left(Date,5) & " - " & me.comments

[orange]

If you are planning to have multiple comments within this memo field -each with its own date - then, I suggest you consider a separate table for comments. This will make it much easier to sort and report. I've seen many people use the memo field concatenation approach and simulate a table; then have issues with sorting etc. Often saying, yes - it should have been a real table.
Good luck with your project.

[virencm]

Thank you all.

Micron, Your suggestion worked. I had the equation backwards.

Many Thanks

[Micron]

FWIW I agree with orange. Mash all the comments together and you'll probably be back asking how to report by date. Each comment should be treated like a record, because that's what it is.

Otherwise, glad I could help.