Private Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
If IsNull(Me!Werknemer.Value) Then
curAmntDue = Me!Werknemer.Value
Else
Exit Sub
End If
''lngBlack = RGB(0, 0, 0)
''lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If curAmntDue = Me.Werknemer Then
Me!Werknemer.BackColor = lngYellow
Else
Me!Werknemer.BackColor = lngWhite
End If
End Sub
maar werkt niet help.