SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Miércoles 15 de Octubre de 2003, 11:11
-
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:
-
Ese código de error no está documentado, ¿me puedes decir cuando se produce?
:question:
-
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:
-
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:
-
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:
-
A mí si me funciona así que el problema está en tu máquina, probablemente tengas algo mal en el VB
:good:
-
Muchas gracias de todas formas Angeles.
:kiss::flower: