Data dose not come to TextBox1 unless write a letter and delete it.

[SAMI2]

Hi All

Private Sub TextBox1_AfterUpdate()
Me.TextBox1 = Me.TextBox2 + Me.TextBox3 + Me.TextBox4

all data in TextBox2, TextBox3 and TextBox4 coming into TextBox1

My problem,
Data dose not come to TextBox1 unless write a letter and delete it.

thanks

[Allan Murphy]

What are you trying to do?

Are you trying to add the values of TextBox2, TextBox3, and TextBox4 to Text Box 1 after you enter a value to TextBox1?

Try using the LostFocus event in lieu AfterUpdate.

[SAMI2]

Hi Allan Murphy

I need all text which I wrote in TextBox2, TextBox3, and TextBox4 directly copying the text in the TextBox1.
It is oK they come in TextBox1 but not coming without write a letter in TextBox1 then delete it.

[Allan Murphy]

SAMI2

Try the following code. Using the AfterUpdate of your TextBoxes 2,3 and 4 enter the relevant code.

The procedure update_TextBox1 is used the concatenate (joins) the three fields to give you TextBox1 and eliminates the need to repeat the same code for the 3 TextBoxes. PUt this procedure at the end of your codeing.


Private Sub TextBox2_AfterUpdate()
update_TextBox1
End Sub

Private Sub TextBox3_AfterUpdate()
update_TextBox1
End Sub
Private Sub TextBox4_AfterUpdate()
update_TextBox1

End Sub

Sub update_TextBox1()
Me!textbox1 = Me!textbox2 & Me!textbox3 & Me!textbox4

End Sub

[SAMI2]

HI Allan Murphy

Thank you so much for the help! I really appreciate it