منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

طريقة تعديل كود لون (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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مصمم هاوي

62531