[Resolvido]Mensagem p/relatorio c/dois subrelatorios sem dados

Boa noite colegas.....
Há vários relatórios no bd com dois subRelatorios cada, mas ocorre que alguns deles, que somente no decorrer do tempo haverá dados, processam sem haver dados e pretendo impedi-los. No evento se nenhum dados tem o seguinte cod,

Private Sub Report_NoData(Cancel As Integer)
Dim strMsg As String, strTítulo As String
Dim intEstilo As Integer

strMsg = "Não neste Relatório, verifique."
intEstilo = vbOKOnly
strTítulo = "Controle de Empréstimo"

MsgBox strMsg, intEstilo, strTítulo
Cancel = True
End Sub

Mas não impede o processo. Será que para subRelatorios há outro código?
Obrigado pela atenção......

Você tem um relatório com dois subs e quer que eles só possam ser abertos quando um dos subs contiver dados, é isso? Se for, você pode contar os dados da tabela ou consulta que alimenta os subs no botão que abre o relatório:

If DCount("*", "TabelaDoSubUm") = 0 And DCount("*", "TabelaDoSubDois") = 0 Then
MsgBox "Não há dados a serem exibidos", vbOkOnly + vbCritical, "Atenção"
Else
DoCmd.OpenReports "NomeDoRelatório"
End If

ou pode colocar tambem no evento "Ao carregar" do relatório:

If DCount("*", "TabelaDoSubUm") = 0 And DCount("*", "TabelaDoSubDois") = 0 Then
MsgBox "Não há dados a serem exibidos", vbOkOnly + vbCritical, "Atenção"
DoCmd.Close
Else
Exit Sub
End If

Boa noite Criquio, vou testar e de dou retorno..........

Criquio a segunda o~çõa não deu certo......
A primeira aparece erro cfe poderá vereficar no doc em anexo
Obs o cod esta no evento ao apertar mouse, porque no ao clicar há vários cod....
http://www.speedyshare.com/files/29444333/Doc1.doc

Tente:

If DCount("*", "TabelaDoSubUm") = 0 And DCount("*", "TabelaDoSubDois") = 0 Then
MsgBox "Não há dados a serem exibidos", vbOkOnly + vbCritical, "Atenção"
Else
DoCmd.OpenReports "NomeDoRelatório", acViewReport
End If

ou

If DCount("*", "TabelaDoSubUm") = 0 And DCount("*", "TabelaDoSubDois") = 0 Then
MsgBox "Não há dados a serem exibidos", vbOkOnly + vbCritical, "Atenção"
Else
DoCmd.OpenReports "NomeDoRelatório", acViewPreview
End If

Lembrando que deve trocar TabelaDoSubUm e TabelaDoSubDois pelos nomes corretos das tabelas ou consultas que alimentam os subrelatórios.

Boa noite colega Criquio... desculpe pela demora em responder-çhe....
A principio aparece a caixa de mensagem "Não há dados a serem exibidos" mas dando ok ele abre novamente o rel.... vou tentar um código assim :DoCmd.OpenForm "Relatorios", acNormal

Por enquanto não estou conseguindo Criquio, mas estou testando.......

Há um errinho no código acima. Tem um "s" a mais no Report. Tente assim:

If DCount("*", "TabelaDoSubUm") = 0 And DCount("*", "TabelaDoSubDois") = 0 Then
MsgBox "Não há dados a serem exibidos", vbOkOnly + vbCritical, "Atenção"
Else
DoCmd.OpenReport "NomeDoRelatório", acViewReport
End If

Sim Criquio já percebi isto ontem....ja tirei ontem mesmo....

Criquio funciona em parte..... eu eliminei um cod. no click que funcionava bem.
Private Sub Comando41_Click()
DoCmd.Close acForm, "Relatorios"
On Error GoTo Err_Comando41_Click

Dim stDocName As String

stDocName = "RelChequesBaixadosClientes"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Close acForm, "FrmRelBaCliente"
Exit_Comando41_Click:
Exit Sub

Err_Comando41_Click:
MsgBox err.Description
Resume Exit_Comando41_Click
End Sub

Criquio estou com dificuldade....
O que funciona agora......
Troquei o código acima pelo seu, em ambos os casos funciona, se não há dados ele não abre o rel e se há abre, tudo bem é isso mesmo.
o que não funciona
Para processar os rel eu criei um form para filtrar o relatório só que dado ok executa o seu código mas não fecha o form e é isso que estou tentando....
Pode me ajudar?????

Posta o código completo que está usando.

Consegui Criquio, despois de uns ticos e tecos.... ficou assim

If DCount("*", "CsAcBaCliente") = 0 And DCount("*", "CsDesBaCliente") = 0 Then
MsgBox "Não há dados a serem exibidos", vbOKOnly + vbCritical, "Atenção"
Else
DoCmd.OpenReport "RelChequesBaixadosClientes", acViewPreview
DoCmd.Close acForm, "FrmRelBaCliente"
Exit_Comando41_Click:End If

Acrescentei as linhas em vermelo. obrigado Criquio......

Na ordem...resolvido
Private Sub Comando41_Click()
If DCount("*", "CsAcBaCliente") = 0 And DCount("*", "CsDesBaCliente") = 0 Then
MsgBox "Não há dados a serem exibidos", vbOKOnly + vbCritical, "Atenção"
Else


DoCmd.OpenReport "RelChequesBaixadosClientes", acViewPreview
DoCmd.Close acForm, "FrmRelBaCliente"
Exit_Comando41_Click:
End If



End Sub