Skip to content

Latest commit

 

History

History
75 lines (50 loc) · 2.81 KB

Access.TextBox.ForeColor.md

File metadata and controls

75 lines (50 loc) · 2.81 KB
Raw
title keywords f1_keywords api_name ms.assetid ms.date ms.localizationpriority
TextBox.ForeColor property (Access)
vbaac10.chm11083
vbaac10.chm11083
Access.TextBox.ForeColor
125bc04a-b747-6397-33ff-31de47004633
03/01/2019
medium

TextBox.ForeColor property (Access)

Use the ForeColor property to specify the color for text in a control. Read/write Long.

Syntax

expression.ForeColor

expression A variable that represents a TextBox object.

Remarks

Use this property for controls on forms or reports to make them easy to read or to convey a special meaning. For example, you can change the color of the text in the UnitsInStock control when its value falls below the reorder level.

You can also use this property on reports to create special visual effects when you print with a color printer. When used on a report, this property specifies the printing and drawing color for the Print, Line, and Circle methods.

The ForeColor property contains a numeric expression that represents the value of the text color in the control.

Use the Color Builder to set this property by choosing the Build button to the right of the property box in the property sheet. Using the Color Builder enables you to define custom colors for text in controls.

You can set the default for this property by using a control's default control style or the DefaultControl property in Visual Basic.

For reports, you can set the Circle property only by using a macro or a Visual Basic event procedure specified in a section's OnPrint event property setting.

Example

The following example uses the RGB function to set the BorderColor, BackColor, and ForeColor properties depending on the value of the txtPastDue text box. You can also use the QBColor function to set these properties. Putting the following code in the Form_Current( ) event sets the control display characteristics as soon as the user opens a form or moves to a new record.

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

[!includeSupport and feedback]