odprilike ovako

if X>1000 then
Text.Forecolor= "vrednost" 'vrednost je brojcana oznaka boje koju hoces, mislim da treba bez navodnika
else
Text.Forecolor= "druga vrednost"
end if

Function Boja()
Dim a
Dim b As Integer

On Error GoTo Greska
Screen.ActiveForm.Refresh
a = Screen.ActiveControl
b = Len(Format$(a))
If Format$(a) = "" Then GoTo Kraj:
If Val(a) > 1000 Then
Screen.ActiveControl.ForeColor = 255
ElseIf Val(a) <= 1000 Then
Screen.ActiveControl.ForeColor = 0
End If
Screen.ActiveControl.SelStart = b
Kraj:
Exit Function
Greska:
MsgBox "Pogrešan upis"
GoTo Kraj
End Function

Private Sub Form_Current()
Dim a

On Error GoTo Kraj

a = Val(Me.Vrijednost)
If Format$(a) = "" Then GoTo Kraj:
If Val(a) > 1000 Then
Me.Vrijednost.ForeColor = 255
ElseIf Val(a) <= 1000 Then
Me.Vrijednost.ForeColor = 0
End If
Kraj:
End Sub

Private Sub Vrijednost_Change()
Boja
End Sub
Ime Kontrole je: Vrijednost
Sretan rad

http://www.elitesecurity.org/tema/75625
http://www.elitesecurity.org/tema/89270

Poštovani "izonic".

Probao sam. Radi savršeno.

Hvala.

A kako bi izgledao kod da vrijednosti (brojcane) u polju ako su manje od 205 ili vece od 245, promjene boju recimo u crvenu???
Thx

A imas i conditonal format