Err. 3045, Currentdb() ==> Fichier en cours d'utilisation
Bonjour,
NB : nouvelle discussion ? lire les raisons en fin de message, pour donner la priorité au problème, très souciante comme vous en conviendrez probablement.
Je me sens complètement désemparé face à ce message :
Impossible d'utiliser «ma-DB». Fichier en cours d'utilisation. (3045)
qui survient lorsque le code associé à un bouton d'un formulaire tout simple arrive sur l'instruction "Set MyDB = CurrentDb". Voici mes dernières tentatives pour éviter cette erreur.
J'ai donc créé une nouvelle DB "mini.mdb' dans la racine D:, avec 1 table ne contenant qu'un champ-clef, 1 formulaire sans source avec 1 bouton qui exécute ce code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Dim MyDB As Database
Private Sub cmdMini_Click() '=================================
On Error GoTo GestionErreurs
Stop
Set MyDB = CurrentDb
Set MyDB = Nothing
ExitHere:
Exit Sub
GestionErreurs:
GestionErreur Err.Number, "cmdMini_Click"
Resume ExitHere
End Sub '=============================================== |
Exécution ? OK.
J'ai alors déplacé la base dans le répertoire où je travaille "D:\po2013\ProjetMSA". J'ai ouvert la base, l'ai activée pour éliminer la protection de Win8 après un déplacement de fichier, ouvert le formulaire et cliqué sur le bouton et Arghh, ERR 3045 a de nouveau frappé mes yeux effarés.
Il est donc possible (who knows ?) que le problème soit lié aux accès aux fichiers et/ou aux dossiers :
- mini.mdb : accès libre, la case Lecture seule n'est pas cochée. Partie Attributs avancés, 2 cases sont cochées : Le fichier est prêt à être archivé et Autoriser l'indexation du contenu de ce fichier en plus des propritéts de fichier.
- dossier ProjetMSA : la case Lecture seule (s'applique uniquement aux fichiers du dossiers) est dans un état intermédiaire (petit carré noir à l'intérieur de la case) entre non-cochée (case blanche) et cochée (case blanche avec le V classique). J'ai décoché la case ainsi que celle du dossier supérieur po2013, ce qui donne un message avec e.a. une seule case cochée Appliquer les modifications à ce dossier, aux-sous-dossiers et aux fichiers sans possibilité de la décocher (et l'autre case n'est pas accessible) ; seule option : [OK].
- racine D : 97,6 Go dont 14,6 utilisés ; je l'avais mise en Partagé alors que cela n'a pas lieu d'être, mais sait-on jamais ? Les Utilisateurs authentifiés, Utilisateurs, Administrateurs et Système ont un contrôle total. Difficile de faire plus ouvert. La gestion de quota n'est pas activée.
Nouvelle exécution : même erreur et la case Lecture seule pour le dossier "ProjetMSA" est remis en stade intermédiaire à l'insu de mon plein gré ; j'ai lu sur un site de Microsoft que c'est sans impact sur les permission aux niveaux des fichiers.
J'ai supprimé l'indexation au niveau de mini.mdb. Nouvel essai et toujours l'erreur.
Où est-elle cette corde pour me pendre ? Non, je vais plutôt investiguer du côté de LibreOffice et en plus c'est gratuit et pas comme Office : des centaines d'euros et des années de pratique et d'expérience à la poubelle.
Michel
NB : Je crée une nouvelle discussion pour 2 raisons :
- ma première discussion «Test de Sub dans un module : erreur 3045, Currentdb() ==> Fichier en cours d'utilisation» est trop limitative par son sujet car maintenant j'ai cette erreur quasi immédiatement et même dans une toute petite MDB toute neuve ;
- j'y avais indiqué au sommet du 1er message que le problème était résolu en changeant les permissions sur le dossier. Ce n'est plus du tout exact, mais je ne peux modifier mon post en ce sens. Et tout lecteur du début passera ailleurs, bien compréhensiblement.
