Discussion :

[zebi42]

Bonjour,

A l'ouverture d'une base Access, le code suivant s'exécute:

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
Public Function Compacte()
Path = "d:\roanne\ultradiam\zones\COMMUN\"
 
' si base compactée existe, on la supprime
 
If Dir(Path + "DataStCl_Sav.mdb") <> "" Then
         Kill (Path + "DataStCl_Sav.mdb")
End If
 
'Compactage de la base dans une autre base
 
DBEngine.CompactDatabase Path & "\DataStCl.mdb", Path & "\DataStCl_Sav.mdb"
 
'Suppression base
 
Kill (Path + "DataStCl.mdb")
 
'Rename de la base compactée
 
Name Path + "DataStCl_Sav.mdb" As Path + "DataStCl"     ' Renommer la base compactée
 
End Function

J'ai le message d'erreur suivant:
Vous avez essayé d’ouvrir une base de données déjà ouverte en mode exclusif par l’utilisateur <nom> sur la machine <nom>. Recommencez lorsque la base de données sera disponible. (Erreur 3356)

Y a t'il un moyen de contourner ce problème??
Merci

[Tofalu]

Le message est pourtant clair. La base est ouverte, elle ne peut être compactée.

[cafeine]

Hello,

Trois remarques :
- j'évite d'utiliser "+" pour la concaténation .. ça peut parfois louper ...
- pourquoi renommes-tu sans l'extension .mdb ?
- "DataStCl" ce n'est pas ta base en cours ?

[zebi42]

Il me semblait avoir moi aussi été clair:

comment compacter une base à son ouverture?

La base à compacter est DataStCl

Le rename n'est pas la cause de l'erreur

[cafeine]

Ah oui ? alors n'hésite pas à nous préciser sur quelle ligne ...

ça pourrait bien être le Kill puisque ça semble être la base en cours.

Il me semblait avoir moi aussi été clair:

comment compacter une base à son ouverture?

La base à compacter est DataStCl

Le rename n'est pas la cause de l'erreur

[Tofalu]

Il me semblait avoir moi aussi été clair:

comment compacter une base à son ouverture?

Ah, ben j'avais pas vu ... et je ne vois toujours pas.

Ce que je vois en lisant ton code c'est que tu essaies de compacter une autre base que celle ouverte.

Sinon, tu aurais

- Utiliser CurrentDb pour connaitre le chemin de la base.
- Pas utiliser la méthode de compactage qui requiert la fermeture de la base
- Pas supprimer un fichier ouvert
- Encore moins en renommer un autre en espérant qu'Access passe de l'un à l'autre.

Tout ça pour dire que : Non tu n'as pas été clair, ton titre de message non plus d'ailleurs

Pour en revenir au fond du problème, ce n'est pas possible