[62531]

كود :

Private Sub Detail_Format()
   If Val(ActiveReport1.Field3) >= 40 And ActiveReport1.Field3.ForeColor = vbRed Then
       ActiveReport1.Field1.ForeColor = vbRed
       ActiveReport1.Field2.ForeColor = vbRed
   End If
End Sub