Compléments pour Microsoft Access

http://access.fr.free.fr/

Compacter une base externe (Base de données)

Description 

Cette fonction permet compacter une base de données externe.

 
Syntaxe 

fCompactOpen (strBase)

La syntaxe de la fonction fCompactOpen comprend l'élément suivant :

ElémentsDescription
strBaseExpression de chaîne correspondant au chemin complet et au nom de la base de donnée que l'on souhaite compacter.
 
Exemple 

fCompactBase ("c:votreRépertoirevotreBase.mdb")

 
Code de la fonction 


 

Public Function fCompactBase(strBase As String)
   
    Dim srcDstName As String
   
    srcDstName = strBase & ".tmp"
    DBEngine.CompactDatabase strBase, srcDstName
    Kill strBase
    Name srcDstName As strBase

End Function