[Resolvido]Mensagem de erro do VISUAL BASIC visivel

Criei um relatório e inseri um código simples para a visualização de impressão

EVENTO/AO CLICAR
DoCmd.OpenReport "RelFichaCirculacao", acViewPreview

No RELATÓRIO SE NENHUM DADO
 MsgBox "Sem informações para este relatório", vbExclamation, "Erro"
 Cancel = True

Até ai tudo bem, só que depois surge uma mensagem de erro do VISUAL BASIC que diz:

Microsoft Visual Basic
Erro em tempo de execução '2501':
A ação OpenReport foi cancelada
Continuar Fim Depurar Ajuda

Como faço para que esta mensagem NÃO APAREÇA.

Grato pela ajuda.

Marcus

Experimente assim:

if Dcount ("*","NomeDaTabelaOuConsultaDeOrigemDoRelatório") < 0 then 'Se houver registro ...

     DoCmd.OpenReport "RelFichaCirculacao", acViewPreview

Else ' se não houver

    MsgBox "Sem informações para este relatório", vbExclamation, "Erro"

End If

Assim, irá somente abrir o relatório se houver informações para o registro.

Não esqueça de retirar o código anterior do relatório.

[ ]'s

Grato meu amigo.
Funcionou, porém ele emite a MSG e ainda assim a ação anterior que determina a visualização do relatório não é interrompida e o mesmo surge em branco. Como (não havendo dados) eu emito a MSG e CANCELO a ação de visualização do RELATÓRIO mesmo em branco?

Amigo, provavelmente terá que ignorar o Erro 2501, pois esta sendo acionado pelo Cancel = true

Dica1: Troque o Cancel = True 
por: DoCmd.Close acReport, "RelFichaCirculacao" 



Dica2: Ignorando o Erro 2501: Mude o Seu comando para este:

On Error GoTo 1

'Coloque aqui todo o Comando que apresenta o erro... Todas as linhas ficam aqui....

1:
If Err.Number = 2501 Then 'Ignora o Erro 2501
       Err.Number=0
       Exit Sub
   Else

       MsgBox Err.Description
       Exit Sub
   End If


Nesse caso quando o Usuário cancelava a ação, era exibido esse erro 2501 dizendo que o usuário cancelou a ação...

Marcus

Também estou achando que você não tirou todos os códigos que usava para abrir o relatório.

Se não conseguir, separe a tabela, formulário , consultas se houver e relatório e poste aqui, para

nós analizar.

Grato Noobezinho.
Realmente NÃO HAVIA FUNCIONADO por eu ter inserido o código no evento SE NENHUM DADO do relatório e não no AO CLICAR no btn que chamava o mesmo.
Fiz a correção e funcionou PERFEITAMENTE.
Muito obrigado pela ajuda de todos.

Marcus

Ótimo que resolveu !!

Só precisa colocar o Resolvido no título do tópico.

Não precisa enviar outra msg para isso , é só

editar qualquer msg tua e clicar no botão resolvido

Boa sorte !!

Grato a todos