Lo pones en cada rutina que pueda generar un error grave para la aplicación.
Por ejemplo
Código vb:
Ver originalPublic Sub RutinaConPosibleError(ByVal arg1 As Integer)
Dim var1 As Integer
' Al existir un error, ir a la etiqueta ErrorHandler
On Error GoTo ErrorHandler
' Posible error, división entre cero.
var1 = 1 / arg1
' Si existe error en la división anterior, este código no se ejecutará, sino que se saltará a la etiqueta ErrorHandler
MsgBox var1
MsgBox arg1
' Si todo va bien, hay que salir del procedimiento para no entrar en el manejo del error que se encuentra abajo
Exit Sub
' Etiqueta ErrorHandler
ErrorHandler:
' Aquí pones el manejo de tu error, por ejemplo se muestra el mensaje con la descripción del error. En esta parte puedes poner tu rutina para grabar la información del error en un archivo.
MsgBox Err.Description, , "Error"
' Asumiendo que tu rutina es RegistrarError y acepta como parámetro un código de error, un mensaje del error y un mensaje personalizado.
RegistrarError Err.Number, Err.Description, "Error en rutina RutinaConPosibleError"
End Sub
Espero que te sea de utilidad
