Propriedade Report.ForeColor (Access)

Use a propriedade ForeColor para especificar a cor do texto em um controle. Long de leitura/gravação.

Sintaxe

expressão. Forecolor

Expressão Uma variável que representa um objeto Report .

Comentários

Use essa propriedade para controles em formulários ou relatórios para facilitar a leitura ou transmitir um significado especial. Por exemplo, você pode alterar a cor do texto no controle UnitsInStock quando seu valor estiver abaixo do nível de reordenação.

Você também pode usar essa propriedade em relatórios para criar efeitos visuais especiais ao imprimir com uma impressora colorida. Quando usado em um relatório, essa propriedade especifica a cor de impressão e do desenho para os métodos de impressão, linha e círculo.

A propriedade ForeColor contém uma expressão numérica que representa o valor da cor do texto no controle.

Use o Construtor de Cores para definir essa propriedade escolhendo o botão Build à direita da caixa de propriedade na folha de propriedades. A utilização desse construtor permite que você defina cores personalizadas para o texto nos controles.

Você pode definir o padrão dessa propriedade usando o estilo de controle padrão de um controle ou a propriedade DefaultControl no Visual Basic.

Para relatórios, você pode definir a propriedade Circle somente usando uma macro ou um procedimento de evento do Visual Basic especificado na configuração de propriedade de evento OnPrint uma seção.

Exemplo

O exemplo a seguir usa a função RGB para definir as propriedades BorderColor, BackColor e ForeColor, dependendo do valor da caixa de texto txtPastDue. Você também pode usar a função QBColor para definir essas propriedades. Colocar o código a seguir no evento Form_Current( ) define as características de exibição de controle assim que o usuário abre um formulário ou passa para um novo 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.