[Resolvido]Não Abrir Relatório Pop-Up c/ Sub Relatório sem Dados

Viva,

Queria saber como consigo fazer para que um Relatório não abra se o Sub Relatório não contiver dados?

Existem exemplos para aplicar no Relatório mas não encontro nada para os Sub Relatórios.

Agradeço antecipadamente a atenção dispensada.

Cumprimentos

Bruno Gordino

Boa noite Bruno

Teste no relatório e no subrelatório.

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo 1
MsgBox "Não Existem Dados Registados Para Visualizar...", vbCritical, "Aviso"
Cancel = True
1: DoCmd.openForm "Nome do seu formulárioPrincipal"
End Sub

Viva Sr. Assis,

Antes demais o meu obrigado pela atenção dispensada.

Já tinha tentado o código que me facultou no Report e no Sub-Report.

No entanto apliquei-o conforme descrito e não surtiu qualquer efeito.

Já facultei o exemplo que deve ser experimentado através do "Frm_AbreReport", pois é este que invoca o Relatório de uma "Marca" mas que não tem qualquer "Modelo" relacionado.

Espero ter-me explicado correctamente.

Cumprimentos

Bruno Gordino

Testa no evento "ao receber foco" do relatório, isso:

If IsNull(Reports!Rpt_Marca!Rpt_Modelo.Report!Des_Marca) Or Reports!Rpt_Marca!Rpt_Modelo.Report!Des_Marca = "" Then

MsgBox "Não existem Dados a serem mostrados!", vbExclamation, "SUB-RELATÓRIO VAZIO"
DoCmd.Close acReport, "Rpt_Marca"

End If

Viva,

O meu Muito Obrigado Sr. Beto Givoni pois funcionou até certo ponto, já tinha experimentado Variáveis, diversos IF´s e nada.

O problema é que se a propriedade Pop-Up do Relatório estiver activada o código não funciona.

Cumprimentos

Bruno Gordino

Viva,

Deixo aqui o exemplo com o código, facultado pelo Sr. Beto Givoni, já incrementado.

O Report neste exemplo contém a propriedade Pop-Up activada.

Cumprimentos

Bruno Gordino

Faz assim. Tira o Popup do relatório, elimina a macro do botão do Frm_AbreReport que abre o relatório e coloca no evento ao clicar desse botão:
Me.Visible = False
DoCmd.OpenReport "Rpt_Marca", acViewPreview, , , acWindowNormal

E no evento ao fechar do Rpt_Marca coloca:
Forms!Frm_AbreReport.Visible = True

Elimina do relatório tanto o Popup quanto a janela restrita (Modal), ou seja coloca os 2 como False.

Viva,

Este Relatório, assim como outros, é seleccionado através de um mini Formulário também com estilo Pop-Up e Modal a verdadeiro.

Não existe maneira de ultrapassar isto mantendo o Relatório com o Pop-Up e o Modal como Verdadeiros?

É que se não estiver assim o Relatório ficará por baixo do mini Formulário.

Obrigado mais uma vez.

Cumprimentos

Bruno Gordino

Amigo, vc não leu o post anterior ao último? Quando vc manda abrir o relatório o mini formulário fica invisível e ao fechar o relatório o mini volta a ficar visível é só seguir as orientações que passei no anti penúltimo post.

Boas,

É verdade, não reparei na sua resposta anterior, as minhas desculpas.

Vou experimentar e depois dou o retorno.

O meu obrigado

Cumprimentos

Bruno Gordino

Viva Sr. Beto Givoni,

Agora sim, funcionou 5****!

Muito obrigado mesmo.

Cumprimentos

Bruno Gordino

Congratulações do fórum pelo retorno e fechamento do tópico.