(Resolvido) Evitar que um relatório abra se não houver registros

[NFAC]

olá alguém sabe a resposta a esta questão?

Este é o exemplo para um formulário:

If Form.RecordsetClone.RecordCount = 0 Then

MsgBox “Não encontrei registos.”, vbExclamation, “Erro!!!”

DoCmd.Close acForm, “localizar dados”

Exit Sub

End If

´não sei é fazer para um relatório.

O relatório tem uma consulta por trás, que dps dependendo da pesquisa terá um resultado , caso não tenha resultado algum , queria que devolvesse uma msg de erro do tipo "Não foram encontrados dados!!!"

Obrigado:)

Editado Maio 3, 2010 por NFAC

[MrMALJ]

Na propriedade de eventos "Se nenhum dado" do relatório faça um código assim:

DoCmd.SetWarnings False
DoCmd.CancelEvent
DoCmd.SetWarnings True
MsgBox "não há dados para gerar o relatório", vbOKOnly + vbInformation, "Mr. MALJ"

Esse código resolve, aguardo retorno para colocar o tópico como resolvido!

[NFAC]

Boas,

:lol: funcionou perfeitamente:D o meu muito obrigado:)

Pode pôr [RESOLVIDO]

Só uma questão, também se pode adaptar isto a um formulário?

Cumprimentos e obrigado ;)

[MrMALJ]

Desse modo não, a dúvida principal foi solucionada, grato pelo retorno!