[مصمم هاوي]

حياكم الله إخوتي الكرام وأساتذتي الأعزاء
وعذراً على طول الغياب بسبب إجراء عملية تركيب بلاتين لوالدتي - حفظها الله - وذلك أثر سقوطها وإصابتها بكسور شديدة في العظم المتصل بمنطقة الحوض
وقد تكللت العملية والحمد لله بالنجاح والتوفيق.
سائلاً المولى عز وجل أن يُطيل في عمرها ويُحسن عملها

وعذراً على السؤال المستعجل وهو بخصوص تقرير الأكتيف ريبورت

طريقة تعديل كود لون (Field2.Text) + (Field2.Text) (وهكذا) بناء على قيمة الــ (Field3.Text)

مثلاُ : لو كانت قيمة (Field3) تساوي أو أكبر من (40) وكذلك لونه أحمر
فإن لون (Field2) + (Field1) يكون أحمر

كود :

Private Sub Detail_Format()
If Field3.Text >= 40 Then
Field3.ForeColor = vbRed
ElseIf
Field1.ForeColor = vbRed
Field2.ForeColor = vbRed
End If
End Sub

[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