Compartir a través de


Propiedad FormatCondition.ForeColor (Access)

Utilice la propiedad ForeColor para especificar el color del texto de un control. Long de lectura y escritura.

Sintaxis

expresión. Forecolor

Expresión Variable que representa un objeto FormatCondition .

Comentarios

Use esta propiedad para controles en formularios o informes para facilitar su lectura o transmitir un significado especial. Por ejemplo, puede cambiar el color del texto en el control UnitsInStock cuando su valor esté por debajo del nivel de reordenación.

También puede utilizar esta propiedad en los informes para crear efectos visuales especiales cuando se imprime con una impresora en color. Cuando se usa en un informe, esta propiedad especifica el color de impresión y dibujo para los métodos Print, Line y Circle.

La propiedad ForeColor contiene una expresión numérica que representa el valor del color del texto en el control.

Use el Generador de colores para establecer esta propiedad eligiendo el botón Compilar situado a la derecha del cuadro de propiedad de la hoja de propiedades. La utilización del generador de color permite definir colores personalizados para el texto de los controles.

Puede establecer el valor predeterminado de esta propiedad mediante el estilo de control predeterminado de un control o la propiedad DefaultControl en Visual Basic.

Para los informes, puede establecer la propiedad Circle utilizando una macro o un procedimiento de evento de Visual Basic especificado en el valor de propiedad de evento de OnPrint de una sección.

Ejemplo:

En el ejemplo siguiente se usa la función RGB para establecer las propiedades BorderColor, BackColor y ForeColor en función del valor del cuadro de texto txtPastDue. También se puede usar la función QBColor para establecer estas propiedades. Al colocar el código siguiente en el evento Form_Current( ) , se establecen las características de visualización 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.