Discussion :

[alpha_du_centaure]

Bonjour cher réseau,

Existe t'il une commande vBA permettant de déclencher le compactage d'une BDD ouverte (.mdb) si, après une opération de chargement de donnée externes par exemple, la bdd a pris un embonpoint excessif ?

Je précise que je ne veux pas paramétrer la bdd pour un compactage systématique à la fermeture, mais seulement si une situation donnée se produit


merci d'avance de votre aide !

[User]

Bonjour,

Avez vous consultez cette contribution :

compactage automatique d'une base protégée


Cdlt,

[alpha_du_centaure]

Merci User,

La conversation est intéressante quoiqu'un peu ancienne (2003). Je suis maintenant utilisateur d'access 2013.

En zonant je vois qu'il y aurait l'action

[application].RunCommand (AcCmdCompactDatabase). qui remplace l'option domenuitem ...

Là où je coince, c'est pour définir "application". (j'avoue ne pas bien comprendre le concept)

peux tu me dire simplement comment initialiser la variable application pour que le RunCommand déclenche le compactage de la bdd en cours.


merci beaucoup

[Jean-Philippe André]

Bonjour,

Application est un mot cle qui pointe tout simplement sur l'application dans laquelle le code est en train d'etre execute :

Tu peux donc directement taper ta ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.RunCommand acCmdCompactDatabase

[alpha_du_centaure]

Merci Jean Philippe,

C'est effectivement très simple et cela répond à ma question sur "application"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function test1()
Application.RunCommand (acCmdCompactDatabase)
End Function

et ça marche... sauf que je reçois le message suivant

impossible de compacter la base de données ouverte en exécutant une macro ou du code visual basic
Au lieu d'exécuter une macro ou du code, cliquez sur l'onglet fichier puis compacter un base de données.

Il semblerait donc qu'on ne puisse pas déclencher un compactage par code ou macro, deonc de manière automatique sur critère choisi...

Si quelqu'un a une autre idée !

merci à tous

[Jean-Philippe André]

Tu peux passer par le DBEngine
https://www.developpez.net/forums/d1...r-base-donn-e/

[marot_r]

Juste une note en passant.

La conversation est intéressante quoiqu'un peu ancienne (2003). Je suis maintenant utilisateur d'access 2013.

Ce qui est vrai pour les vielles versions de Access est généralement (il y a des exceptions) toujours vrai dans les dernières versions.
En tout cas cela donne souvent une piste pour aller de l'avant.

De plus si tu utilises un format .mdb alors c'est comme si tu étais toujours en 2003.
Si tu veux vraiment bénéficier des fonctionnalités de 2013, il faut convertir ta BD au format 2007.

Pour ce qui est du compactage de la BD en cours, on peut le faire à partir d'une macro mais ce qu'on ne peut pas faire c'est :

1. excuter du code
2. Compacter
3. reprendre l'exécution du code

Peut-être qu'on peut le faire avec une macro mais je n'ai jamais essayé.

Quand j'ai eu besoin de faire cela je l'ai fait depuis une autre BD.

A+

[alpha_du_centaure]

Bonjour à tous et merci des propositions.

J'ai préparé la petite fonction ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Function compacter()
DBEngine.CompactDatabase "c:\bdd\bdda\avarap_2013.mdb", "C:\bdd\BaseDonneesCopie.mdb"
Kill "c:\bdd\bdda\avarap_2013.mdb"
Name "C:\bdd\BaseDonneesCopie.mdb" As "c:\bdd\bdda\avarap_2013.mdb"
DoCmd.Quit
End Function

Je l'ai incluse dans la bdd principale (c:\bdd\bdda\avarap_2013.mdb) mais lorsque je la lance, je reçois un message "ne peut être exécuté car la bdd est ouverte".

C'est donc le même effet qu'avec la commande runcommand évoquée plus haut, ce qui est assez logique.

Je contourne finalement le problème en intégrant le code ci dessus dans une autre bdd compacter_bdd.mdb (qui ne contient que ce code). j'ai ensuite créé une macro autoexec exécutant ce code dans dette bdd.

j'ai ensuite créé un petit fichier bat qui lance successivement la bdd principale puis, quand celle ci est refermée, qui lance la bdd compacter.mdb. Cela fonctionne correctement

Ce n'est pas exactement ce que je voulais faire car je souhaitais lancer le compactage si la bdd principale était devenue grosse... mais je vais m'en contenter.

merci à tous