Kod:
Private m_RowCount As LongKod:
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
m_RowCount = m_RowCount + 1
If m_RowCount / 2 = CLng(m_RowCount / 2) Then
Me.Ayrıntı.BackColor = 15263976 'Change value to the color you desire
Else
Me.Ayrıntı.BackColor = 14811135 'Change value to the color you desire
End If
End Subbunu deneyiniz
Seruz Hocam cevabı vermiş zaten sonradan gördüm...