[Resolvido] Ocultar sub-relatório e ajustar layout

Bom dia! Tenho um relatório com um sub-relatório mas em alguns registros não possui dados para exibir e ele fica em branco deixando um espaço de meia folha na página.
Tem como ocultar e ajustar os campos para que não apareça o espaço em branco?
Obrigado!

Já testou no evento VBA do subrelatorio se não tiver registros ?

Private Sub Report_NoData(Cancel As Integer)
Me.Report.Visible = False
End Sub

Bom dia. Obrigado pela resposta mas não deu certo. O sub-relatório continua aparecendo mesmo sem dados.

julianovv veja o exemplo que lhe envio acho que é isso que queres, caso sim,é só fazer a adaptação para seu sistema

abra o formulário Pedido e clique no seletor de registro do formulário pedido para a mudança do sub, coloquei cores para você ver a mudança.

Veja tambem esse exemplo que eu postei no Repositório para ocultar subformulários sem dados:

http://maximoaccess.forumeiros.com/t543-ocultar-subform-sem-dados

Acho que consegues adaptar.

Olá João, obrigado pelo arquivo mas uso o Access 2003. O formato não é suportado.

Oi Criquio, muito legal seu exemplo. Ele funciona também para relatórios? É bem próximo do que preciso.
Obrigado!

Deve funcionar igualmente, embora, para relatórios, alem do evento "Nenhum dado", você ainda pode usar um outro truque, que seria colocar a altura dos subrelatórios em 0 e um imediatamente acima do outro, pois eles se auto expandem quando contem dados. Assim, o de cima empurra os outros para baixo para poder exibir todos os dados.

Ok. No meu caso, o relatório só tem um sub-relatório. Gostaria que os campos que existem após ele subissem para "tapar" o buraco.

Tente o truque que mencionei acima. Zere a altura dele e coloque os campos de baixo logo abaixo dele. Quando tiver dados, os campos serão empurrados para baixo, e quanto não tiver dados, os campos ficarão no local de origem.

Oi Criquio, fiz o teste aqui e deu certo. Não ficou 100% porque os campos abaixo não subiram tanto mas o resultado já ficou melhor.

Obrigado!

Você pode, ainda, tentar usar o evento "Ao carregar" ou "No atual" ou "Ao formatar":

Me.NomeCampo1.Top = Me.NomeDoSubRelatório.Top + Me.NomeDoSubRelatório.Height + 50
Me.NomeCampo2.Top = Me.NomeDoSubRelatório.Top + Me.NomeDoSubRelatório.Height + 50
Me.NomeCampo3.Top = Me.NomeDoSubRelatório.Top + Me.NomeDoSubRelatório.Height + 50

Isso para os campos da primeira linha. Se tiver mais linhas, vá usando os campos da linha de cima de cada uma no lugar do subrelatório:

Me.Campo4.Top = Me.Campo1.Top + Me.Campo1.Height + 50
...

Acredito que assim fique melhor alinhado.

Desculpe se for inconveniente ressucitar esse topico, mas estou com o mesmo problema.
A solução apresentada de colocar a altura do subrelatorio funciona, mas desde que ele não seja alterado.
No meu caso preciso colocar alguns rotulos com informações fixas, neste meu caso o subrelatorio aparece mesmo com valores vazios.
Aqui precisamos de um relatorio com subrelatorio para impressão de resultados de analises quimicas, portanto, ao lado dos valores encontrados vai uma legenda com os valores padrões. São 12 tipos de analises, mas nem todo exame pede todas, podem ser pedidas aleatoriamente, então fica inviavel deixar combinações pre-programadas.
Preciso de uma solução que gere um relatorio em que só apareçam os campos que possuam resultado, mas cada qual com sua legenda de padrão.
Não sou avançado no access e leigo em VB, portanto fico limitado as ferramentas do access mesmo.
Utilizo Access 2010.

Espero que possam ajudar.

Márcio Farias

Bom dia Márcio. Pelo menos pra mim tudo bem de reabrir o tópico..rs Tente usar a dica do Quicrio acima. Zere a altura do subrelatório e coloque os
campos de baixo logo abaixo dele e marque na propriedade: pode ampliar: sim.
Comigo até que funcionou mas quando tem muita informação no subrelatório, ele não está sendo dividido mas pula todo para a próxima página. Não gostei disso. Funcionou meio que "nas coxas"..rs
Abraço

Julianovv, obrigado pela resposta. Como relatei, já tentei a dica dele, quando o subrelatorio esta somente com os dados da consulta que o originam funciona. O problema é que preciso colocar junto aos dados uma legenda com valores padrões como referencia, quando acrescento essa legenda o subrelatorio sempre aparece no relatorio, mesmo quando a consulta é vazia, sem dados. Conseguiu entender?

Marcio Farias

Oi Marcio, se eu entendi, o sub-relatório está entrando em branco quando a consulta está vazia? Se está, então você deve colocar no campo dos dados, no critério da consulta "negado nulo" para que ela retorne somente com os dados. O relatório com certeza ficará oculto no sub-relatório.
Espero que eu tenha ajudado!
Abrs!

Obrigado a todos.
Funcionou as duas coisas juntas. Mas tenho outro problema, no total são 7 subformularios que podem aparecer ou não, todos de buscas que buscam o nome do proprietario o nome do animal e a data do exame. O problema é que tenho que digitar esses dados em todas as consultas, tem como eu digitar somente uma vez e servi como parametro para todas as consultas?

Mais uma vez muito obrigado.

Marcio Farias

Bom dia. Nesse caso você precisa rever o relacionamento das tabelas que devem estar como "um pra muitos" e associar os subformulários (nas propriedades vincular campos filho e campos mestre) à tabela principal onde está acoplada o primeiro formulário. Desta forma você digita os dados uma vez só e os subformulários exibirão os dados relacionados.
Espero ter ajudado!