MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ocultar Linha a cada 4 registos

    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 220
    Registrado : 24/02/2013

    [Resolvido]Ocultar Linha a cada 4 registos Empty [Resolvido]Ocultar Linha a cada 4 registos

    Mensagem  brunogor em 19/7/2017, 17:28

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6683
    Registrado : 15/03/2013

    [Resolvido]Ocultar Linha a cada 4 registos Empty Re: [Resolvido]Ocultar Linha a cada 4 registos

    Mensagem  ahteixeira em 20/7/2017, 09:07

    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
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 220
    Registrado : 24/02/2013

    [Resolvido]Ocultar Linha a cada 4 registos Empty Ocultar Linha a cada 4 registos

    Mensagem  brunogor em 20/7/2017, 12:39

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6683
    Registrado : 15/03/2013

    [Resolvido]Ocultar Linha a cada 4 registos Empty Re: [Resolvido]Ocultar Linha a cada 4 registos

    Mensagem  ahteixeira em 22/7/2017, 11:11

    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
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 220
    Registrado : 24/02/2013

    [Resolvido]Ocultar Linha a cada 4 registos Empty Ocultar Linha a cada 4 registos

    Mensagem  brunogor em 23/7/2017, 19:33

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Ocultar Linha a cada 4 registos Empty Re: [Resolvido]Ocultar Linha a cada 4 registos

    Mensagem  FabioPaes em 23/7/2017, 20:34

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6683
    Registrado : 15/03/2013

    [Resolvido]Ocultar Linha a cada 4 registos Empty Re: [Resolvido]Ocultar Linha a cada 4 registos

    Mensagem  ahteixeira em 24/7/2017, 11:59

    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

      Data/hora atual: 31/5/2020, 23:36