Populating a text box using a form button

[robsonma]

Hi,
So I have a form with a Number of Text box's,


Text box 1 is where a user can type a location "We will call this TEXT-BOX A"
At the bottom of my form I have another text box with some buttons next to it "I will call this TEXT BOX B", if the user clicks the buttons a paragraph of text is placed in Text Box B.
All working with this code,

Private Sub direct_Click()funeralnotes.SetFocus
funeralnotes.Text = "The hearse will proceed from our Chapel of Rest direct to,"
End Sub

What I want to do is add the location to the end of that paragraph, ie "the hearse will proceed from our Chapel of Rest direct to,[WHAT EVER IS IN TEXT BOX A]"
Can this be done?
Screenshot of my form,

Any help would be great,
Cheers
Mark

[pbaldy]

Sure:

Me.funeralnotes= "The hearse will proceed from our Chapel of Rest direct to," & Me.TextboxName

By the way, you only need the SetFocus line because you used the .Text property of the textbox. The line above will work without it.

[robsonma]

Spot on, Many thanks Works a treat

[pbaldy]

Happy to help and welcome to the site by the way!

[robsonma]

Is there a way to add more to this, ie,

 Me.funeralnotes= "The hearse and [CARS] will proceed from our Chapel of Rest direct to," & Me.TextboxName

I have tried

Me.funeralnotes= "The hearse and & Me.Cars will proceed from our Chapel of Rest direct to," & Me.location

but this does not work, I have also tried

Me.funeralnotes= "The hearse and" & Me.Cars "will proceed from our Chapel of Rest direct to," & Me.location

again no luck

[Bob Fitz]

Try:

Me.funeralnotes= "The hearse and " & Me.Cars & " will proceed from our Chapel of Rest direct to," & Me.location

[robsonma]

Hi Many thanks, Nope that came up with a error.

[Bob Fitz]

What is "Me.Cars" that you said you had tried

[robsonma]

ME.Cars is a List box so you can select 1 Car or 2 Cars ect,

[Bob Fitz]

What do you have as the Row Source property and the Row Source Type property of the combo box

[robsonma]

I hope this helps

[Bob Fitz]

Hi Many thanks, Nope that came up with a error.

What was the error

[robsonma]

My Mistake, Just checked the code and I had a mistake It does work, thank you so Much you have been very helpfull.

[Bob Fitz]

My Mistake, Just checked the code and I had a mistake It does work, thank you so Much you have been very helpfull.

Glad you got it working.
Thank you for your kind words