Condición IF no funciona como quiero
Publicado por Carlos (5 intervenciones) el 21/06/2013 09:04:06
Hola,
tengo el siguiente un código IF muy sencillo:
Private Sub Cambio_de_estado_Click()
If Cambio_de_estado.Value = True Then
Fecha_Salida_Cuarentena.Value = Date
Fecha_Rechazado.Value = Date
Estado.Value = "RECHAZADO"
Estado.ForeColor = 255
Else
Fecha_Salida_Cuarentena.Value = ""
Fecha_Rechazado.Value = ""
Estado.Value = "CUARENTENA"
Estado.ForeColor = 0
End If
End Sub
El tema es que tengo dos registros (dos líneas de datos) y yo quiero que cuando la casilla de verificación sea verdadera, me cambie o rellene como véis arriba. El problema es que todo lo hace como quiero, salvo el color, que no me cambia sólo el de la línea asociada a la casilla de verificación, sino todos los datos del campo "Estado".
Espero haberme explicado.
Gracias
tengo el siguiente un código IF muy sencillo:
Private Sub Cambio_de_estado_Click()
If Cambio_de_estado.Value = True Then
Fecha_Salida_Cuarentena.Value = Date
Fecha_Rechazado.Value = Date
Estado.Value = "RECHAZADO"
Estado.ForeColor = 255
Else
Fecha_Salida_Cuarentena.Value = ""
Fecha_Rechazado.Value = ""
Estado.Value = "CUARENTENA"
Estado.ForeColor = 0
End If
End Sub
El tema es que tengo dos registros (dos líneas de datos) y yo quiero que cuando la casilla de verificación sea verdadera, me cambie o rellene como véis arriba. El problema es que todo lo hace como quiero, salvo el color, que no me cambia sólo el de la línea asociada a la casilla de verificación, sino todos los datos del campo "Estado".
Espero haberme explicado.
Gracias
Valora esta pregunta


0