Backcolor in text field for each record

[mulderm]

Hello,

I have the following code for changing the back-color of a field:

Private Sub txttekst1_AfterUpdate()

Dim lngRed As Long
Dim lngGreen As Long

lngGreen = RGB(0, 255, 0)
lngRed = RGB(255, 0, 0)

If Me.txttekst1 < 100 Then
Me.txttekst1.BackColor = lngRed
ElseIf Me.txttekst1 > 200 Then
Me.txttekst1.BackColor = lngGreen
End If

End Sub

Problem: When I change to record to record the back color is not
the same as I have write the code.

mulderm

 

[RoyVidar]

Try placing the code in the on current event of the form too.

(there's also some constants, I think, that can be used for colours. vbRed, vbGreen)

Or try conditional formatting from the format menu (2000+ versions)

 

[Rich]

The code belongs in the form current event, in your after update event just put
Call Form_Current

 

[Meltdown]

~ Deleted ~
edit:just beat me to it Roy & Rich, you boys are fast on that mouse.

 

[mulderm]

Thank you guy´s. it works fine.

mulderm