كيفية وضع لون في سطر وسطر لا

تفضل هذا الملف المرفق ....

أرجو أن يعجبك...

___________.rar

شكرا لكن اريد ذلك في التقرير

بعد اذن اخي بويوسف الراشد

اخي الفاضل ابو سمير

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

لتلوين حقول التقرير اي تلوين سطر وترك سطر او تلوين السطرين بلونين مختلفين قم بعمل التالي

* . افتح التقرير في وضع التصميم

* . اختر القسم تفصيل

*. اختر خصائص هذا القسم ومنه اختر التبويب حدث ومنه اختر حدث عند التنسيق وضع هذا الكود اذا كنت تستخدم النسخة العربية من الاكسيس

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If Me.Section(0).BackColor = 15066597 Then 'لون رمادي فاتح
Me.Section(0).BackColor = 16777215 ' لون ابيض
Else
Me.Section(0).BackColor = 15066597 'لون رمادي فاتح
End If
End Sub

اذا كنت تستخدم النسخة الانجليزية استخدم هذا الكود

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Section(0).BackColor = 15066597 'لون رمادي فاتح
Me.Section(0).BackColor = 16777215 ' لون ابيض
Else
Me.Section(0).BackColor = 15066597 'لون رمادي فاتح
End If
End Sub

طبعا لا يوجد فرق بين الكودين الا في تسمية قسم التفصيل ففي الاكسيس النسخة العربية نستخدم تفصيل اما في النسخة الانجليزية نستخدم Detail

وهذا مثال عملي

ReportColor.rar

اختكم

زهره

السلام عليكم

تحياتي لاستاذتي الفاضلة ،

هل يمكن تطبيق تلوين السجلات على المثال المرفق

ودمتم

أخوكم

أبو آدم

test.rar

شكرا للجميع على التعاون

قمت بالتنفيذ وكانت النتيجة مذهلة

الاخت الكريمة زهرة ولايهونون بقية الاخوان والاخوات كيف اضيف للكود خاصة اذا كانت الخلفية لون داكن النص يكون ابيض

اخي الافضل ابو آدم

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

مثالك عبارة عن نموذج والنموذج يحتوي على مربع قائمة ولا تنفع معه هذه الاكواد لان الاكواد خاصة بالتقرير ولا يمكن تطبيقها على مثالك

اخي الفاضل ابو سمير

في هذه الحالة نقوم بتعديل الكود لكي يشمل ايضا لون الخط

مثلا تريد تكون خلفية السجل لون داكن مثل ( ازرق كحلي ) ولون الخط يكون فاتح مثل ( ابيض )

والسجل الذي يلية يكون لون الخلفية ابيض ولون الخط اسود اذن نعدل الكود السابق الى هذا الكود الجديد

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If Me.Section(0).BackColor = 16777215 Then 'لون ابيض
Me.Section(0).BackColor = 8404992  ' ازرق كحلي
Me![ID].ForeColor = RGB(255, 255, 255) 'لون الخط ابيض
Me![Name].ForeColor = RGB(255, 255, 255) 'لون الخط ابيض
Me![Number].ForeColor = RGB(255, 255, 255) 'لون الخط ابيض
Me![Job].ForeColor = RGB(255, 255, 255) 'لون الخط ابيض
Else
Me.Section(0).BackColor = 16777215 'لون ابيض
Me![ID].ForeColor = RGB(0, 0, 0) 'لون الخط اسود
Me![Name].ForeColor = RGB(0, 0, 0) 'لون الخط اسود
Me![Number].ForeColor = RGB(0, 0, 0) 'لون الخط اسود
Me![Job].ForeColor = RGB(0, 0, 0) 'لون الخط اسود
End If
End Sub

وهذا المثال السابق بعد التعديل

ReportColor_up.rar

اختكم

زهره

شكرا جزيلا على الجهود

وقد جربت الكود وكانت اشد من النتيجة المذهلة في المثال الاول شكار مرة ارخى

الوظيفيه في الملف الأخير المرفق

ضحكت والله من كل قلبي فرحا بهم

وفقهم الله لنا

ووفقك ايضا انت