Access - cambio de color en campo fecha

 
Vista:

cambio de color en campo fecha

Publicado por paco (127 intervenciones) el 14/08/2007 23:59:10
Hola Amigos.

Ante todo,Gracias por la atención que me prestais.

Mi consulta es la siguiente,para quien me pueda ayudar.
Tengo un campo que me muestra una fecha como resultado de un calculo.
Bien, pues quisiera que si, la fecha resultante es anterior a la fecha actual, me muestre el fondo en rojo, y si por el contrario es posterior a la actual me lo muestre en verde.
Gracias de antemano y un saludo.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cambio de color en campo fecha

Publicado por 2pl2pl (62 intervenciones) el 15/08/2007 17:53:06
¡¡oh sorpresa ¡¡ sacado de la ayuda de access
Ejemplo
El ejemplo siguiente utiliza la función RGB para establecer las propiedades ColorDeLosBordes (BorderColor), ColorDelFondo (BackColor) y ColorDelTexto (ForeColor) dependiendo del valor del cuadro de texto txtPastDue. También se puede utilizar la función QBColor para establecer estas propiedades. Al escribir el código siguiente en el evento Form_Current( ) se establecen las características de la pantalla del control en cuanto el usuario abre un formulario o se mueve a un nuevo registro.

Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long

If Not IsNull(Me!txtPastDue.Value) Then
curAmntDue = Me!txtPastDue.Value
Else
Exit Sub
End If
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If curAmntDue > 100 Then
Me!txtPastDue.BorderColor = lngRed
Me!txtPastDue.ForeColor = lngRed
Me!txtPastDue.BackColor = lngYellow
Else
Me!txtPastDue.BorderColor = lngBlack
Me!txtPastDue.ForeColor = lngBlack
Me!txtPastDue.BackColor = lngWhite
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar