Fechar um relatório automaticamente se ele não contiver todos os registros

O exemplo a seguir mostra como usar o evento NoData para cancelar a abertura ou impressão de um relatório quando ele não tem dados. Será exibida uma caixa de mensagem notificando o usuário de que o relatório não contém dados.

Private Sub Report_NoData (Cancel As Integer) 
     
    ' Display message to user. 
    MsgBox "There are no records to report", vbExclamation, "No Records" 
 
    ' Close the report. 
    Cancel = True 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.