[Resolvido]Inibir vários relatórios

Olá, pessoal!
Mais uma vez recorro a esse fórum que tanto tem ajudado pessoas como eu que não domina o access.

Tenho esse código para impedir que um relatório abra se não houver dados para mostrar.

Private Sub Report_Activate()

If DCount("*", Me.RecordSource) = 0 Then

MsgBox "Não existem registros para mostrar", vbDefaultButton1, "Erro!"

DoCmd.Close acReport, "Rel Retiradas"

End If
End Sub

Como utilizá-lo uma única vez para vários relatórios, sem que preciso escrevê-lo para cada um?

Abs,

Nelio Borges

Para relatório que não contem dados.. basta apenas este no evento: Se nenhum dado

Private Sub Report_NoData(Cancel As Integer)
On Error Resume Next
MsgBox "Não há dados para este relatório. Cancelando o relatório...", , "Atenção"
Cancel = -1
End Sub

Harysohn, boa tarde!

O código funciona para um relatório, para os outros tenho que escrever o código de um em um.

É possível ter um código único para todos?

Abs,

Nelio Borges

Como estes relatórios são abertos?

Atraves de um botão?
todos em um form apenas?

Amigão.. eu acredito que tenha que colocar em todos os relatorios... nunca vi código unico para todos os relatórios..

Não que não tenha.. mas pelo menos eu nunca vi

Saudações

Amigão

Siga o conselho do Haryshon e faça isso um a um. Não são milhares, serão 10 ou 15? Copy paste e vai ver que só tem a ganhar. Obrigado

Harysohn,
OK! Vou colocar o código em cada um.

Se um dia aparecer alguem que conheça, gostaria de conhecer.

Abs,

Nelio Borges

Vá passando pelo melhor dos fóruns. Estamos sempre recheados de novidades e muitos exemplos. Abração.

Valeu... Bom trabalho!