Textbox

[andrnet2004]

Hi Guy

i got a textbox contain the some value with comma(1,25,85,47,32,48)

And i want to take that value and place in their correct textbox ex

1 will go into txtbox1
25 will go into txtbox25
32 will go into txtbox32
47 will go into txtbox47
48 will go into txtbox48

and so one

How can i make a loop that does that?

Thank You

[gavio]

Dim tmp() As String
    tmp=Split([B]yourOriginalTextBox[/B].Text,",")
        txtbox1.Text=tmp(0)
        txtbox25.Text=tmp(1)
        txtbox32.Text=tmp(2)
        txtbox47.Text=tmp(3)
        txtbox48.Text=tmp(4)

Rename yourOriginalTextBox with yours

[westconn1]

you have 99 textboxes, to cover all values?

[bushmobile]

or in a loop:

Dim sParts() As String, N As Long
sParts = Split(yourOriginalTextBox.Text, ",")
 
For N = 0 To UBound(sParts)
    Me.Controls("Text" & sParts(N)).Text = sParts(N)
Next N

all seems a bit pointless though - there's probably much better ways of achieving whatever it is you're trying to do.

[andrnet2004]

Hi guy look good but one problem is there a number in the text --99 (1,25,85,47,32,48,99)

and there not a textbox to put 99 i need it to tell (msgbox) that 99 is wrong.

what i am trying to do is the the (1,25,85,47,32,48) and make sure it contain all the require number and do not consit of anyother value or any short value.

Thank You so far on what u did for me.So can you please check that out for me.