مطلوب تلوين أو تمييز مجموعة سجلات في تقرير

[ابوخليل]

السلام عليكم
اساتذتي واحبتي الأعزاء
في المرفق تقرير يعرض السجلات كمجموعات  ، حيث تجدون ان كل عدد من السجلات تشترك في حقل الـــ id 
بمعنى ان الرقم في حقل id مكرر في اكثر من سجل 
ستلاحظون وجود سجل واحد فقط ومجموعة مكونة من سجلين ومجموعة أكثر

المطلوب :  تطبيق لونين فقط على مجموعة السجلات  مثلا  الأبيض والرمادي
بحيث تتمييز كل مجموعة بلون والمجموعة التي بعدها باللون الآخر وهكذا ...

الفكرة : هي تمييز كل مجموعة عن ما بعدها من اجل تيسير الملاحظة والمتابعة ، وان صعب التطبيق لا بأس من تطبيق الفكرة بغير الألوان وبطرق أخرى مثلا بخط فاصل ونحو ذلك ..
تقبلوا شكري وتقديري

db1.mdb

[محمد أبوعبدالله]

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

تفضل يا غالي

Option Compare Database
Option Explicit
Dim X1 As Boolean

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If X1 Then
   Detail.BackColor = 16777199
Else
    Detail.BackColor = 14877777
End If
X1 = Not (X1)
End Sub

UP-db1.mdb

تحياتي

[ابوخليل]

ياسلام عليك يابو عبدالله

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

ولم يخطر ببالي لمستك الرقيقة الساحرة بانشاء مقطع الــ id

الف شكر وسلمت أناملك

[محمد أبوعبدالله]

يعلم الله اني اتشرف ان اكون تلميذك استاذنا الفاضل @ابوخليل

دمتم بكل خير

تحياتي

[Abu Farid]

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

ماشاء الله عليك يا ابا عبدالله استفدنا كثير من مشاركتك الذهبية و فعلا كود رائع‘ وتحية لاستاذ الغالي ابا خليل الذي هو سبب الغنيمة هذا.

و لتغير لون خلفية حقول بدلا من خلفية تفصيل قمت باضافة بسيطة على الكود كما في مرفق.

UP-db1.mdb

[ابوخليل]

ابو فريد الف شكر لك 

اضافة جميلة واكثر دقة

علما انه يمكننا عبر ضبط هوامش التقرير التحكم بخلفية التفصيل  بحيث تكون على مقاس عرض الحقول

 

[ابوخليل]

تكرما وتفضلا ابا فريد هلا شرحت لنا هذين السطرين

If ctl.ControlType = 109 Then
ctl.BackStyle = 1

الموجودة ضمن الكود ادناه

ماذا تعني هذه الارقام 109 و 1  وهل هناك ارقام اخرى لها خصائص مختلفة

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If X1 Then
Dim ctl As Control
For Each ctl In Me.Detail.Controls
If ctl.ControlType = 109 Then
ctl.BackStyle = 1
ctl.BackColor = 14933454
End If
Next
Else
For Each ctl In Me.Detail.Controls
If ctl.ControlType = 109 Then
ctl.BackStyle = 1
ctl.BackColor = 16777215
End If
Next
End If
X1 = Not X1
End Sub

 

[Abu Farid]

1 ساعه مضت, ابوخليل said:

كرما وتفضلا ابا فريد هلا شرحت لنا هذين السطرين

ابشر استاذنا

رقم 109 هو رمز نوع عنصر مربع نص (حقل) يمكن تغيره الى
If TypeOf ctl Is TextBox Then
و هذا لاستثاء حقول مراد تغير لون خلفيته من باقي عناصر محتمل وجودهم في تفصيل كـ  تسمية، إطار...
و Backstyle هو نمط خلفية عنصر و رقم  1 هو خيار الثاني في خاصية نمط خلفية عنصر(عادي) و 0 هو خيار الاول (شفاف) وفي حال اختيار خيار شفاف مسبقا، لا ينطبق عليه الكود يجب جعله اول عادي ثم تغير لون خلفيتة في الكود

[أبوبسمله]

ماشاء الله لاقوه الا بالله اللهم صل وسلم وبارك على سيدنا محمد وآله ومن والاه معلم الامه بفضلك وكرمك ورحمتك يا ارحم الراحمين

سؤال من استاذى الجليل @ابوخليل

واجابات روعه من اخوتى واساتذتى @محمد ابوعبد الله و @Abu Farid

وتعلمنا فيه دروس اكثر زادكم الله من فضله وعلمه اخوتى واساتذتى الكرام

جزاكم الله خيرا

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

 

[ابوخليل]

3 ساعات مضت, Abu Farid said:

ابشر استاذنا

رقم 109 هو رمز نوع عنصر مربع نص (حقل) يمكن تغيره الى
If TypeOf ctl Is TextBox Then
و هذا لاستثاء حقول مراد تغير لون خلفيته من باقي عناصر محتمل وجودهم في تفصيل كـ  تسمية، إطار...
و Backstyle هو نمط خلفية عنصر و رقم  1 هو خيار الثاني في خاصية نمط خلفية عنصر(عادي) و 0 هو خيار الاول (شفاف) وفي حال اختيار خيار شفاف مسبقا، لا ينطبق عليه الكود يجب جعله اول عادي ثم تغير لون خلفيتة في الكود

شرح مختصر  وافي

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

126 - acAttachment
108 - acBoundObjectFrame
106 - acCheckBox
111 - acComboBox
104 - acCommandButton
119 - acCustomControl
103 - acImage
100 - acLabel
102 - acLine
110 - acListBox
114 - acObjectFrame
105 - acOptionButton
107 - acOptionGroup
124 - acPage
118 - acPageBreak
101 - acRectangle
112 - acSubform
123 - acTabCtl
109 - acTextBox
122 - acToggleButton

 

[الحلبي]

استاذنا الفاضل / @Abu Farid

هل هذا التلوين لا يعمل الا على اوفيس 2003

انا عندى اوفيس 2010 وحاولت اطبق التلوين فى بعض التقارير لا تتم العملية

وايضا اين اضع هذا الكود فى التقرير

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

[Abu Farid]

52 دقائق مضت, حلبي said:

هل هذا التلوين لا يعمل الا على اوفيس 2003

لا يا أخي هذا يعمل في جميع اصدارات و لتطييقه على برنامجك عليك اشاء هيدر على حقل سجلات متكررة كما هو ID في برنامج الحالي، انظر صورة توضحية

[الحلبي]

جزاك الله خير على هذا الشرح الوافى

سأقوم بالتطبيق