[sendbad100]

وعليكم السلام السلام ورحمة الله وبركاته 

اضف الكود التالي  في الاكتيف  

كود :

Private Sub Detail_AfterPrint()

If Val(Me.Field5.Text) < 50 Then
Me.Field5.BackColor = &H8080FF
Else
Me.Field5.BackColor = &H80FF80
End If

End Sub

 والله الموفق