Jesus Mansilla Castells

Prueba con Application Application.DBEngine.CompactDatabase "C:\Temp\Bdatos.mdb", "C:\Temp\BdatosNueva.mdb", , , ";pwd=contraseña"

Échale un vistacito a este link: Link Microsoft

Puedes utilizar esta función, comprueba si está abierto y si no lo está lo abre: Function RT_Outlook_ComprobarAbrir() As Boolean RT_Outlook_ComprobarAbrir = True ' comprobamos si el outlook está abierto If IsAppOpen("rctrl_renwnd32") = False Then '...

La primera que yo haría es crearme una accdb nueva (o mdb) e importar todos los objetos de la antigua que casca. Una vez hecho esto compila la aplicación y prueba. En el caso de que no te funcione, te creas una accdb nueva y vas importando uno a uno...

Aquí tienes una serie bastante completa de recomendaciones a seguir. Por otro lado, escanea tu equipo con un par de antivirus diferentes (de los que hay en línea), es posible que tengas algún bichito (un rootkit) veraneando en tu equipo.

Yo no usaría una consulta de referencias cruzadas (¡Deberían estar prohibidas! ... xD). Yo haría una consulta contando Id, agrupando por año y mes, y la numeraría. Algo así como: SELECT Count(id) AS Cuenta, Year(FechaAlta) AS Año, Month(FechaAlta) AS...

Para leer el código necesitas un lector de código de barras, este lo que va a realizar es leer los datos y ponerlos en el control del formulario que tenga el foco (supongo que tendrás un cuadro de texto) y una vez que lo tengas ahí tendrás que...

Suponiendo que uses windows, ... usa el programador de tareas, está hecho precisamente para eso.

Lo mejor es que lo averigües tú con la ayuda de Outlook, porque propiedades y métodos hay muchos. Para ello lo mejor es que en vez de declarar olApp como object, incluyas la referencia a la librería de Outlook y lo declares así: Dim OutApp As...

Prueba con el método Benedictino. Prueba-1: - Te creas una BD en blanco - Importa todos los objetos y prueba a compactar (Los archivos Msys... ya se los crea el sistema) Si falla, Prueba-2: - Te creas otra BD en blanco - Vas importando los objetos...