Error?uso access 2003

jomismo
14 de Enero del 2005
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

LM72
14 de Enero del 2005
Lo que debes hacer es en el mensaje de "err:" debes condicionarlo si es que el objeto aplicación te mando un error, por que de lo contrario pasa el primer mensaje posteriormente sige leyendo y la linea que sigue es la del 2° mensaje.