Auto fill a text box with header data

[AkAlan via AccessMonster.com]

I have 3text boxes on form that users can edit to add comments every day
until the record is closed out. I am useing the ntext type now but that might
be overkill. I would never expect more that about a full page or two of text
for any one record. Regardless I have coded the double click event of the
text box to open the text field into a full form so they can read the entire
text box. What I would like is to code a button for adding text that would
open the form and add text like "4 Nov 08 Comments:" to a new line so there
would be some consistancy. I'm not looking to add three subforms that each
have a record for every comment added, I have thought of that and it would be
a solution but would not like to have to do a complete redesign of the
database. Thanks for any help.

 

[Arvin Meyer [MVP]]

Try something like:

Private Sub cmdAddDate_Click()
Me.txtMyText = Me.txtMyText & vbCrLf & _
Format(Date, "Medium Date") & " - Comments: "
End Sub

 

[AkAlan via AccessMonster.com]

Great answer, Thanks!

Try something like:

Private Sub cmdAddDate_Click()
Me.txtMyText = Me.txtMyText & vbCrLf & _
Format(Date, "Medium Date") & " - Comments: "
End Sub

I have 3text boxes on form that users can edit to add comments every day
until the record is closed out. I am useing the ntext type now but that

[quoted text clipped - 12 lines]

a solution but would not like to have to do a complete redesign of the
database. Thanks for any help.