[Resolvido]Ocultar Linha a cada 4 registos

Viva a todos,
Como posso fazer para por cada 4 registos, incluindo o primeiro, não seja visível uma Linha horizontal que separa cada registo?
Cumprimentos

Bruno Gordino

Olá Bruno Gordino,

Talvez consiga se tiver um campo numerico sequencial.
Inserindo um registo vazio a cada multiplo 5.

Ficando a tabela algo assim
1 aaa
2 bbb
3 xxx
4 vvv
5
6 hhh
7 kkk
8 ppp
9 vvv
10
11 hhh
...

Abraço

Viva Sr. Teixeira,
Já há algum tempo que não nos cruzávamos.

Vou explicar melhor, no "Detail" do Report tenho uma "Unbound" (txtRecCount) com "=1" em "Over All" para fazer a contagem do registo.

Como só cabem 4 registos por página, tenho VBA no "Detail_Format" assim:

Código:

   If Me.txtRecCount = 1 Or Me.Me.txtRecCount = 4 Or Me.Me.txtRecCount = 8 ... Then
        Me.lin_1.visible = False
    Else
        Me.lin_1.visible = True
    End If

O que eu quero é alterar este código ...

Código:

If Me.txtRecCount = 1 Or Me.Me.txtRecCount = 4 Or Me.Me.txtRecCount = 8

... por um outro, mas decente, que torne a linha invisível de 4 em 4 registos.

Espero ter-me feito perceber.

Obrigado

Bruno Gordino

Olá Bruno Gordino,

Vamos deixar o Senhor a tomar conta de todos nós, quem bem precisamos!
Teixeira só está bom.

Se compreendi bem, pretende quando o contador é 1 ou multiplo de 4, exemplo:
1
4
8
12
16
...

Se é este o caso podemos usar a divisão por 4 e verificar se o resultado é 0.

Veja como fica no código:

Código:

Dim x4
x4 = Me.txtRecCount Mod 4

    If Me.txtRecCount = 1 Or x4 = 0 Then
          Me.lin_1.Visible = False
    Else
          Me.lin_1.Visible = True
    End If

Abraço

Boa tarde Álvaro,

Só agora reparei que tinha Postado e mais uma vez resolveu o meu problema.

Sr. Teixeira, ups, Álvaro, o meu sincero muito obrigado.

Boas férias ou boa semana de trabalho se for o caso, até uma próxima e tudo de bom para si.

Cumprimentos

Bruno Gordino

Tópico com Duvida muito interessante! Por favor, para enriquecermos o Fórum, poste o Exemplo final com a Solução! Assim fechará com 10 o Tópico!

Olá a todos,

Bruno Gordino, fico feliz por ter ajudado, obrigado pelo retorno.
Não se esqueça de dar o tópico como resolvido, veja aqui como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Fabio Paes, também concordo, vamos aguardar se o colega arruma um tempinho para criar um exemplo.

Abraço