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
Sub test()
cmdCompact ("C:Temp\" & "db1.mdb")
End Sub
 
Private Sub cmdCompact(ClosedDbPath)
Dim db_name As String
Dim temp_name As String
 
'On ne peut pas compacter via DAO, le project actuellement ouvert,
'db_name = CurrentProject.Path & "\" & CurrentProject.Name 'IMPOSSIBLE
'Il faut designer un projet fermé
 
    db_name = ClosedDbPath
    temp_name = db_name & ".temp"
    dao.DBEngine.CompactDatabase db_name, temp_name
    Kill db_name
    Name temp_name As db_name
 
    MsgBox "File size: " & FileLen(db_name)
End Sub