Ik juich u voor het willen van een gemeenschappelijke foutenmanager toe. Laat me verklaren hoe ik het doe.
Cre�ër een globale functie voor uw gemeenschappelijke logica van de foutenmanager. Het „ingangspunt van uw app“ kan werken--Ik weet niet het--het moet overal opvraagbaar van zijn. Roep dat functio ErrorRoutine ().
Dan codeer alle suboutines iets in die aard:
Privé SubMySub ()
Op Fout GoTo eindig
….
Op Fout hervat daarna
…
Op Fout GoTo eindig
….
Eindig:
Als err.number toen als (vbRetry) ErrorRoutine = vbRetry dan hervat
…
Sub van de uitgang
Mijn versie van ErrorRoutine evalueert want parameter opnieuw probeer en als het heden een mislukking uitgeeft, annuleer, probeer herinnering opnieuw. Dit laat dat de ontbrekende verrichting toe worden opnieuw geprobeerd (die ik voor debuggin nuttig vind).