Erro em tempo de execução '2501"

Pessoal, boa tarde.

Primeiramente adianto que não conheço muito de VBA, mas estou arriscando.

Criei um botão para enviar o relatório por e-mail e está funcionando perfeitamente, exceto quando o usuário desiste de enviar o e-mail e o fecha, daí aparece a msg de erro:

Erro em tempo de execução '2501':
A ação SendObject foi cancelada.

A situação fica pior quando restrinjo o BD, nesse casso o Access trava e só fecha através do gerenciador de tarefas.

Pesquisei vários tópicos sobre o assunto mas sem sucesso.

Já tentei e não deu certo:

1-On Error GoTo
2-On Error Resume Next


Agradeço a atenção desde já.

Bom dia e bem-vindo ao fórum

Movi-lhe a dúvida para esta sala, porque não se trata de Macros mas de VBA

Sobre a sua dúvida, faça a validação antes da instrução de envio.
Por exemplo, coloque If Msgbox ("...",vbyesno)=vbno then exit sub

Pessoal encontrei esse tópico aberto e resolvi colocar aqui o que resolveu pra mim...

Eu não sei o porque desse erro que trava o banco de dados a ponto de ter que finalizar a tarefa para poder fecha-lo.

Mas, o que eu fiz e resolveu foi colocar o formulário onde está o botão de criar o email como POPUP = NÃO

Espero ajudar outras pessoas com esse problema.

Abraços