Я аплодирую вам для хотеть обычный укротитель ошибки. Препятствуйте мне объяснить как я делаю его.
Создайте глобальную функцию для вашей обычный логики укротителя ошибки. «Пункт входа вашего app» может работать--Я не знаю--для этого нужно быть callable от везде. Препятствуйте нам вызвать то functio ErrorRoutine ().
После этого закодируйте все suboutines что-нибудь подобное:
Приватное Sub MySub ()
На отделке ошибки переход
….
На резюме ошибки затем
…
На отделке ошибки переход
….
Отделка:
Если err.number после этого, то если ErrorRoutine (vbRetry) = vbRetry после этого возобновляет
…
Выходите подводная лодка
Мой вариант ErrorRoutine оценивает для параметра и если настоящий момент выдает прекращени прекращение, то cancel повторенной попытки, заново попытает подсказку. Это позволяет failing деятельность быть заново попытанным (я считаю полезным для debuggin).