Propiedad Line.BorderColor (Access)
Utilice la propiedad BorderColor para especificar el color del borde de un control. Long de lectura y escritura.
Sintaxis
expresión. BorderColor
Expresión Variable que representa un objeto Line .
Comentarios
El valor de la propiedad BorderColor es una expresión numérica que corresponde al color que desea usar para el borde de un control.
Puede establecer el valor predeterminado de esta propiedad mediante el estilo de control predeterminado de un control o la propiedad DefaultControl en Visual Basic.
Color de borde de un control sólo es visible cuando su propiedad SpecialEffect está establecida a sin relieve o sombreado. Si la propiedad SpecialEffect está establecida a algo diferente de sin relieve o sombreado, el establecimiento de la propiedad BorderColor modifica el valor de la propiedad SpecialEffect a sin relieve.
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.