click label -> append text to texbox

[cnstarz]

I have a label and a textbox. i would like to be able to click the label and append specific text to the textbox. so, if there is text already there, i would like it to add the text to the end of the textbox instead of replacing the entire content of the text box.

i know how to make it insert text into the box, but not without replacing the entire content of the box.

any ideas? thanks!

[apr pillai]

Text Source from where, another textbox?

If from another textbox then try the following example as a guide:

Private Sub Label21_Click()
Dim t

t = Nz(Me![Text19], "") ' Target textbox
t = t & " " & Me![LastName] ' Source Textbox

Me![Text19] = t

End Sub

[cnstarz]

Ah, should've been more specific. I want the text to be the same text as the label that's being clicked. If the label says, "Meow", then i would like "Meow" to be appended to the end of the textbox.

[nicknameoscar]

Me.Textbox = Me.Textbox.text & Me.Textbox_Label.Caption

or it could be:

Me.Textbox = Me.Textbox & Me.Textbox_Label.Caption

or it could be:

Me.Textbox = Me.Textbox.Value & Me.Textbox_Label.Caption

or you may have to use:

Me.Textbox.Text = (one of the above)

[cnstarz]

Me.Textbox = Me.Textbox & Me.Textbox_Label.Caption

it be this one. thanks!

[nicknameoscar]

Glad to help. Sorry for the multiple choice. Without knowing specifics of how you are doing things I wanted to cover all the bases .