Discussion :

[edenblum]

bonjour,

j'aimerais compacter ma base en cours d'utilisation à l'aide de code.

Quelqu un connait il une procédure capable d'effectuer cela

Merci d avance

[charly36]

je cherchais la meme chose que toi et j ai trouvé ce qui suit mais je n y ai pas encore testé :

Le code qui suit permet de compacter une base de données, mais il ne peut figurer dans la base de données à traiter. Vous devez donc créer une autre base, et vous placerez le code ci-dessous dans un module quelconque de cette autre base.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
' --------------------------------------------------
' REPARATION ET COMPACTAGE DE BASE DE DONNEES
' --------------------------------------------------
' Entrée : strBase <- Chemin d'accès à la base de données
'          strTemp <- Nom de la base de données temporaire
'
Function RepairCompact(ByVal strBase As String, ByVal strTemp As String) As Boolean
On Error GoTo RCErr
 
' Détruire la base temporaire si elle existe
If Dir$(strTemp) <> "" Then Kill strTemp
 
' Réparer et compacter la base de données
DBEngine.RepairDatabase strBase
DBEngine.CompactDatabase strBase, strTemp
 
' Si tout a marché, détruire la base d'origine et renommer la base temporaire
Kill strBase
Name strTemp As strBase
RepairCompact = True
Exit Function
 
RCErr:
    MsgBox "L'erreur suivante s'est produite : " & Err.Description, vbCritical, "Compactage"
    RepairCompact = False
    Exit Function
End Function

--------------------------------------------------------------------------------

Pour tester, ouvrez la fenêtre de debugging, et tapez-y :
? RepairCompact("chemin de la base à compacter", "chemin d'une base temporaire") puis [ENTREE].

Par exemple :
? RepairCompact("c:\mes documents\access\clients.mdb", "c:\mes documents\access\clients.tmp")

Vous pouvez bien sûr placer cette ligne dans le code d'un bouton de commande, sur un formulaire.





bon courage

[Shoryu]

http://access.developpez.com/faq/?page=General#Compact

EDIT :
j'ai pas vu la remarque désolé:

Remarque : Cette dernière solution ne vous permet pas de compacter la base de données en cours.

[gripoil]

Salut,

J'ai donné une solution sur ce post:
http://www.developpez.net/forums/viewtopic.php?t=88658

[edenblum]

merci a tous

[Maxence HUBICHE]

il y a une DLL super sur internet, à télécharger ...

faites une recherches dur Google à tsisoon
il y a plein d'outils divers et variés.
tsisoon90.dll permet de compacter très simplement la base de données en cours.
Quelques lignes de code, et le boulot se fait.

le site où trouver la dll :
http://www.trigeminal.com/