Hi,

I have a comment box named "Task_Update" were I have created some code
to add the user name and date to any text entered.

I would like just the auto text "Updated" and the Date to be black
text, but all manual text entered to be in red.

Can it be done? Everything I try colours the whole text in one colour.

Private Sub Task_Update_AfterUpdate()
Me.Task_Update = Me.Task_Update & " Updated: " & Date & " " & "By:" &
" " & Me.Nstamp2.Value & Chr(13) & Chr(10)
Chr (10) & Chr(13)
End Sub

Bartman

The only way to be able to do it would be to use RTF (Rich Text Format)

You can download a free RTF control from Stephen Lebans at
http://www.lebans.com/richtext.htm

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"Bartman" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi,
>
> I have a comment box named "Task_Update" were I have created some code
> to add the user name and date to any text entered.
>
> I would like just the auto text "Updated" and the Date to be black
> text, but all manual text entered to be in red.
>
> Can it be done? Everything I try colours the whole text in one colour.
>
> Private Sub Task_Update_AfterUpdate()
> Me.Task_Update = Me.Task_Update & " Updated: " & Date & " " & "By:" &
> " " & Me.Nstamp2.Value & Chr(13) & Chr(10)
> Chr (10) & Chr(13)
> End Sub
>
> Bartman
>

Thanks Douglas!

Bartman


Douglas J. Steele wrote:
> The only way to be able to do it would be to use RTF (Rich Text Format)
>
> You can download a free RTF control from Stephen Lebans at
> http://www.lebans.com/richtext.htm
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no e-mails, please!)
>
>
> "Bartman" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > Hi,
> >
> > I have a comment box named "Task_Update" were I have created some code
> > to add the user name and date to any text entered.
> >
> > I would like just the auto text "Updated" and the Date to be black
> > text, but all manual text entered to be in red.
> >
> > Can it be done? Everything I try colours the whole text in one colour.
> >
> > Private Sub Task_Update_AfterUpdate()
> > Me.Task_Update = Me.Task_Update & " Updated: " & Date & " " & "By:" &
> > " " & Me.Nstamp2.Value & Chr(13) & Chr(10)
> > Chr (10) & Chr(13)
> > End Sub
> >
> > Bartman
> >