Discussion :

[Acasanva]

Bonjour,

Je post ce message en désespoirs de cause. J'ai cherché par moi-même sans succès.

À mon travail, je ai dû reprendre une base ACCESS 2010. Celle-ci est formée d'un accdb contenant les data (be.accdb) et une autre contenant formulaires, états, macros etc. : Finale.accdb (ne me jetez pas la pierre, je récupère le bouzin en l'état...). Je sais par des "on dit" que Finale.accdb utilise des tables liées dans be.accdb.

Lorsque j’essaie d'ouvrir Finale.accdb, ACCESS s'ouvre, mais n'ouvre pas la base. Il affiche la fenêtre par défaut comme si je l'avais ouvert en direct. J'ai essayé avec ou sans Shit, directement depuis ACCESS fichier-->Ouvrir. Rien à faire.

Or, mes utilisateurs ne peuvent plus non plus l'ouvrir (via le runtime) car mes géniaux collègues ont décidé de migrer les données d'un lecteur Windows sur un autre. Donc je soupçonne les liens sur les tables externes corrompus. Mais comme je ne peux pas ouvrir la base, je ne peux pas corriger.

Est-il possible d'ouvrir la base Finale.accdb en ignorant toutes erreurs (j'ai envie de dire "en mode sans échec") afin que je puisse faire les corrections, ou du moins exporter les Macros, formulaire etc. vers une nouvelle base?

Toute idée est la bienvenue. J'ai déjà la webcam de Lourdes qui tourne en boucle sur mon PC...

Merci infiniment.

[marot_r]

Bonjour.

Essaye un truc tout bete :

1. Creer une base vierge.
2. Va dans donnees externes
3. Choisi Access
4. Ensuite choisi Importer et selectionne tous les objets.
   Passe par les options pour t'assurer de recuperer aussi les menus personnalises.

Si tout va bien tu vas avoir une BD deprotegee apres.

Sinon, on peut faire du code pour modifier les proprietes d'une BD externe.
Je fais une recherché la dessus est je te reviens.

A+

[marot_r]

Bonjour.

Il y a un post la https://stackoverflow.com/questions/...nged-using-vba qui est interessant si tu peux remplacer CurrentDB par ta BD a bricoler.

Il doit falloir utiliser OpenDatabase.

Un truc du genre :

Code :

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

1
2
3
 
dim db as dao.database
set db = OpenDatabase("NomTaBDaBricoler")

Et evidement fait une sauvegarde de ta BD avant,

A+

[Acasanva]

Salut.

1000 mercis. J'ai un peu honte de ne pas y avoir pensé.

J'ai ré-importé formulaires & Cie dans une nouvelle base et j'ai lié les tables.

Maintenant, reste à débugger le code....

Encore merci!