[Resolvido]Alteração de cor em caixa de texto no formulário

Caros Colegas,

Estou com a seguinte dificuldade:

Tenho uma caixa de texto no formulário de nome "txtStatus" e criei uma nova caixa de texto ao lado com o nome de txtSinalizador "um pequeno quadradinho".
Gostaria de fazer o seguinte:
Quando digito "Concluído" na caixa de texto "txtStatus" a cor de fundo da caixa de texto "txtSinalizador" mude para "Verde"
Quando digito "Em Atraso" na caixa de texto "txtStatus" a cor de fundo da caixa de texto "txtSinalizador" mude para "Vermelho"

Alguém pode me dizer se isso é possível e como?

Obrigado,
Cleniro,

Use "Formatação condicional".

Se me permitem um pitaco, poderia também usar o código abaixo na propriedade NoAtual do seu formulário

Código:


If txtStatus = "Concluído" Then
    txtSinalizador.BackColor = RGB(0, 255, 0) 'Verde
ElseIf txtStatus = "Em Atraso" Then
    txtSinalizador.BackColor = RGB(255, 0, 0) 'Vermelho
Else
    txtSinalizador.BackColor = RGB(255, 255, 255) 'Branco
End If

criquio,

A formatação condicional não me serve pois irei incluir mais de 3 condições.


LiveBrain,

o código abaixo abaixo deve ser colocado na propriedade NoAtual do formulário ou do relatório?
Somente consegui funcionar na propriedade ao carregar do "relatório" e ainda sim apresenta o seguinte problema:

No txtStatus tem as informações "Concluído", "Em Andamento", "Em atraso", "Anulado" e "Aguardando", porém o if está lendo somente onde tem a informação "Em Andamento", desta forma, no código abaixo só está lendo o segundo o elsif e tudo fica vermelho, se coloco "Em Andamento" no lugar de "Concluído, então tudo fica verde, já verifiquei e tudo está escrito certinho, não sei o que fazer, você pode ver algum erro?


Private Sub Report_Load()
If txtStatus = "Concluído" Then
   txtSinalizador.BackColor = RGB(0, 255, 0) 'Verde
ElseIf txtStatus = "Em Andamento" Then
   txtSinalizador.BackColor = RGB(255, 0, 0) 'Vermelho
   End If
Else
   txtSinalizador.BackColor = RGB(255, 255, 255) 'Branco
End If
End Sub

No relatório, tente o evento "Ao formatar" da seção "Detalhe".

criquio,

Consegui fazer o que pretendia em um formulário, na propriedade "no atual", estou tentando aplicar o mesmo código no relatório mas não está dando certo.

Obs: o código abaixo embora esteja funcionando, acredito que dá para melhorar a sequencia de Elseif.

Private Sub Form_Current()
If Status = "Concluído" Then
  txtFarol.BackColor = RGB(0, 0, 255) 'Azul
    ElseIf Status = "Fora de Prazo" Then
      txtFarol.BackColor = RGB(255, 0, 0) 'Vermelho
       ElseIf Status = "Em Andamento" Then
        txtFarol.BackColor = RGB(0, 255, 0) 'Verde
         ElseIf Status = "Reprocessado" Then
          txtFarol.BackColor = RGB(255, 255, 0) 'Amarelo
 Else
  txtFarol.BackColor = RGB(255, 255, 255) 'Branco
End If
End Sub

Já resolvido, muito obrigado