[Ahmed_Mansoor]

إنسخ هذا الكود وألصقة داخل كود التقرير , يعني إضغط على أي مكان في التقرير دبل كلك , ملاحظة : لابد أولاً من تغيير خاصية الـ BackStyle التابعة لقسم الـ Detail إلى القيمة 1 أو Normal :

كود :

Dim zCounter As Integer


Private Sub ActiveReport_ReportStart()

zCounter = 0

End Sub


Private Sub Detail_Format()

If zCounter Mod 2 = 0 Then
   Detail.BackColor = &H80FFFF
Else
   Detail.BackColor = &HE0E0E0
End If

zCounter = zCounter + 1

End Sub