Ciao,
ho un problema con la gestione degli errori in vb6.
Ho il seguente codice
codice:
Public Sub ....
.......
..........
For Each elemento In collection
'On Error GoTo ERRORE_SALVATAGGIO_ELEM
With recordSetElementi
.AddNew
.Fields("CAMPO1") = elemento.campo1
.Fields("CAMPO2") = elemento.campo2
......
........
End With
NUOVO_ELEM:
Next 'Elemento successivo della collection
End If
End If
recordSetElementi.update
recordSetElementi.Close
Exit Sub
ERRORE_SALVATAGGIO_ELEM:
MsgBox "Errore salvataggio di un elemento"
Resume NUOVO_ELEM
End Sub
Scorrendo la mia collection devo salvare in un recordset ciascun elemento, ma vorrei che se un elemento generasse errore fosse possibile riprendere la mia routine dall'elemento successivo, tramite la gestione di ERRORE_SALVATAGGIO_ELEM che dovrebbe riprendere l'esecuzione della routine dalla riga di codice che sposta il ciclo For all'elemento successivo, e non interrompere bruscamente l'esecuzione di essa.
Ho provato anche inserendo nel Resume il numero di riga ma non ha avuto successo ugualmente, viene sempre generato un errore come se si perdesse il rifermento alla collection che si sta scorrendo.
Dove sto sbagliando?