[Resolvido]Mudar cores de linhas

Ola Amigos ,

Não sei se é possivel mas vamos lá.. tenho um relatório com relação das equipes classificadas e nao classificadas do campeonato , estou usando o codigo abaixo ao formatar o formulario para deixar um linha cinza e a outra branca:

Código:


FormataZebrado Me


Minhas pergunta é tem como apartir do 12 time dessa relação ao inves de sair cinza sair outra cor ???

FormatoZebrado deve ser o nome de uma função. Como é o código dessa função?

Coloque uma caixa de texto desvinculada no detalhe, dê o nome de txtConta e na fonte de controle digite =1
ainda nas propriedades dessa caixa de texto, linha Soma Parcial escolha "Total" ou Por Grupo.

Cole este codigo no evento VBA ao formatar da secção detalhe.

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Const lngcNormal = 16777215 'branco
Const lngcHighlight = 12632256 'cinzento
Const lngcRowSwap As Long = 12 'quantidade de linhas
Dim strCor As Long

If ((Me.txtConta - 1&) \ lngcRowSwap) Mod 2 = 0 Then
strCor = lngcNormal
Else
strCor = lngcHighlight
End If

With Me.Section(acDetail)
If .BackColor <> strCor Then
.BackColor = strCor
End If
End With
End Sub

Ola Jp ..

Fiz como no seu exemplo mas esta dando erro na linha abaixo :

Código:

If ((Me.txtConta - 1&) \ lngcRowSwap) Mod 2 = 0 Then

Detalhe não encotrei na propriedade linha Soma Parcial escolha "Total" ou Por Grupo. pode ser isso ?

Obrigado

Bom Dia Fabio;

O meu está em ingles mas é assim;



Essa linha para dar erro, tem de ter o nome da caixa de texto mal, reveja.

Bom Dia Joao Paulo,

Encontrei aqui .. agora funcionou certinho...

Obrigado pela Dica....

Tópico resolvido é Resolvido. Mudando o Status para Resolvido. Precisando novamente, assovie.