Increasing Text Number

[arv1980]

Hi,

I have 45 text boxes on my form, I want to check each text box for all the alphabets. So I decided to make a loop in this way

n=1
do until n=45
If textn.text = "A" then
condition
end if
n=n+1
loop
but the problem is how the n of textn.text should b assigned value of n.

plz help

Thanking you,


arv1980

[jayakumar]

hi,.

first take array of text boxes and use this loop

n=1
do until n=45
If text(n).text = "A" then
condition
end if
n=n+1
loop

[Bruce Fox]

This may help if you want to add more TextBoxes (no need to change the code):

Option Explicit
 
Private Sub Form_Load()
Dim n As Integer
 
For n = 1 To Text1.Count
   If Text1(n).Text = "A" Then
      ' Your condition code here
   End If
Next
 
End Sub

Generaly tho, Control Arrays start at 0(index). If so use:

Option Explicit
 
Private Sub Form_Load()
Dim n As Integer
 
For n = [b]0 To Text1.Count - 1[/b]
   If Text1(n).Text = "A" Then
      ' Your condition code here
   End If
Next
 
End Sub

And...... To speed things up slightly, evaluate the TextBox count once, like:

Option Explicit
 
Private Sub Form_Load()
Dim n As Integer, tcnt As Integer
 
[b]tcnt = Text1.Count - 1[/b]
 
For n = 0 To tcnt
   If Text1(n).Text = "A" Then
      ' Your condition code here
   End If
Next
 
End Sub

[arv1980]

hi

count doesn't works. it just gives error "count" property not defined.

thanks

[Vitani]

Are you using a load of text boxed named (eg) TextBox1, TextBox2, TextBox3, etc... or a Control array where all the textboxes have the same name (eg TextBox) but all have a unique index which diferetiates betwee them all?

The latter is the better method

[techgnome]

Originally posted by arv1980
hi

count doesn't works. it just gives error "count" property not defined.

thanks

It works for me..... do all of your text boxes have the same name? (IE, is the control array set up correctly?)

[arv1980]

I m using different text boxes. like text1, text2...... But how about if i use one text box & then compare each character of the text.

[MartinLiss]

Dim ctl As Control
    
    For Each ctl In Controls
        If TypeOf ctl Is TextBox Then
            If ctl.Text = "A" Then
                ' condition
            End If
        End If
    Next

[arv1980]

hi,

Thanks everyone, but Martin even that doesn't works. It shows ctl as "".

[MartinLiss]

Yes. If you just look at ctl it will be "", but put a breakpoint on the If ctl.Text = "A" Then line you will see that ctl.Text has a value equal to whatever is in the textbox. You can also go to the Immediate screen and type ?ctl.Name and it will display the name of the textbox.

[Tequila_worm]

Originally posted by MartinLiss

Dim ctl As Control
    
    For Each ctl In Controls
        If TypeOf ctl Is TextBox Then
            If ctl.Text = "A" Then
                ' condition
            End If
        End If
    Next

This should work for you make sure you are using the right way.
Get some more info about it on Google.com or search the MSDN Website for more info on For Each Control

[da_silvy]

I want to check each text box for all the alphabets.

It seems as though you're only checking for "A"?

[arv1980]

no it doesn't works. any other option.

[MartinLiss]

Please post your code that you say doesn't work, because it will if it's done correctly.