[Resolvido]Modificar a cor da fonte com a condição de um campo Sim/Não

Boa noite.
Eu queria que quando o campo Sim/Não [Inativo] esteja a marcado outro campo [NomeServidor] de preto mude de cor vermelho.
Tente deste jeito, mas não deu certo.
Obrigado..

Private Sub Form_Load()
If Me.Inativo = True Then
Me.NomeServidor.ForeColor = vbRed
Else
Me.NomeServidor.ForeColor = vbBlack
End If
End Sub

Olá Roberto,

Mude conforme abaixo:

Código:


Private Sub Form_Load()

   If Me.Inativo = -1 Then
      Me.NomeServidor.ForeColor = vbRed
   Else
      Me.NomeServidor.ForeColor = vbBlack
   End If

End Sub



É isso

Att,

Alexandre Fim

Oi Alexandre.

Infelizmente não deu certo. Criei um banco para testar o código.

Mesmo assim muito obrigado pela rápida resposta.

Olá,

Estava pressupondo que era formulário com a propriedade "Modo Padrão" tipo "Formulário Simples", mas no caso é Formulário Contínuo é necessário usar este código:

Código:


Private Sub Detalhe_Paint()

    If Me.Inativo = -1 Then
      Me.NomeServidor.ForeColor = vbRed
    Else
      Me.NomeServidor.ForeColor = vbBlack
    End If

End Sub



Ai vai funcionar.

É isso.

Att,

Alexandre Fim

....e efetivamente funcionou.

Alexandre. O que posso te dizer?

Muito, muito, obrigado mesmo...Um Abraço.

Encontrar o botão Resolvido, para mim continua uma guerra..... 

Valeu Roberto!
O fórum agradece !!!

OBS: Esse botão "Resolvido" eu tmb não sei onde fica......rsssssssss

Abs

Alexandre Fim

Na hora de aplicar o filtro o formulário deu erro 2424.
Resolvi desta forma:



Private Sub Detalhe_Paint()

On Error GoTo erro

   If Me.Inativo = -1 Then
      Me.NomeServidor.ForeColor = vbRed
   Else
      Me.NomeServidor.ForeColor = vbBlack
   End If

End Sub

Roberto,

Também existe a opção de vc utilizar subformulários no formato "Folha de Dados", e usando o recurso de Formatação Condicional no campo desejado.
Segue:


O formato "Folha de Dados" permite uma dinamica melhor em trabalhar com exibição de dados.

Segue versão.

Att,

Alexandre Fim