Ahora bien, si al principio del procedimiento del botón se hubiese usado la sentencia On Error se podría continuar con la ejecución del programa, quedando la programación de una forma parecida a lo siguiente:

La primera sentencia del procedimiento anterior On Error Goto Indice, le está indicando al programa que en el caso de encontrarse algún error de ejecución, el que sea, se vaya a la etiqueta marcada con el nombre Indice: y ejecute las sentencias que contiene.
En este caso la etiqueta marcada con el nombre Indice la hemos situado al final del procedimiento y después del nombre se ponen dos puntos (:) para indicar que se trata de una etiqueta. La programación que se ha escrito es en este caso muy simple, y lo que hace es detectar que si el número del error (los errores en Visual Basic tienen asociado un número) es distinto de cero (si el número de error es cero eso indica que no hay error), es decir, si se ha producido un error lance un mensaje por pantalla con la indicación del número de error cometido y la descripción que Visual Basic hace del mismo, y una vez visto el mensaje se continua con la aplicación, es decir no nos saca del programa. El mensaje que se visualiza es el que se muestra en la imagen siguiente:

En el caso anterior al detectar el error, sólo se describe el mismo y se continua con la aplicación, porque así se programó en la etiqueta Indice, ahora bien podrían haberse especificado otras sentencias dentro de la etiqueta que tratasen el error de otra manera, por ejemplo devolviendo el control del programa a una sentencia determinada, para ello se usa la función Resume.

|
1. Access con Visual Basic Microsoft Access con Visual Basic , aprende a crear una base de datos en Access... [01/07/09] |
13.316 | ||||
|
2. Informática. Visual Basic ¿Necesitas que tu sistema de login te recuerde tu nombre de usuario y contraseña?... [12/04/11] |
6.769 |
|
|||
|
3. Visual Basic. Programación con aplicaciones MDI Programación en Visual Basic 6.0 . Hoy tenemos un vídeo- tutorial de Visual Basic... [02/12/10] |
3.084 |
|
|||