Autor Tema: Re: error (Leído 1386 veces)

FRIJU · « **en:** Miércoles 15 de Octubre de 2003, 14:00 »

Control de errores

Hola Compañer@s!
Estoy intentando tratar un error, pero cuando me da el error no pasa por el tratamiento de errores que le he hecho mal?
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

ROBER.29

Comprueba que el error que se produce es el 3356. Para ello pon un Msgbox.

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:
Msgbox Err.Number
If Err.Number = 3356 Then

Unload Me
End
Exit Sub
Else

End If

End Sub

Un saludo

FRIJU

Hola Roberto!
Lo he comprobado, y es ese error, pero el caso es que no me saca ni el Msgbox, no pasa por la rutina de error.
Me dice:
Error '3556' en tiempo de ejecución:
ha intentado abrir una base de datos que está abierta por el usuario 'admin' en la maquina 'xxxx' en modo exclusivo.

Lo he probado en una base de datos programada en Access y funciona pero en VB no

FRIJU

Citar

Originalmente publicado por FRIJU
Hola Roberto!
Lo he comprobado, y es ese error, pero el caso es que no me saca ni el Msgbox, no pasa por la rutina de error.
Me dice:
Error '3556' en tiempo de ejecución:
ha intentado abrir una base de datos que está abierta por el usuario 'admin' en la maquina 'xxxx' en modo exclusivo.

Lo he probado en una base de datos programada en Access y funciona pero en VB no