فائده (تظليل صف بعد صف) في البيانات بواسطة تقارير أكسس

الأخ ابو عبدالملك

الله يعطيك العافية على هالكود .

في الكود مسحت QBColor (14) الموجودة قبل End If ولم يتغير شيء هل ملاحظتي صحيحة ؟

ولك تحياتي

الأخ أبو حمود شكراً على الملاحظه

فعلاً أنا عند تجربتي للكود وضعت لم ألغي هذا السطر وإنما وضعت أمامه للملاحظه فقط

وعند ما نزلت الكود هنا نسيت ذلك

فشكرا على الملاحظه وهذه العباره ليست من الكود

وهذا الكود الصحيح

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) 

If Me.تفصيل.BackColor = QBColor(14) Then 
Me.تفصيل.BackColor = 16777215 
Else 
Me.تفصيل.BackColor = QBColor(14) 


End If 
End Sub

الأخ أبو عبد الملك :

تعرف إن ذوقك حلو فى اللون الأصفر

أشرف خليل

هذا جدول ببقية الأولوان :

رقم اللون اللون

0 =Black

1 =Blue

2 =Green

3 =Cyan

4 =Red

5 =Magenta

6 =Yellow

7 =White

8 =Gray

9 =Light Blue

10 =Light Green

11 =Light Cyan

12 =Light Red

13 =Light Magenta

14 =Light Yellow

15 =Bright White

وللجميع التحية

الأخ أشرف

اللون الأصفر ممتاز عند الطباعه بالأبيض والأسود حيث أن يكون النظليل ممتاز

الأخ أبو حمود

شكراً على الفائده

وشكرأ للجميع