[Resolvido] Ocultar colunas vazias no relatório

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!

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

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

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!