كيف تظلل التقارير

الحل :............

تضع الكود التالي ضمن خصائص التفصيل في التقرير

Private m_RowCount As Long
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
m_RowCount = m_RowCount + 1
If m_RowCount / 2 = CLng(m_RowCount / 2) Then
Me.Detail.BackColor = 14803425 'Change value to the color you desire
Else
Me.Detail.BackColor = 16777215 'Change value to the color you desire
End If
End Sub

الاخ الفاضل على الزهراني

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

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

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

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

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

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

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

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Section(0).BackColor = 13565951 Then 'لون سماوي
Me.Section(0).BackColor = 16777164 'لون اصفر فاتح
Else
Me.Section(0).BackColor = 13565951 'لون سماوي
End If
End Sub

وهذا مثال مرفق

ReportColor.rar

اختكم

زهره

اخي علي الزهراني

يبدو اننا كتبنا المشاركات في نفس الوقت

يالله ما هي مشكله زيادة الخير خيرين

بارك الله في مجهودك وفتح الله عليك