تظليل سطر وترك سطر في التقارير

[النقات]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته،،
اول مشاركاتي المتواضعة ارجو الفائدة للجميع
تستطيع تظليل سطر وترك سطر في تقارير اكسس
افتح التقرير في وضع التصميم
انقر نقرا مزدوجا على Detail لفتح نافذة خصائص في قسم Detail
اختر Event ومنها اختر OnFormat ثم اختر [Event Procedure] واضغط على الثلاث نقاط
اضف التعليمات التالية الى الحدث On Format في تفصيل من التقرير :

  Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 Const Gray = 12632256
 Const White = 16777215
 If Me.Detail.BackColor = Gray Then
    Me.Detail.BackColor = White
    Else
    Me.Detail.BackColor = Gray
 End If

End Sub

في النسخة العربية من اكسس استبدل عبارة (Detail) بالعبارة العربية المقابلة لها وهي (تفصيل)
والعفو من الجميع على رداءة اسلوبي في الشرح ( حبيت اشارك وبس ....)

[فتى الوادي]

السلام عليكم

تطلع لي هذه الرسالة عند فتح التقرير ؟؟!! هل يحتاج إلى إضافة مرجع ؟؟!!

[النقات]

غير عبارة Detail الى العبارة المناضره لها تفصيل

[محمد طاهر عرفه]

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

اضافة مفيدة :(

[النقات]

شكرا استاذنا الكبير محمد طاهر على تنسيق مشاركتي بالشكل الذي هي عليه الان وانا اتعلم منذ مواضيعك من اكثر من عامين واحاول الان ان فيد مما استفدت.

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

[محمد طاهر عرفه]

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

و فى انتظار المزيد :d

مرفق مثال سريع علي الكود

ColorRecord.rar