Textbox issue

[john55]

Hi guys,

I've tried to solve a problem with my TextBox but without success.
for example, I want to change this text "RRR-YYY-PPP" with this one
"RRR-KKK-PPP", when I start to type after the first letter "K" the cursor jumps at the end of text. I come back and I type the second letter...and then it jumps again.
I just want to type the whole word, i.e "KKK"
the reason is this, if I remove UCase is ok, but I want to have Ucase!

Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text) 'route
Me.Label29 = TextBox1.Value
End Sub

How can I avoid this?!

Thank you!

[DGagnon]

Give this a shot:

Private Sub TextBox1_AfterUpdate()
TextBox1.Text = UCase(TextBox1.Text) 'route
Me.Label29 = TextBox1.Value
End Sub

[john55]

hi DGagnon,
Thank you very much for your help!