Gestión de errores con On Error...
Publicado por Juan (9 intervenciones) el 03/10/2002 13:58:41
Hola a tod@s, espero que me podais ayudar porque no se me ocurre que hacer con esto. Tengo el siguiente trozo de código:
On Error GoTo errores
.
.......
errores:
If Err.Number = 62 Then
Err.Clear
Resume Next
Else
Err.Clear
MsgBox "Se ha producido el siguiente error: " & Chr(13) & Err.Description
Resume Next
End If
El problemilla que tengo es que si se vuelve a producir el error 62 o cualquier otro no vuelve a irse a la etiqueta errores para poder tratarlo sino que me muestra el error y rompe el programa. ¿Que puedo hacer para que vuelva a la etiqueta cada vez que se genere un error en la rutina????
Gracias de antemano por la ayuda. Saludos
On Error GoTo errores
.
.......
errores:
If Err.Number = 62 Then
Err.Clear
Resume Next
Else
Err.Clear
MsgBox "Se ha producido el siguiente error: " & Chr(13) & Err.Description
Resume Next
End If
El problemilla que tengo es que si se vuelve a producir el error 62 o cualquier otro no vuelve a irse a la etiqueta errores para poder tratarlo sino que me muestra el error y rompe el programa. ¿Que puedo hacer para que vuelva a la etiqueta cada vez que se genere un error en la rutina????
Gracias de antemano por la ayuda. Saludos
Valora esta pregunta


0