matriz checks boxs

[jose58]

buenos dias a todos tengo un problemita con una matriz check box yo realice esa matriz con le fin de realizar una suma la programacion la hice haci

Dim X As Integer
Dim Resultado As Long
Resultado = 0
For X = 0 To 29
If Check1(X).Value = 1 Then
Resultado = Resultado + Val(Check1(X).Tag)
End If
Next X
Text1.Text = Resultado

pero lo que deseo de esto es como hago para que me arroje un msgbox si no seleccino todas las casillas, yo lo hice asi


Dim X As Integer
Dim Resultado As Long
Resultado = 0
For X = 0 To 29
If Check1(X).Value = 1 Then
Resultado = Resultado + Val(Check1(X).Tag)
else
msgbox ("debe seleccionar la casilla")
End If
Next X
Text1.Text = Resultado
pero el proble es que por logica me va a arojar 30 mesng porque son 30 index como hago para que me arooje uno solo, uso frames no se si con eso se puede pero no se como

[Insomnia]

Hola

Hazlo con un contador, es decir en lugar de poner un mensaje pones cont=cont+1 y luego, al salir del for comparas el resultado.

Código:

Dim X As Integer
Dim Resultado As Long
Dim cont as integer

Resultado = 0
cont=0

For X = 0 To 29
   If Check1(X).Value = 1 Then
      Resultado = Resultado + Val(Check1(X).Tag)
   else
      cont=cont+1
   End If
Next X

Text1.Text = Resultado
if cont<>0 then msgbox "debe seleccionar todas las casillas" 

--Saludos--

[jose58]

funciona perfectamente pero hay un pequeño detalle que son 30 casillas y yo deseo que si selecciiono 15 me de resultado porque resulta que son varias preguntas con tres opciiones de respuestas vez es decir que si lo hago asi como me dices ciertamente funciona pero si y solo si selecciono todas las casillas y no las voy a seleccionar toda sino 15.

[Insomnia]

Hola

Pues es muy sencillo, solo tienes que cambiar la condición en el if, es decir, si quieres que por lo menos seleccione 15 la condición sería:

Código:

if cont>15 then msgbox "debe seleccionar al menos 15 casillas"

Y si lo que quieres es que sean exactamente 15

Código:

if cont<>15 then msgbox "debe seleccionar 15 casillas"

Creo que es así, pero de todas formas es jugar con la condición del if, teniendo en cuenta que por cada casilla no seleccionada el contador se suma en 1.

--Saludos--

[jose58]

ok lo probe si funciono muchas gracias estoy muy agradecido