Поделиться через

Свойство Report.ForeColor (Access)

  • Статья

Используйте свойство ForeColor , чтобы указать цвет текста в элементе управления . Для чтения и записи, Long.

Синтаксис

expression. Forecolor

Выражение Переменная, представляющая объект Report .

Замечания

Используйте это свойство для элементов управления в формах или отчетах, чтобы упростить их чтение или передать особое значение. Например, можно изменить цвет текста в элементе управления UnitsInStock , если его значение будет ниже уровня изменения порядка.

Это свойство также можно использовать в отчетах для создания специальных визуальных эффектов при печати с помощью цветного принтера. При использовании в отчете это свойство задает цвет печати и рисования для методов Print, Line и Circle .

Свойство ForeColor содержит числовое выражение, представляющее значение цвета текста в элементе управления .

Используйте построитель цветов, чтобы задать это свойство, нажав кнопку Сборка справа от поля свойства на странице свойств. Использование построителя цветов позволяет определять настраиваемые цвета для текста в элементах управления.

Вы можете задать значение по умолчанию для этого свойства, используя стиль элемента управления по умолчанию или свойство DefaultControl в Visual Basic.

Для отчетов можно задать свойство Circle только с помощью макроса или процедуры событий Visual Basic, указанной в параметре свойства события OnPrint раздела.

Пример

В следующем примере функция RGB используется для задания свойств BorderColor, BackColor и ForeColor в зависимости от значения текстового поля txtPastDue . Для задания этих свойств можно также использовать функцию QBColor . Помещая следующий код в событие Form_Current( ) задает характеристики отображения элемента управления, как только пользователь открывает форму или переходит к новой записи.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.