IBM Lotus Symphony


Instrucción On Error GoTo ... Resume [Ejecución]

Activa una rutina de manejo de errores después de producirse éstos o continúa la ejecución del programa.

Sintaxis:

On {Error GoTo NombreEtiqueta | GoTo 0 | Resume Next}

Parámetros:

GoTo NombreEtiqueta: si se produce un error, activa la rutina de manejo de errores que empieza en la línea "NombreEtiqueta".

Resume Next: Si se produce un error, la ejecución del programa continúa con la instrucción que seguía a aquélla en la que se produjo el error.

GoTo 0: Desactiva el manejador de errores en el procedimiento actual.

La instrucción On Error GoTo se usa para reaccionar a errores que se producen en una macro. La instrucción debe insertarse al principio de un procedimiento (en una rutina de manejo de errores local) o de un módulo.

Ejemplo:

Sub EjemploReset

On Error Goto ManejadorError

Dim iNumero As Integer

Dim iContador As Integer

Dim sLinea As String

Dim aArchivo As String

aArchivo = "c:\data.txt"

iNumero = Freefile

Open aArchivo For Output As #iNumero

Print #iNumero, "Esta es una línea de texto"

Close #iNumero

iNumero = Freefile

Open aArchivo For Input As iNumero

For iContador = 1 to 5

Line Input #iNumero, sLinea

If sLine <>"" then

rem

end if

Next iContador

Close #iNumero

Exit Sub

ManejadorError:

Restablecer

MsgBox "Todos los archivos se cerrarán",0,"Error"

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas