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