Vraag : De globale Manager van de Fout en op Fout hervat daarna

Ik heb een foutenmanager in de routine van het ingangspunt van mijn app. Ik wil alle fouten in stroomafwaartse procedures aan GoTo deze foutenmanager. Het probleem is ik heeft heel wat stroomafwaartse procedures die gebruiken op Fout daarna hervatten… Op Fout GoTo 0 die met voeten treedt heeft de Fout GoTo Error_Handler in het ingangspunt routine.

I het vervangen op Fout GoTo 0 met op Fout GoTo Error_Handler geprobeerd maar dat veroorzaakt een gevonden niet van het lijnetiket fout. In stroomafwaartse functies, is er een manier om op Fout hervat en dan daarna terugstelt het gedrag van de Fout aan op Fout GoTo Error_Handler in plaats van op Fout GoTo 0 te gebruiken?

Antwoord : De globale Manager van de Fout en op Fout hervat daarna

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).