On Local Error -- Cosa significa ?

Question

Mi sono "imbattuto" in una gestione errori fatta cosi:

<code>

On Local Error GoTo ErrorHandler

On Error GoTo GesErr

' .................................................................. codice della Routune .....

Escita:

Exit Sub

GesErr:

MsgBox ("errore N°   " & Err.Number & vbNewLine & Err.Description)

Resume Escita

Fine:

Exit Sub

ErrorHandler:

MsgBox Error

Resume Fine:

</code>

Sono portato a credere che si tratti di una "stupidata",

in quanto la 2° riga di codice ( On Error GoTo GesErr ) supera immediatamente

la precedente invalidandone gli effetti.

Da ricerche effettuate sembra che "On Local Error"  sia un modo superato

( ma ancora supportato ) di scrivere "On Error"

Tuttavia non ne sono certo pertanto mi chiedo conferma o smentita

Grazie

Answer 1

Ciao Mancini,

ai tempi del VB2/VB3 era possibile inserire un "On Error" in una routine di start del progetto, questo On Error intercettava gli errori nelle varie Sub/Funzioni e reindirizzava e il flusso del programma dove indicato. Per gestire una routine di errore diversa da quella "globale" si inseriva nella sub/funzione un  "On Local Error Goto"

Seriamo che supportino ancora per molto la sintassi On Local Error perché anche se uguale all' "On error", mi è rimasta l'abitudine di usarlo ed è presente in molte routine dei miei DB.

Per quanto riguarda il tuo codice, la tua supposizione è esatta, il primo On local error viene subito rimpiazzato dal secondo On Error.

Buon Natale

Giorgio Rancati

Answer 2

Grazie

Buon natale anche a te

.