[VBA] on error

[zxc80]

Il mio codice ha un aspetto del genere

Public Sub IstruzioneGenerale()
on error goto GestioneErrore
Call Routine1
GestioneErrore:
Exit Sub
EndSub

Public Sub Routine1()
on error GestioneErrore1
dim a as integer
a=(-1)^0.5
GestioneErrore1:
Exit Sub
EndSub

non posso togliere "GestioneErrore1" in quanto devo fare al suo interno altre cose, vorrei però alla fine andare automaticamente ad "GestioneErrore"...come faccio?!?
Ossia mi serve terminare l'esecuzione dell'intero codice con "GestioneErrore1" (dato che ho un input errato) ma non usare "End" in quanto mi genera errori che annullano tutte le variabili salvate....voglio una scappatoia per terminare e basta come se andassi in "GestioneErrore" della routine principale...mi spiegate se è possibile e come si fa? Grazie 1000

[icecube_HT]

Originariamente inviato da zxc80
Il mio codice ha un aspetto del genere

Public Sub IstruzioneGenerale()
on error goto GestioneErrore
Call Routine1
GestioneErrore:
Exit Sub
EndSub

Public Sub Routine1()
on error GestioneErrore1
dim a as integer
a=(-1)^0.5
GestioneErrore1:
Exit Sub
EndSub

non posso togliere "GestioneErrore1" in quanto devo fare al suo interno altre cose, vorrei però alla fine andare automaticamente ad "GestioneErrore"...come faccio?!?
Ossia mi serve terminare l'esecuzione dell'intero codice con "GestioneErrore1" (dato che ho un input errato) ma non usare "End" in quanto mi genera errori che annullano tutte le variabili salvate....voglio una scappatoia per terminare e basta come se andassi in "GestioneErrore" della routine principale...mi spiegate se è possibile e come si fa? Grazie 1000

Potresti trasformare la Sub Routine1 in una Function booleana, che restituisce True se si verifica un errore:
- in GestioneErrore1 imposti Routine1 = True (non c'e' nemmeno bisogno di impostare False quando l'elaboraz. avviene senza errori, in quanto e' il valore di default)
- anziche' Call Routine 1, la chiami con:
If Routine1 Then '....si e' verificato un errore




P.S.: parto dal presupposto che il tuo codice e' stato volutamente molto semplificato a scopo esemplificativo, perche' cosi' com'e' dopo la chiamata alla Routine1 avresti SEMPRE l'esecuzione del codice in GestioneErrore...