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
Partager