23/11/2003, 09:03
|
 | | | Fecha de Ingreso: octubre-2003
Mensajes: 381
Antigüedad: 21 años, 1 mes Puntos: 0 | |
| Que tal surprise,
ahí va:
------------------------------------------------------
Private Sub Form_Load()
On Error GoTo CONTROL_ERRORES
'Código
..........
..........
Exit Sub
CONTROL_ERRORES:
MsgBox "Texto del error" & vbCrLf & Err.Description, vbCritical
End Sub
------------------------------------------------------
Cuando se procesa la instrucción "On error..." cualquier error que ocurra la ejecución saltará a la etiqueta que hayas definido, en este caso la mía se llama "CONTROL_ERRORES". Es importante que antes de la etiqueta salgas del procedimiento o función para que no se ejecute el código reservado al error si es que no ha pasado nada, con "Exit Sub" o "Exit Function".
Saludos
Pablo |