¿¿Como hago para controlar/validar 4 checks al mismo tiempo??

[gohanjaja]

Hola quería saber de q manera puedo hacer lo siguiente:

Si estos 4 checks están activados....que me guarde en una variable = "activados"
asi pueda despues guardar eso en la base...

dejo una imágen asi se entienda...





Se pueden usar 4 IFs??? ... seguidos?? la verdad q no se como encarar este caso

Osea

if chek1 and check2 and check3 and check4 = 1 then
variable = "activados"
endif


:\\

[SalomonSab]

puedes hacerlo utilizando el If ElseIf que en tu caso te quedaria bien, ya que el usuario pudiera seleccionar solamente el primero y el ultimo o el segundo y el primero en fin hay que darle todas las opciones al usuario...

[gohanjaja]

Iniciado por SalomonSab

puedes hacerlo utilizando el If ElseIf que en tu caso te quedaria bien, ya que el usuario pudiera seleccionar solamente el primero y el ultimo o el segundo y el primero en fin hay que darle todas las opciones al usuario...

Si , yo me lo imaginé así , pero la consigna me pide ésto , tal vez se entienda mejor :

2)El sistema debe emitir un listado de alumnos ordenado alfabeticamente por :

Apellido , Ciclo , Legajo incompleto

1)Previamente me pide que ese legajo ( esos 4 checks ) deben estar guardados en la base de datos.

Lo que yo me imagino para resolver lo del punto número 2) es , que esos 4 checks si están activados que me guarde en un campo de la base ejemplo " LEGAJO COMPLETO" "si" caso contrario "no"....

Asi pueda luego listar en un datagrid....aquellos alumnos que el "legajo completo" = "si"

[SalomonSab]

entonces mejor aplicalo de esta forma:

si todos los checkbox estan activos asignar al alumno un status Legajo Completo
de lo contrario el status del Alumno es Legajo Incompleto

[gohanjaja]

Iniciado por SalomonSab

entonces mejor aplicalo de esta forma:

si todos los checkbox estan activos asignar al alumno un status Legajo Completo
de lo contrario el status del Alumno es Legajo Incompleto

Si pero como le hago para controlar los 4 checks?? ... y guardar "completo" o "incompleto",....

[SalomonSab]

aplicalo asi:

Código:

IF Check1.Value = vbUnchecked AND Check2.Value = vbUnchecked AND Check3.Value = vbUnchecked AND Check4.Value = vbUnchecked Then
     'En tu caso utilizas la Palabra No y Si
      Status = 'No'
      Else 
      Status = 'Si'
End If

ya con eso puedes hacer tu lista en tu Grilla

[gohanjaja]

Iniciado por SalomonSab

aplicalo asi:

Código:

IF Check1.Value = vbUnchecked AND Check2.Value = vbUnchecked AND Check3.Value = vbUnchecked AND Check4.Value = vbUnchecked Then
     'En tu caso utilizas la Palabra No y Si
      Status = 'No'
      Else 
      Status = 'Si'
End If

ya con eso puedes hacer tu lista en tu Grilla

Haber mira lo pongo así :

Código:

Dim status1 As String
Dim status2 As String
If Document1.Value = vbUnchecked And Document2.Value = vbUnchecked And Document3.Value = vbUnchecked And Document4.Value = vbUnchecked Then
status1 = "no"
rs1("status") = status1
Else
status2 = "si"
rs1("status") = status2
End If

Marco 2 checks , y los otros los dejo sin marcar, y me guarda "si" ....cuando devería guardarme un "no" ( x no marcar las 4 checks )..






EDITTTTTTTT YA LO SOLUCIONE LO COLOCO DE ESTA MANERA:

Código:

Dim status As String
If Document1.Value = 1 And Document2.Value = 1 And Document3.Value = 1 And Document4.Value = 1 Then
status = "si"
Else
status = "no"
End If

rs1("status") = status

MUCHAS GRACIAS POR LA AYUDA!!!!

[pkj]

A mi con los And tambien me ha hecho cosas raras.
¿Has probado con Or's?

If Document1.Value = vbUnchecked Or Document2.Value = vbUnchecked Or Document3.Value = vbUnchecked Or Document4.Value = vbUnchecked Then
status1 = "no"
rs1("status") = status1
Else
status2 = "si"
rs1("status") = status2
End If

[SalomonSab]

Entonces cambia los AND por OR y listo

[gohanjaja]

YA EDITE ARRIBA, LA SOLUCIÓN

MIL GRACIAS SalomonSab y pkj por la AYUDA!! !!

Les pongo la solución acá abajo tmb:

Código:

Dim status As String' variable a usar
'obligo a los 4 check q esten activados para el si sinó el status será nó
If Document1.Value = 1 And Document2.Value = 1 And Document3.Value = 1 And Document4.Value = 1 Then
status = "si"
Else
status = "no"
End If

rs1("status") = status ' aca guardo en la base en el campo status

Se los dejo explicadito con comentarios...saludos espero q le sirva a otra persona!

[A.H.H]

Hola a ver si te sirve este ejemplo que es para poner en un listbox el estado de los checkbox si esta clicado verdadero y si no lo esta falso.

El ejemplo recorre todos los checkbox del formulario, claro si tienes otros que no quieres comprobar quizas no te sirva.

Para el ejemplo coloca en un form un listbox , un command1, y 4 checkbox


COMPRUEBA clicando y desclicando y dandole al boton COMPROBAR(COMMAND1)

quizas te sea util , lo que hace CBool es Convertir una expresión a un valor de tipo Boolean (true o false)

Private Sub Form_Load()
Command1.Caption = "COMPROBAR"
End Sub

Private Sub Command1_Click()
List1.Clear
Dim micontrol As Control
For Each micontrol In Controls
If TypeOf micontrol Is CheckBox Then
Select Case CBool(micontrol.Value)
Case CBool(micontrol.Value) = False
List1.AddItem (micontrol.Caption & "-->" & CBool(micontrol.Value))
Case CBool(micontrol.Value) = True
List1.AddItem (micontrol.Caption & "-->" & CBool(micontrol.Value))
End Select
End If
Next
End Sub

SALU2