[Resolvido]Muda cor no fundo do campo em form

Amigos, alguem me pode ajudar. tehno um formulario criado com campos numéricos . Eu gostaria que se aparecer neste campo o valor entre 0 e 100 entao o fundo do campo aparece com a cor verde se aparecer entre 101 e 200 entao a cor de fundo muda para amarela e se aparecer entre 201 e 300 ou mais cor vermelha.

Ou seja:
se o valor é entre 0 e 100 = verde

se o valor é entre 101 e 200 = amarelo

se o valor é entre 201 e 300 ou mais = vermelho

Forte abraço a todos e desde já muito obrigado

Procure por formatação condicional.

Ou nos dois eventos VBA do formulario...


Private Sub Form_Current()
Select Case SeuCampo
Case 0 To 100
Me.SeuCampo.BackColor = vbGreen
Case 101 To 200
Me.SeuCampo.BackColor = vbYellow
Case 201 To 300
Me.SeuCampo.BackColor = vbYellow
Case Else
Me.SeuCampo.BackColor = vbWhite
End Select
Me.SeuCampo.Requery
End Sub



Private Sub SeuCampo_AfterUpdate()
Select Case SeuCampo
Case 0 To 100
Me.SeuCampo.BackColor = vbGreen
Case 101 To 200
Me.SeuCampo.BackColor = vbYellow
Case 201 To 300
Me.SeuCampo.BackColor = vbYellow
Case Else
Me.SeuCampo.BackColor = vbWhite
End Select
Me.SeuCampo.Requery
End Sub

Ok Jpaulo vou testar. Obrigado

Jpaulo fiz o seguinte coloquei nas propriedades do meu campo o seguinte:
Private Sub Materia_produzidas_AfterUpdate()

Select Case Materia_produzidas
Case 0 To 900
Me.Materia_produzidas.BackColor = vbGreen
Case 901 To 1200
Me.Materia_produzidas.BackColor = vbYellow
Case 1201 To 3000
Me.Materia_produzidas.BackColor = vbRed
Case Else
Me.Materia_produzidas.BackColor = vbWhite
End Select
Me.Materia_produzidas.Requery
End Sub

Amigo mas nao funcionou pode dar-me uma luz?

Obrigado

Ok ja consegui o codigo para funcionar tem que ser colocado nas propriedados do formulario e nao nas propriedades do campo...
Obrigado JPaulo pela ajuda

Já lhe estava a mostrar o caminho das pedras.

http://dl.dropbox.com/u/771097/hugo.rar

Valew pelo retorno o forum agradece.

Obrigado mais uma vez. Deu-me a cana e eu pesquei

Abraço

pegando carona com o topico
eu mudo a cor do campo "status",mas quando vou para outro cadastro o campo continua vermelho , ou seja não consigo manter a cor em um cadastro quando está inativo

Código:

If Me.STATUS = "Inativo" Then
Me.STATUS.BackColor = 858083
Else
Me.STATUS.BackColor = 16777215
End If

Use antes a formatação condicional e todos os seus problemas deixaram de existir.

Caramba,não lembrava dessa formatação,
Obg JPaulo