Reconocer CheckBoxes

[davchi]

Hola a todos:
Con unas variables habilito (enabled = True / False) segun el Numero 0 o 1

Código:

Private Sub c1_Change(Index As Integer)
    If Val(c1(1)) <> 0 Or Val(c1(2)) <> 0 Or Val(c1(3)) <> 0 Or Val(c1(4)) <> 0 Or Val(c1(5)) <> 0 Then
        chkDoc(1).Enabled = True
    Else
        chkDoc(1).Enabled = False
    End If
End Sub
Private Sub c2_Change(Index As Integer)
    If Val(c2(1)) <> 0 Or Val(c2(2)) <> 0 Or Val(c2(3)) <> 0 Or Val(c2(4)) <> 0 Or Val(c2(5)) <> 0 Then
        chkDoc(2).Enabled = True
    Else
        chkDoc(2).Enabled = False
    End If
End Sub
Private Sub c3_Change(Index As Integer)
    If Val(c3(1)) <> 0 Or Val(c3(2)) <> 0 Or Val(c3(3)) <> 0 Or Val(c3(4)) <> 0 Or Val(c3(5)) <> 0 Then
        chkDoc(3).Enabled = True
    Else
        chkDoc(3).Enabled = False
    End If
End Sub

Lo que hago es recibir un 1 o un 0 de cada uno de los textboxes :
c1(1), c2(1), c3(1)
c1(2), c2(2), c2(2)
c2(3), c3(3), c3(3)
c3(4), c4(4), c4(4)
c4(5), c5(5), c5(5)

Hasta aqui todo perfecto

Con esto lo que hago es poner en visible 3 CheckBox
chkDoc(1), chkDoc(2), chkDoc(3)

y dependiendo de la cantidad de CheckBox habilitados y Tildados voy a pasarle un valor (1 o 0) a un TextDocumentacion.Text

Asi lo estoy haciendo:

Código:

Private Sub chkDoc_Click(Index As Integer)
    If chkDoc(1).Enabled = True And chkDoc(1).Value = 1 Then
        TextDocumentacion.Text = 1
        chkDoc(1).Value = 1
    Else
        TextDocumentacion.Text = 0
        chkDoc(1).Value = 0
    End If
    If chkDoc(2).Enabled = True And chkDoc(2).Value = 1 Then
        TextDocumentacion.Text = 1
        chkDoc(2).Value = 1
    Else
        TextDocumentacion.Text = 0
        chkDoc(2).Value = 0
    End If
    If chkDoc(3).Enabled = True And chkDoc(3).Value = 1 Then
        TextDocumentacion.Text = 1
        chkDoc(3).Value = 1
    Else
        TextDocumentacion.Text = 0
        chkDoc(3).Value = 0
    End If
End Sub

Pero el problema es que si estan habilitados los 3 checkbox y solo tildo el tercero, ya me pasa el valor 1 a TextDocumentacion.Text, y yo quiero que le pase el valor 1 si estan tildado los 3 o los 2 o 1, segun esten habilitados los chekbox

Desde ya muchas gracias a todos

[fesero]

El problema que tenes es porque no esta bien encarado... los condicionales que pusiste (los IFs) estan trabajando independientemente uno del otro, es decir, el VB "razona primero If chkDoc(1).Enabled = True And chkDoc(1).Value = 1 Then y ejecuta, dependiendo del resultado. Luego, "razona" el siguiente If If chkDoc(2).Enabled = True And chkDoc(2).Value = 1 Then, y asi sucesivamente...

Lo que tienes que hacer es o encarar de otra forma, con otras sentencias, o hacer condicionales anidados... este ultimo es sencillo de probar, pero a la vez es engorrioso ya que para cada cosa que quieras verificar, seran mas y mas condicionales...

[fesero]

algo sencillo que se me ocurre podria ser (sin colocar if anidados), colocando una variable a cada check y luego verificarla..

[pkj]

Prueba asi:

Código vb:

Private Sub chkDoc_Click(Index As Integer)
    CompruebaChecks
End Sub
 
Private Sub CompruebaChecks()
    TextDocumentacion.Text="0"
    If chkDoc(1).Enabled = True And chkDoc(1).Value = 1 Then
        TextDocumentacion.Text = "1"
    End If
    If chkDoc(2).Enabled = True And chkDoc(2).Value = 1 Then
        TextDocumentacion.Text = "1"
    End If
    If chkDoc(3).Enabled = True And chkDoc(3).Value = 1 Then
        TextDocumentacion.Text = "1"
    End If
 
    If chkDoc(1).Enabled = True And chkDoc(1).Value = 0 Then
        TextDocumentacion.Text = "0"
    End If
    If chkDoc(2).Enabled = True And chkDoc(2).Value = 0 Then
        TextDocumentacion.Text = "0"
    End If
    If chkDoc(3).Enabled = True And chkDoc(3).Value = 0 Then
        TextDocumentacion.Text = "0"
    End If
End Sub
 
Private Sub c1_Change(Index As Integer)
    If Val(c1(1)) <> 0 Or Val(c1(2)) <> 0 Or Val(c1(3)) <> 0 Or Val(c1(4)) <> 0 Or Val(c1(5)) <> 0 Then
        chkDoc(1).Enabled = True
    Else
        chkDoc(1).Enabled = False
    End If
    CompruebaChecks
End Sub
 
Private Sub c2_Change(Index As Integer)
    If Val(c2(1)) <> 0 Or Val(c2(2)) <> 0 Or Val(c2(3)) <> 0 Or Val(c2(4)) <> 0 Or Val(c2(5)) <> 0 Then
        chkDoc(2).Enabled = True
    Else
        chkDoc(2).Enabled = False
    End If
    CompruebaChecks
End Sub
 
Private Sub c3_Change(Index As Integer)
    If Val(c3(1)) <> 0 Or Val(c3(2)) <> 0 Or Val(c3(3)) <> 0 Or Val(c3(4)) <> 0 Or Val(c3(5)) <> 0 Then
        chkDoc(3).Enabled = True
    Else
        chkDoc(3).Enabled = False
    End If
    CompruebaChecks
End Sub