[Resolvido]Fechar relatório quanto não tiver registro

meus amigos boa noite, eu não quero que o relatório abra quando não tiver registro.

Código:

Private Sub Report_NoData(Cancel As Integer)
MsgBox " Não há registro nesse mês/ano    "
DoCmd.Close "serviçosRelatorio"
End Sub


Olá,

Se a dúvida é de Relatórios, não deve abrir em Macros.
Tenha mais atenção, tópico movido.

Quanto à questão, teste assim:

Código:

Private Sub Report_NoData(Cancel As Integer)
  MsgBox " Não há registro nesse mês/ano    ", vbExclamation, "Aviso"
  Cancel = True
End Sub

Abraço

ele funciona ,mas eu ja tenho um vba para abrir ele , esse código que mandou , ja impede de abrir, ou seja , ao abrir relatorio ele ja pede mês e o ano , se não tiver nenhuma dado ele não abre , esse código ai não deixa exibir a mensagem

Olá,

Partilhe base de dados com objectos da duvida para se testar.

Abraço

tive quer abri ele por uma macro  infelizmente quando eu cancelo o evento  da erro , e não consigui tratar esse erro, me ajuda também a tratar esse erro
e quando não tem nenhum dado ele fecha o sistema todo
drive.google.com/open?id=19xJdQOxoNvEAHRkvMKvQcr856gMRpgsi

Olá,

Se compreendi bem a dúvida, será fazer um tratamento de erros, pode ser assim por exemplo:

Código:

On Error GoTo Err_Rep

    DoCmd.OpenReport "serviçosRelatorio", acViewPreview

Exit_Rep:
    Exit Sub

Err_Rep:
    If Err.Number = 2501 Then
        Resume Exit_Rep
    Else
        MsgBox Err.Number & "-" & Err.Description, vbCritical
        Resume Exit_Rep
    End If

Se tiver duvida, segue o meu teste:
cld.pt/dl/download/ea87fed0-713e-412e-8a24-0a2386119063/Arq_rev.zip

Abraço

consegui aqui , nunca achei que esse pequeno código iria ser utilizado em reports.

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Não ha registro desse mês/ano", vbInformation, "Relatório"
Cancel = True
End Sub
Obrigado pela atenção