Eu aplaudo-o para querer um alimentador comum do erro. Deixar-me explicar como eu o faço.
Criar uma função global para sua lógica comum do alimentador do erro. “O ponto de entrada de seu app” pode trabalhar--Eu não sei--precisa de ser acessível de em qualquer lugar. Deixar-nos chamar esse functio ErrorRoutine ().
Codificar então todos os suboutines qualquer outra coisa semelhante:
MySub secundário confidencial ()
No revestimento empreendedores do erro
….
No resumo do erro em seguida
…
No revestimento empreendedores do erro
….
Revestimento:
Se err.number então se ErrorRoutine (vbRetry) = vbRetry recomeça então
…
Retirar o submarino
Minha versão de ErrorRoutine avalia para o parâmetro e se o presente emite um aborto, o cancelamento da nova tentativa, experimenta de novo o alerta. Isto permite a operação falh ser experimentado de novo (que eu encontro útil para o debuggin).