cambio de color en campo fecha
Publicado por Paco (127 intervenciones) el 17/08/2007 14:03:54
Hola y gracias de antemano.
Mi pregunta es la siguiente:
Tengo un campo fecha actual y otro vencimiento1.
Quisiera que cuando la fecha que hay en vencimiento1 sea anterior a la de fecha actual, el fondo esté en rojo, y por el contrario, si es posterior el fondo cambie a verde.
He escrito este código y no me funciona.
Private Sub Id_GotFocus()
If (vencimiento1) < fecha Then
vencimiento1.BackColor = vbRed
ElseIf vencimiento1 > fecha Then
vencimiento1.BackColor = vbGreen
End If
End Sub
Por favor, estoy estancado aquí y no se como hacerlo.
Si alguien me pudiese ayudar, o mandar un ejemplo, se lo agradeceria.
Un saludo y gracias.
Mi pregunta es la siguiente:
Tengo un campo fecha actual y otro vencimiento1.
Quisiera que cuando la fecha que hay en vencimiento1 sea anterior a la de fecha actual, el fondo esté en rojo, y por el contrario, si es posterior el fondo cambie a verde.
He escrito este código y no me funciona.
Private Sub Id_GotFocus()
If (vencimiento1) < fecha Then
vencimiento1.BackColor = vbRed
ElseIf vencimiento1 > fecha Then
vencimiento1.BackColor = vbGreen
End If
End Sub
Por favor, estoy estancado aquí y no se como hacerlo.
Si alguien me pudiese ayudar, o mandar un ejemplo, se lo agradeceria.
Un saludo y gracias.
Valora esta pregunta
0