Jag applåderar dig för att önska en allmänningfelförlagehanterare. Låt mig förklara hur jag gör det.
Skapa ett globalt fungerar för din logik för allmänningfelförlagehanteraren. ”Tillträdeet pekar av din app” kan fungera--Jag vet inte--det behöver att vara callable från någonstans. Låt oss appellen den functio ErrorRoutine ().
Kodifiera därefter alla suboutines något något liknande detta:
Privata underMySub ()
På GoTo fullföljande för fel
….,
På felmeritförteckning därefter
…,
På GoTo fullföljande för fel
….,
Fullföljande:
Om err.number därefter om (vbRetry) ErrorRoutine = vbRetry därefter meritförteckning
…,
Gå ut suben
Min version av ErrorRoutine utvärderar för parametern och om gåva utfärdar en abortera, annulleringen för försöka igen, försöker igen precis. Detta tillstånd den vikande funktionen att försökas igen (som jag finner användbart för debuggin).