Kod:
Private m_RowCount As Long
Kod:
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 Sub
bunu deneyiniz
Seruz Hocam cevabı vermiş zaten sonradan gördüm...