[Resolvido]Mudar a cor da caixa de texto quando o valor for negativo

Bom dia Galera..!!!

Primeiramente quero parabenizar aos idealizadores do maximo access pois tirei muitas dúvidas sobre o access aqui, Parabêns a todos.

Bem minha dúvida é a seguinte:
Tenho um controle de estoque no qual possui um formulário para digitação dos dados quero que no momento em que o usuário digitar um valor superior ao meu estoque ele apareça na caixa de texto correspondente na cor vermelha!

Desde já agradeço!

Bom dia Jair Silva

If Me.seucampoestoque.value < 1 Then
Me.Seucampoestoque.ForeColor = vbRed
Else
Me.Seucampoestoque.value foreColor = vbBlack
End If

Davi amigão, excelente ajuda, mas é necessário olho vivo;

If Me.seucampoestoque.value < 1 Then
Me.Seucampoestoque.ForeColor = vbRed
Else
Me.Seucampoestoque.value foreColor = vbBlack
End If

If Me.seucampoestoque.value < 1 Then
   Me.Seucampoestoque.ForeColor = vbRed
 Else
   Me.Seucampoestoque.foreColor = vbBlack
End If

E somente a partir do zero para baixo é que é considerado negativo.

Obrigado JPaulo. A culpa maior é do ctrl+c & ctrl+v

Sucesso!

Muito Obrigado senhore, Fucionou certinho como planejava