Discussion :

[dut-dut]

Bonjour,
ne disposant pas de l'option "compacter à la fermeture" dans Access 97, je suis en train de concocter une fonction pour le faire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Compacter_bdd()
Dim Db, tempDb As String
Db = "\\Serveur\appli appro\bdd.v2.0.mdb"
tempDb = (Left(Db, (Len(Db) - 4)) & "temp.mdb")
 
Name Db As tempDb
 
DBEngine.CompactDatabase tempDb, Db
Kill tempDb
 
MsgBox "Base de donnée compactée avec succès !"
 
End Function

Le souci c'est qu'il faut attendre la fin du compactage avant de "killer" le fichier tempDb.
Je pourrais me contenter de rajouter un truc du genre :

Code :

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

1
2
For i = 1 To 10000000
Next

mais le risque c'est de surdimensionner le délai d'attente car la durée du compactage peut être parfois assez longue...

Quelqu'un pourrait-il donc m'indiquer comment insérer une boucle d'attente qui capterait la fin de l'exécution du compactage ?

[Domi2]

Bonjour,

Tu as essayé de placer un

Code :

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

1
2
DoEvents
Kill tempDb

Avant l'instruction Kill ?

Domi2

[dut-dut]

Parfait, ça résout bien mon problème. Je n'avais effectivement pas pensé à cette solution.
Merci Domi2 !


Au cas où certains aient une autre réponse à fournir sur le sujet, je laisse le post ouvert jusqu'à ce soir...

Je rectifie : lorsque la bdd est trop importante celà ne fonctionne pas. Je retrouve le message d'erreur "Fichier introuvable" lorsque VBA tente d'exécuter la commande kill.

[dut-dut]

(au cas où ça aide certains à comprendre le problème qui se pose)

En fait la commande "kill" n'avait pas fonctionné la première fois. Par contre la base de données avait bien été compactée.

Du coup quand j'ai relancé la macro complète après avoir supprimé manuellement le fichier tempDb, ça a bien marché.
(je suppose que c'est parce que le délai de compactage a été bien plus court cette fois là)

Cependant quand j'ai réessayé d'appliquer la macro à la base de départ non-compactée, ça a de nouveau planté.

[Domi2]

Bonjour,

Regarde du côté de la fonction Dir... voir dans la FAQ.

Tu boucles, si le fichier existe tu exécutes ta commande et tu sors, sinon, tu continues à boucler.

Je ne vois pas mieux...

Domi2

[dut-dut]

J'ai modifié mon code pour essayer cette solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
...
DBEngine.CompactDatabase tempDb, Db

Do
DoEvents
Loop Until Dir(tempDb, vbHidden) <> ""
    
MsgBox "sorti de la boucle"
    
Kill tempDb
...

Finalement, le problème vient de la commande "kill" car le msgbox s'affiche bien mais ensuite j'ai toujours l'erreur "Fichier introuvable". Et après investigations, je me rends compte que même si j'essaie d'exécuter la commande "kill" longtemps après le compactage, ça ne fonctionne pas alors que le fichier existe bien...


Quelqu'un a-t-il une idée ???
Je ne m'explique pas pourquoi ça fonctionne quand je retente le coup avec une base déjà compactée...