Programación General > Visual Basic 6.0 e inferiores

 Re: Control de errores

(1/2) > >>

FRIJU:
Hola Compañer@s!
   Estoy intentando tratar un error, pero cuando me da un error no pasa por el tratamiento de errores que le he hecho.
Private Sub CmdSalir_Click()
On Error GoTo Tratar_error
 
DBEngine.CompactDatabase "datos.mdb","datos1.mdb"

Kill "datos1.mdb
Unload Me
End
Exit Sub
Tratar_error:
If Err.Number = 3356 Then

Unload Me
End
 Exit Sub
 Else
   

 End If

End Sub
:think:

angelescj:
Ese código de error no está documentado, ¿me puedes decir cuando se produce?
:question:

FRIJU:
Hola Angeles!
   Lo que estoy haciendo es compilar los datos.
Y ese número de error nos dice que hay otro usuario conectado a los datos y por lo tanto no se puede compilar.
Pero creo que independientente del número yo lo que quiero es que me vaya al control de error.
:kiss:

angelescj:
He probado tu código y a mí me funciona perfectamente. Acabo de observar que haces lo mismo cuando se produce un error que cuando no se produce, así que no veo mucha diferencia.
Te envío mi código, copiado del tuyo pero con avisos, por si hay alguna diferencia que yo no veo.

:good:

FRIJU:
Hola Angeles!
    Te agradezco por tu ejemplo, pero no funciona, o al menos a mi no.
He abierto la base de datos por un lado y luego ejecutar el proyecto, no pasa por el tratamiento.
:flower:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente