05/08/2006, 11:31
|
 | | | Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 1 mes Puntos: 18 | |
mejor capturarlo con un
Código:
On Error Resume Next
'LO QUE TENGAS QUE HACER
codigoError = Err.Number
Select Case codigoError
Case 0:
'Todo correcto. Aquí va el código para mostrar la confirmación al usuario
Case -2147418113: '8000FFFF a decimal, es el error que pretendo gestionar
'Mensaje de error personalizado, explicando causas y soluciones
Case 1234567890: 'Cualquier error que se quiera controlar
'Código para el error
Case ... ' Usar un Case para cada código de error a gestionar
Case Else
'Código para "error desconocido" o "error no controlable", etc
End Select
|