Raporda satır renklendirme nasıl yapılır?

[TURISSEMOS]

Arkadaşlar arama yaptım fakat accessde bir satır atlayarak renklendirme örneğini bulamadım.Uğraştım fakat yapamadım.Bilen arkadaşların yardımı eminim tüm arkadaşlarada faydası dokunacaktır.Teşekkürler.

 

[gulsum1]

Option Compare Database
Option Explicit
Dim Cnt
Const MaxL = 20

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
Cnt = Cnt + 1
Kutu8.BackColor = IIf(Cnt Mod 2 = 0, RGB(255, 255, 255), RGB(222, 222, 222))
If Cnt >= CLng(Me.no) Then Me.NextRecord = False
If Cnt > CLng(Me.no) Then

End If
If Cnt >= MaxL Then
Me.NextRecord = True
End If

End Sub

Private Sub SayfaAltbilgisiBölümü_Format(Cancel As Integer, FormatCount As Integer)
Me.NextRecord = True
End Sub

Private Sub SayfaÜstbilgisiBölümü_Format(Cancel As Integer, FormatCount As Integer)
asd.Visible = True
Me.NextRecord = True

End Sub

 

[TURISSEMOS]

Çok teşekkür ederim sayın gülsüm hanım. Yine size yakışan şekilde sorunu çözdünüz.denedim.aceess raporlarında tek satır atlayarak renklendirmek isteyen arkadaşlar sadece şunu yazarak renklendirebiirsiniz.
şu kodu open veya load kısmına yazın.text kısmını değiştirin.
Option Compare Database
Option Explicit
Dim Cnt
Const MaxL = 20
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Cnt = Cnt + 1
Me.Text44.BackColor = IIf(Cnt Mod 2 = 0, RGB(255, 255, 255), RGB(222, 222, 222))