[Resolvido]Não relatório em branco

Estou o seguinte código no evento nenhum dado
MsgBox "Não Dados para Este Fornecedor", vbExclamation, "SYSNOTAS"
Cancel = True



porem ao dar ok ele segue para próximo evento que do botão

ao clicar do botão
DoCmd.OpenReport "relcompcli", acViewReport

Código:

Private Sub SeuBotão_Click()
On Error GoTo 1
    DoCmd.OpenReport "relcompcli", acViewReport
1:
If Err.Number = 2501 Then Exit Sub
End Sub


Obrigado JPaulo bombou!

Fico feliz.

Obrigado pelo retorno o forum agradece.