SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: 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
-
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
-
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
:think:
-
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
:think: