Propriedade FormatCondition.ForeColor (Access)

Utilize a propriedade ForeColor para especificar a cor do texto num controlo. Long de leitura/gravação.

Sintaxe

expressão. ForeColor

expressão Uma variável que representa um objeto FormatCondition .

Comentários

Utilize esta propriedade para controlos em formulários ou relatórios para facilitar a leitura ou a transmissão de um significado especial. Por exemplo, pode alterar a cor do texto no controlo UnitsInStock quando o respetivo valor ficar 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.

Utilize o Construtor de Cores para definir esta propriedade ao selecionar o botão Criar à direita da caixa de propriedades na folha de propriedades. A utilização desse construtor permite que você defina cores personalizadas para o texto nos controles.

Pode predefinir esta propriedade ao utilizar o estilo de controlo predefinido de um controlo 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 seguinte código no evento Form_Current( ) define as características de apresentação do controlo assim que o utilizador abre um formulário ou se move para um novo registo.

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.