[Resolvido]Vários Relatorio sem dados dentro de um relatório

Boa noite

Uso este código para não abrir um relatório sem dados.
Se Abrir o relatório e não tiver dados não chega a abrir, pois dá a informação de: "Não Tem Dados para Imprimir" .

Mas se eu colocar um relatório com este código, dentro de outro relatório, com mais dois relatórios que também têm o código, para imprimir tudo num só relatório, a mensagem de não ter dados não aparece.

Se todos os relatórios inseridos não tiverem dados, aparece uma página em branco.

Private Sub Report_NoData(Cancel As Integer)
Dim strMsg As String, strTitle As String
Dim inStyle As Integer
strMsg = "Não Tem Dados para Imprimir"
inStyle = vbOKOnly
strTitle = "Aviso"

MsgBox strMsg, inStyle, strTitle
Cancel = True
End Sub

Access 2003
Obrigado

Ola Assis;

Retire esse codigo de todos os subrelatorios e teste apenas no relatorio este;

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Não Tem Dados para Imprimir"
Cancel = -1
End Sub

Se preferir esconder os subrelatorios que não têm dados, faça assim;

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Não Tem Dados para Imprimir"
Cancel = -1
End Sub

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Me!sub1.Visible = Me!sub1.Report.HasData
Me!sub2.Visible = Me!sub2.Report.HasData
Me!sub3.Visible = Me!sub3.Report.HasData
End Sub

Boa noite JPaulo

Com o seu código:

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Não Tem Dados para Imprimir"
Cancel = -1
End Sub


Os relatórios que não tem dados não aparecem.

Mas se todos os incluidos ( são nove) no relátorio, não tiverem dados, a mensagem não aparece, mas abre com uma pagina em branco

Fiz o teste em um relatorio, inseri 9 subrelatorios sem dados e o relatorio dá a mensagem apenas com esta instrução;

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Não Tem Dados para Imprimir"
Cancel = -1
End Sub

Agora não sei o porquê de abrir um relatorio em branco, nessas coisas só vendo mesmo.