Discussion :

[valentin4949]

Bonjour, je voudrais compacter la bdd de mon appli en cours. j'ai essaye de lancer un autre .mdb qui tue le processus de l'appli principale mais quand je fais un

Code :

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

1
2
3
4
 
CompactDatabase "AppliPrincipale" "AppliPrincipaleTmp"
Kill "AppliPrincipale"
Name "AppliprincipaleTmp" As "Appliprincipale"

Access me repond cordialement : "Run-Time error '3356' vous avez essaye de compacter une base deja ouverte en mode exclusif..."
Le pire, c'est qu'en "pas-a-pas" ca passe.
Si qqun peut m'eclairer... merci d'avance.

[DonFelipe]

Slt,
Ne sachant te répondre directement je te propose de te donner qqs infos disons "traitant du sujet de compactage".
Si ta base est une base 2000 il suffit que dans outils tu coches la case "compacter à chaque fermeture" et tu auras ainsi une base "propre" à chaque nouvelle utilisation (à supposer que ta base est bien fermée après utilisation, tous les soirs par exemple).
Si toutefois il arrive qu'elle reste ouverte dans tel ou tel bureau tu peux également aller voir dans les code-sources, il y a un petit shtouya de code pour programmer la fermeture de ta base à une heure bien précise (par ex tous les soirs à 21h).
....

[valentin4949]

Je travaille sous Access 2003 donc l'option compacter a la fermeture existe... Le probleme est que quand je tue le processus, le compactage ne s'effectue pas. Je pense que cette option ne s'effectue qu'apres une commande de type

Code :

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

 CurrentDb.Close

ou

Code :

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

 Appplication.Quit

dans mon cas, le but est de piloter le compactage a partir d'une autre appli, je ne peut dons pas utiliser ces commandes.
Merci quand meme.

[gripoil]

Bonjour, je reposte une solution pour un bouton Compacter pour Access 97.

Dans un module Standard que tu nommes obligatoirement "Fonctions" (ce nom est repris dans le script) :

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
28
29
Function CompactEXE() As Boolean 
 
'Compacte la base de données en cours 
 
On Error GoTo Err_CompactEXE 
 
Dim strDbFile As String 
strDbFile = CurrentDb.Name & ".tmp" 
 
If Dir(strDbFile) <> "" Then Kill strDbFile 
 
DBEngine.CreateDatabase strDbFile, dbLangGeneral 
DoCmd.CopyObject strDbFile, , acMacro, "mcrCompact" 
 
'Attention au nom du module ! 
 
DoCmd.CopyObject strDbFile, , acModule, "Fonctions" 
 
Shell "MSACCESS.EXE """ & strDbFile & """ /x mcrCompact", _ 
        vbMinimizedNoFocus 
 
Quitte_CompactEXE: 
Exit Function 
 
Err_CompactEXE: 
    MsgBox Err.Description 
Resume Quitte_CompactEXE 
 
End Function

et

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
Public Function Compact() 
 
    Dim acApp As Access.Application 
    Dim strDbPath As String, strDbFile As String 
    Dim strDbFileOld As String 
 
    strDbPath = CurrentDb.Name 'Nom complet de la base 
    strDbFile = Left(strDbPath, Len(strDbPath) - 4) 'Nom complet de la base sans l'extension ".mdb" 
    strDbFileOld = Left(strDbFile, Len(strDbFile) - 4) & ".old" 'Nom complet de la base avec l'extension ".old" 
 
    Set acApp = GetObject(strDbFile) 
 
    With acApp 
        .SysCmd acSysCmdSetStatus, "Compactage en cours..." 
        .CloseCurrentDatabase 
        DBEngine.CompactDatabase strDbFile, strDbFileOld 
        Kill strDbFile 
        Name strDbFileOld As strDbFile 
        .OpenCurrentDatabase strDbFile 
        .SysCmd acSysCmdClearStatus 
    End With 
    Application.Quit 
End Function

Pour finir une macro mcrCompact

Il faut donc créer une macro contenant juste l'instruction suivante :

Code :

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

1
2
Action : ExécuterCode 
NomFonction : =Compact()

Dans ton formulaire, tu fais un joli bouton et tu lui attribues l'évènement sur Clic :

Code :

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

=CompactEXE()

Succès garanti.

[valentin4949]

Ok, j'ai du adapter un peu tout ca car mon system de compacatge reprenait le meme shema : ouverture d'une autre base pour compacter la premiere. En fait je recuperait le numero du processus de ma base pour le tuer ce qui ne declenchait pas le compactage a la fermeture. Il m'a suffit de fermer ma base avec un

Code :

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

1
2
Set app = GetObject(strMaBase)
app.Quit

code qui lui declenche le compactage automatique.
Voila voila un tag "resolu" de plus.
Merci a tous.