Farve ændring af tekst

Jeg tror ikke jeg har en kode lige her med det er noget med som du selv siger at løbe posterne igen med programmering og så bruge en egenskab der hedder RGB til at ændre farven på skriften, hvis tallet er negativ

Jeg skal prøve om jeg kan finde noget om det i morgen eftermiddag

Jeg har selv kode til at farve teksten rød.
Problemet er koden til at løbe posterne igennem, og om man kan ændre farve på enkelte poster

text0 = txtboxlager
text1 = txtboxminlager

indsæt koden under text0

Private Sub Text0_Change()
If [Text0].Value < [Text2].Value = True Then
[Text0].ForeColor = vbRed
Else
[Text0].ForeColor = vbBlack
End If

End Sub

koden skal indsættes under \"lost focus \"
og ikke \"on change\"  her er den rigtige..

Private Sub Text0_LostFocus()
If [Text0].Value < [Text2].Value = True Then
[Text0].ForeColor = vbRed
Else
[Text0].ForeColor = vbBlack
End If
End Sub

Hej

Jeg har koden til at farve teksten.

Private Sub VNavn_GotFocus()
Dim Lageradv As Integer
    Lageradv = 0
    DoCmd.Restore
    If lager.Value - MinLager.Value < Lageradv Then
        Me!txtboxLager.BackColor = 255
        Me!txtboxLager.ForeColor = 16777215
        Me!VNavn.ForeColor = 225
    Else
        Me!txtboxLager.BackColor = 16777215
        Me!txtboxLager.ForeColor = 0
        Me!VNavn.ForeColor = 0
    End If
End Sub

Problemet er at alle felter bliver samme farve.
Jeg mangler en form for loop sætning der tildeler den enkelte record farve.
Hvis det er muligt.

PS: jeg er ikke sikker på at udtrykket skal placeres under - Private Sub VNavn_GotFocus()

har du prøvet med \"move next\".

Lukket

Lukket