Caro RMI,
realmente esta pergunta já foi colocada aqui no fórum algumas vezes, até mesmo por mim, e nunca achei resposta, daí improvisei uma coisa:
1) Criei no módulo uma rotina assim:
sub BiblioErro (Módulo as string,TextoErro as string, NErro as string)
msgbox "Ocorreu um erro desconhecido " & NErro & "-" & TextoErro & ", no módulo " & Módulo & " favor entrar em contato com fulano"
End Sub
2) e num procedure que possa ter erro coloquei:
On error goto Corrige:
comandos
Corrige:
if err.number >0 then
BiblioErros "NomeMódulo", err.description,err.number
'chama o msgbox da rotina que criamos
Resume next
end if
espero ter ajudado, até alguém realmente responder outra maneira..
