Visual Basic - Gestión de errores con On Error...

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Gestión de errores....

Publicado por J2ML (464 intervenciones) el 03/10/2002 16:31:34
Prueba quitándole las líneas de Err.Clear es decir:
On Error GoTo errores
.
.......

errores:

If Err.Number = 62 Then
Resume Next
Else
MsgBox "Se ha producido el siguiente error: " & Chr(13) & Err.Description
Resume Next
End If

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar