تلوين اسطر التقرير المكون من عمودين

[شامل2]

 

السلام عليكم

هل توجد طريقة او كود معين لتلوين اسطر التقرير المكون من عمودين

بحيث يكون التلوين بين سطر واخر  ( مثلا : ابيض ثم رصاصي .. وهكذا لغرض التمييز بين الاسطر)

 

 

 

[ابوخليل]

Dim GrayLine As Boolean  ' ضع هذا السطر في راس المحرر

'..............................................

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If GrayLine = True Then
    Me.تفصيل.BackColor = 14933454  ' رمادي
    GrayLine = False
Else
    Me.تفصيل.BackColor = 16777215  ' ابيض
    GrayLine = True
End If
End sub

[يوسف أحمد]

باراك الله فيك استاذنا العزيز ابو خليل و جزاك خير الجزاء

 

اضافة الى ما تفضلت به مشكوراً اضع بعد اذنك كود آخر للفائدة بنفس الحدث ( عند التنسيق ) لقسم التفصيل للتقرير : 

Static intA As Integer


If intA Mod 2 = 0 Then
    Me.Detail.BackColor = 14933454
Else
    Me.Detail.BackColor = 16777215
End If
intA = intA + 1

بالتوفيق للجميع

[شامل2]

 

السلام عليكم

بارك الله في سعيكما

حفظكم الله