[RESOLVED] checkboxes

[merhaba]

Hi,
I used an array of checkboxes.as in the example below

for i=0 to 10
check1(i).value=1
next

and I want to get a message to know that all checkboxes are checked
There is no check.count so how do you do it ?
**My same question is true for textboxes..I want to get a message when all textboxes in the array are filled with a text..

thanks..

[Hack]

Dim i As Long
   For i = 0 To 10
     If Check(i).Value <> vbChecked Then
        MsgBox Check1(i) & (i) & " is not checked"
     End If
Next

[merhaba]

Thanks..Hack
What about textboxes ? if any of the textboxes in the array are empty..

Dim i As Long
   For i = 0 To 10
     If text1(i).text="" Then
        MsgBox text1(i) & (i) & " is empty"
     End If
Next

does this work ?

[Static]

did u try it?

(it should )

[merhaba]

No I havent tried it yet...But one thing I want to know..what Hack has given is useful when any of the checkboxes is empty..But what I am really after is ,after I answered(checked) all of the questions ,I want to get a message "well done you did a good job"
hope it is clear enough..

[Besoup]

Dim i As Long
Dim bChecked as Boolean
 
bChecked = True
   For i = 0 To 10
     If Check(i).Value <> vbChecked Then
        MsgBox Check1(i) & (i) & " is not checked"
        bChecked = False
     End If
   Next
If bChecked Then
    MsgBox "All Checked"
End If

[merhaba]

Thanks everybody..it is done.

[Static]

use the click event of the check box to loop them

Private Sub Check1_Click(Index As Integer)
    For x = 0 To Check1.UBound
        If Check1(x).Value <> vbChecked Then Exit Sub
    Next
    MsgBox "all Checked"
End Sub

[merhaba]

Oh yes yours is better..
Thanks Static