درس في تلوين الصفوف في التقرير

السلام عليكم

شخباركم ...

حبيت اشارك بموضوع وهو عبارة عن

تلوين صفوف التقرير ...

1 - نضغط دبل كليك على Detail

2 - نختار تبويب Event

3 نختار on format

ثم نكتب الكود

اقتباس

Dim 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 = 15263976

Else

Me.Detail.BackColor = 14811135

End If

End Sub

1 - نضغط دبل كليك على Sal Header

2 - نختار تبويب Event

3 نختار on format

ثم نكتب الكود

اقتباس

Option Explicit

Dim blanalternate As Boolean

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)

If blanalternate Then

Me.Detail.BackColor = 15263976

GroupHeader0.BackColor = 15263976

Else

Me.Detail.BackColor = 14811135

GroupHeader0.BackColor = 14811135

End If

blanalternate = Not (blanalternate)