VB6.0 Cómo controlar un error.

[aci]

Hola a todos,

tengo una aplicación en Visual Basic 6.0. que accede a Access y hace actualizaciones, consultas y deletes cada cierto tiempo automáticamente a través de un Timer.

Lo que ocurre es que a veces me encuentro con que en un momento determinado la aplicación ha producido un error ODBC y me aparece en la pantalla ventanita sobre un error de consulta no disponible. Y cuando pulso Aceptar en esa ventana se cierra la aplicación (aparte de que la aplicación ya no continuaba en ejecución).

Lo que quería saber es cómo manejar ese error en la aplicación para evitar que cada vez que se produzca un error que no he controlado, que no se pare la aplicación.


Muchas gracias a todos y saludos.

Alberto.

[jrp01]

Puedes hacer por ej. el el boton de guardar al principio:

On Error GoTo AtrapaErr

Y despues de todo el codigo del boton antes del End Sub:

AtrapaErr:
Err.Clear
Msgbox "Error Intentalo de Nuevo"



Espero que te sirva

[GeoAvila]

hola mira te envio algo simple, pero espero te sirva si queres algo mas complejo me decis..

Código:

'esto es el inicio del Sub
on local error resume next

'aqui todo tu codigo

' y esto al final del sub.. es una manera simple de hacerlo si deseas algo mas complejo decime
if error <> 0 then
msgbox "ha ocurrido el siguiente error" & err,vbinformation,"error"
end if

[elmenduco]

Mira este link te explico como manejar el tema de errores en vb6
[URL="http://vb6afondo.blogspot.com.ar/"]CONTROL DE ERRORES VB6[/URL]