Resume (Instrucción)

Artículo
08/10/2011

Reanuda la ejecución cuando finaliza una rutina de control de errores.

Resume [ Next | line ]

Partes

Resume
Obligatorio. Si el error se produjo en el mismo procedimiento que el controlador de errores, la ejecución continúa con la instrucción que causó el error. Si se produjo en un procedimiento llamado, la ejecución continúa en la última instrucción que realizó una llamada al exterior del procedimiento que contiene la rutina de control de errores.
Next
Opcional. Si el error se produjo en el mismo procedimiento que el controlador de errores, la ejecución continúa con la instrucción siguiente a la que causó el error. Si el error se produjo en un procedimiento llamado, la ejecución continúa en la instrucción siguiente a la que realizó por última vez la llamada fuera del procedimiento que contiene la rutina de control de errores (o la instrucción On Error Resume Next).
line
Opcional. La ejecución continúa en la línea especificada en el argumento line requerido. El argumento line es una etiqueta de línea o un número de línea, y debe estar en el mismo procedimiento que el controlador de errores.

Comentarios

Si se utiliza una instrucción Resume fuera de una rutina de controlador de errores, se producirá un error.

La instrucción Resume no se puede utilizar en un procedimiento que contenga una instrucción Try...Catch...Finally.

Ejemplo

En este ejemplo se utiliza la instrucción Resume para finalizar el controlador de errores en un procedimiento y, a continuación, reanudar la ejecución con la instrucción que provocó el error. Para ilustrar el uso de la instrucción Resume se genera el error número 55.

Sub ResumeStatementDemo()
  On Error GoTo ErrorHandler   ' Enable error-handling routine.
  Dim x As Integer = 32
  Dim y As Integer = 0
  Dim z As Integer
  z = x / y   ' Creates a divide by zero error
  Exit Sub   ' Exit Sub to avoid error handler.
ErrorHandler:     ' Error-handling routine.
  Select Case Err.Number   ' Evaluate error number.
      Case 6   ' "Divide by zero" error.
        y = 1 ' Sets the value of y to 1 and tries the calculation again.
      Case Else
        ' Handle other situations here....
  End Select
  Resume   ' Resume execution at same line
  ' that caused the error.
End Sub