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 colunas vazias no relatório

    avatar
    jowfs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    [Resolvido] Ocultar colunas vazias no relatório Empty [Resolvido] Ocultar colunas vazias no relatório

    Mensagem  jowfs 2/1/2017, 15:52

    Pessoal, boa tarde!

    Tenho uma tabela com as seguintes informações de custos:

    [ValorFrete] [ValorPedagio] [ValorEstadia] [ValorColeta] [Valor Reentrega] [ValorAjudante] [ValorTotal]

    Ocorre que além desses dados que serão exibidos em um relatório organizado em colunas, tenho outras informações e com isto, o tamanho do relatório supera o tamanho da página. Como para a grande maioria dos processos não há incidência de [ValorEstadia] [ValorColeta] [Valor Reentrega] [ValorAjudante], pensei em configurar o relatório para automaticamente ocultar as colunas cujo valor total dos ítens seja nulo. Ou seja, se não houver estadia, por exemplo, para o conjunto de dados exibidos, a coluna não apareceria no relatório e assim para os demais campos. Podem me ajudar a configurar isto no relatório?

    Valeu!


    Última edição por jowfs em 3/1/2017, 19:37, editado 1 vez(es)
    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 colunas vazias no relatório Empty Re: [Resolvido] Ocultar colunas vazias no relatório

    Mensagem  FabioPaes 2/1/2017, 19:14

    Amigo, não basta somente ocultar o campo... Digamos que vc oculte os Campos se o Valor do Campo A for 0... Mesmo assim o espaço em branco ficará la, e todo os outros campos serão dispostos no mesmo Lugar...


    Porem, o que da pra vc fazer é mover os campo e Aumentar seus tamanhos de acordo...

    Ex:

    Me.NomeCampo.Width = 2835 'Estou definindo a Largura do Campo em 5CM.
    Me.NomeCampo.Left = 567 'Estou Movendo o Campo para 1CM da borda esquerda.


    Então, dara trabalho... mas e possivel...

    Quando o Campo for nulo vc oculta os Campos e seus rotulos que nao devem aparecer, e move os Outros Campos, colocando logo apos o ultimo campo com dados a ser impresso.

    Obs: A unidade de medida padrão do VBA é twips; 1.440 twips equivalem a 2,54 cm


    Coloque a Verificação do Campo, na Guia detalhe, no evento ao Formatar:

    If NZ(Len(Me.CampoA),0)=0 then
    'Esta Nulo, entao oculte e mova os campos para a posição que pretente
    else
    'exiba os campos e os coloque exatamente na posição padrao.
    end if


    .................................................................................
    _____________________________________________________________________
    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!
    avatar
    jowfs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    [Resolvido] Ocultar colunas vazias no relatório Empty [Resolvido] Ocultar colunas vazias no relatório

    Mensagem  jowfs 3/1/2017, 19:36

    FabioPaes, muito obrigado!

    Eu até tinha feito uma tentativa de ocultar quando zerado no evento "ao carregar", mas como você disse, o espaço fica em branco.
    Segui suas instruções e resolvi incluindo no evento "ao carregar"

    Código:

        If Nz(AccessTotalsProcessoValorFreteMorto, 0) = 0 Then
        Me.ProcessoValorFreteMorto_Rótulo.Visible = False
        Me.ProcessoValorFreteMorto_Rótulo.Width = 1
        Me.ProcessoValorFreteMorto_Rótulo.Left = 1
        Me.ProcessoValorFreteMorto.Visible = False
        Me.ProcessoValorFreteMorto.Width = 1
        Me.ProcessoValorFreteMorto.Left = 1
        Me.AccessTotalsProcessoValorFreteMorto.Visible = False
        Me.AccessTotalsProcessoValorFreteMorto.Width = 1
        Me.AccessTotalsProcessoValorFreteMorto.Left = 1
        Else
        End If

    Tive que fazer uma pequena alteração, pois quando informado no campo o número "0", a coluna aparecia.
    Você é demais. Me ajudou muito!!!
    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 colunas vazias no relatório Empty Re: [Resolvido] Ocultar colunas vazias no relatório

    Mensagem  FabioPaes 3/1/2017, 22:16

    Que bom que deu certo amigo! Até a próxima se Deus quiser!

    Se possível, para o tópico ficar completo posta esse exemplo pra ajudar os próximos com mesma duvida!


    .................................................................................
    _____________________________________________________________________
    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!

      Data/hora atual: 16/4/2021, 21:08