[Resolvido]Relatório Zebrado

Como faço para criar um relatório zebrado.

Quero que cada linha tenha uma cor uma azul claro, e outra azul mais escuro, uma clara e outra escura.

Tenho este codigo que deixa uma linha cinza e outra braca.

Private Sub PeencherCinza()

Const COR_CINZA = 16737843
Const SM_TWIPS = 0
Const DS_INVISIBLE = 5
If fCinza Then
Me.ScaleMode = SM_TWIPS
Me.DrawStyle = DS_INVISIBLE
Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeigth), COR_CINZA, BF
End If
fCinza = Not fCinza
End Sub

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Call PreencherCinza
End Sub

Private Sub PageHeader0_Format(Cancel As Integer, FormatCount As Integer)
fCinza = True
End Sub


Funcionava, mas ta dando erro na linha
Call PreencherCinza


Alguem pode me ajudar

Qual é a versão do Access? No 2007 e 2010 tem essa função nativa com o nome de "Cor de fundo alternativa".

É na versão 2003

Eu tinha um exemplo, mas eu exclui eu acho.

não localizo

e agora to precisando muito.

Dê uma olhada aqui:

http://maximoaccess.forumeiros.com/t2403-resolvidocor-da-linha-zebrada-em-relatorio

Option Compare Database
Const vbLightGrey = 12632256

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If Me.CurrentRecord Mod 2 = 0 Then
Me.Section(acDetail).BackColor = vbLightGrey
Else
Me.Section(acDetail).BackColor = vbWhite
End If

End Sub

Este codigo funcionou, aparece uma linha cinza e outra branca.

Vou tentar modificar.

Muito obrigado pela ajuda meu amigo.

Grato pelo retorno. Quanto à alteração, tente mudar o valor dessa linha:

Const vbLightGrey = 12632256

Fiz algumas alterações e deu certo.

Como sou iniciante isso é uma conquista. rsrsr

Option Compare Database

Const Primeira = 16764057
Const Segunda = 16740000

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If Me.CurrentRecord Mod 2 = 0 Then
Me.Section(acDetail).BackColor = Primeira
Else
Me.Section(acDetail).BackColor = Segunda
End If

End Sub

Ótimo. É por aí mesmo que a carruagem passa

Brigado mesmo pela ajuda meu amigo.

Tenha um boa sexta-feira e um otimo final de semana.