Autor Tema: Re: Control de errores (Leído 1556 veces)

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

angelescj

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

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.

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.

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.

angelescj

A mí si me funciona así que el problema está en tu máquina, probablemente tengas algo mal en el VB

FRIJU

Muchas gracias de todas formas Angeles.