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

[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!!!!