Skift baggrundsfarve efter værdi

Ja - det kan du sagtens. Jeg har en lille testdb i Access97. Læg din e.mail hvis du vil have den tilsendt.

kommer med koden her om et øjeblik.

If you are talking about a detail side with more than one record then in Access 97 you CAN NOT!

koden kan du placere i feltets Beforeupdate eller Change event:

Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If Felt1 < "4" Then
Felt1.ForeColor = lngRed
Felt1.BackColor = lngWhite
Else
Felt1.ForeColor = lngYellow
Felt1.BackColor = lngBlack
End If
Me.Refresh

but if we are talking just a single field then  here is an example

Sub Form_Current()
    Dim curAmntDue As Currency, lngBlack As Long
    Dim lngRed As Long, lngYellow As Long, lngWhite As Long

    If Not IsNull(Me!txtPastDue.Value) Then
        curAmntDue = Me!txtPastDue.Value
    Else
        Exit Sub
    End If
    lngRed = RGB(255, 0, 0)
    lngBlack = RGB(0, 0, 0)
    lngYellow = RGB(255, 255, 0)
    lngWhite = RGB(255, 255, 255)
    If curAmntDue > 100 Then
        Me!txtPastDue.BorderColor = lngRed
        Me!txtPastDue.ForeColor = lngRed

Me!txtPastDue.BackColor = lngYellow
    Else
        Me!txtPastDue.BorderColor = lngBlack
        Me!txtPastDue.ForeColor = lngBlack
        Me!txtPastDue.BackColor = lngWhite
    End If
End Sub

>Terry: That TOO can be acomplished... I dont have the code by me, but I've done it before...

>Terry: by "That" I meen in cont. forms...

yes your right but it takes some playing around. I'll just see if I can find the code

Takker Mugs

stausholm@mailme.dk

Send den og du får pointene. Hilsen 2001Stausholm

Found it!
2001 ..... do you have an email where I can send you the dB?

can we have a status please?

Hej Mugs

Den løste det ikke helt

Det er ikke når jeg indtaster, men det er når formen åbnes/refreshes at den skal ændre baggrunden i boksen efter værdien.

Hi Terry
Could you please send me your soloution.
Best regards
2001Stausholm

Så skal du blot indsætte koden i formularens OnCurrent (VedAktuel) event, eller i den kommando hvori du refresher.

Hej Mugs

Jeg vil også meget gerne se dit eksempel - vil du sende det til mig også ?

lisettel@ofir.dk

TAK