Hola quisiera preguntar si alguien sabe hacer lo siguiente: tengo un formulario normal de access y uno de los campos es Fecha quiero que en ese campo si la fecha es anterior a la del sistema me la ponga en color rojo por ejemplo. Como podria hacer EDUARDO OLAZ ============ Private Sub Form_Current() ColorearFecha End Sub Private Sub txtFecha_AfterUpdate() ColorearFecha End Sub Private Sub ColorearFecha() Dim strFecha As String strFecha = Nz(txtFecha, "") If Trim(strFecha) = "" Or Not IsDate(strFecha) Then txtFecha.ForeColor = vbBlack ElseIf CDate(strFecha) >= Date Then txtFecha.ForeColor = vbBlack Else txtFecha.ForeColor = vbRed End If End Sub MARJAN ====== Volviendo a ampliar respuestas... Solo si tienes el A2000 o posterior... Vas al Diseño del Formulario, haces clic en el campo Fecha, vas al Menú Formato - Formato condicional... En Condición 1 pones en los cuadros : "El valor del campo es" - "Menor que" y en el último Fecha() Entonces escoges el color que quieras de fondo y de primer plano...