MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : Respeito às Regras 100%

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

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

    Mensagem  brunogor 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 : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  brunogor 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 : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  brunogor 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 : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 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: 17/4/2021, 15:31