Error?
Publicado por jomismo (45 intervenciones) el 05/01/2005 10:20:21
Miren tengo creado un menu donde hay una opcion que es compactar la base de datos,mediante codigo de vba he introducido lo siguiente
Function bioCompactar()
Dim x As Integer
On Error GoTo err
Application.SetOption "Auto Compact", True
x = MsgBox("La operació s'ha realitzat amb exit", vbDefaultButton1, "Informació")
err:
x = MsgBox("La operació no s'ha pogut realitzar amb exit", vbDefaultButton2, "Error")
End Function
Bien pues el problema es el siguiente creo ke me realiza correctamente la compactacion pq no me da ningun error , le pongo hasta los stops ,semaforos como quieran llamarlos y todo parece ir bien,me da el mensaje de que se ha realizado con existo,pero justo despues me da el mensaje de qu eno se ha realizado con exito.
Como puedo asegurarme de que se ha realizado bien la compactacion
gracias
Function bioCompactar()
Dim x As Integer
On Error GoTo err
Application.SetOption "Auto Compact", True
x = MsgBox("La operació s'ha realitzat amb exit", vbDefaultButton1, "Informació")
err:
x = MsgBox("La operació no s'ha pogut realitzar amb exit", vbDefaultButton2, "Error")
End Function
Bien pues el problema es el siguiente creo ke me realiza correctamente la compactacion pq no me da ningun error , le pongo hasta los stops ,semaforos como quieran llamarlos y todo parece ir bien,me da el mensaje de que se ha realizado con existo,pero justo despues me da el mensaje de qu eno se ha realizado con exito.
Como puedo asegurarme de que se ha realizado bien la compactacion
gracias
Valora esta pregunta
0