Base ACCESS 2010 fractionnée et liaison UNC Fermé

Question

Bonjour,  

Le problème des bases ACCESS 2010 fractionnées à installer sur un poste « Client » après les avoir verrouillées (par conversion des bases accdb en accde) est de pouvoir conserver les liaisons sur n'importe quel poste entre la base frontale et la base dorsale. 
Pour cela, il semble qu'il faille utiliser des liaisons réelles du type UNC et non celles définies avec un lecteur mappé comme H:\, F:\,..... 
Est-ce quelqu'un connait la syntaxe à utiliser?
Un grand merci pour votre aide




Configuration: Windows XP / Firefox 15.0.1

f894009 · Answer

Bonjour,

https://fr.wikipedia.org/wiki/Universal_Naming_Convention

Maud · Answer

J'avais déjà vu ce type de lien mais je ne comprends pas ce qu'il faut renseigner comme "serveur" et comme "partage"...

Maud · Answer

Je ne comprends pas....

f894009 · Answer

Re,
Vos PC sont en reseau. En ouvrant l'explorer, vous allez jusqu'a ouvrir le repertoire ou est votre base sur votre server. Vous aurez le chemin dans la barre adresse de l'explorer.

Maud · Answer

Nous aurons dans ce cas une liaison définie avec un lecteur mappé comme h:\ ,F:\... et non une liaison du type UNC si je ne me trompe....

L'installation des bases sur les postes "client" se fait après verrouillage (par conversion des bases accdb en accde), ce qui veut dire qu'après je n'ai plus accès à l'explorer. 
Ce que je cherche à faire, c' est établir les liaisons  entre la base frontale et la base dorsale avant la conversion (sachant que la base dorsale se trouve dans un sous-répertoire de la frontale), et que ces liaisons fonctionnent sur n'importe quel poste "client".

f894009 · Answer

Re,

Nous aurons dans ce cas une liaison définie avec un lecteur mappé comme h:\ ,F:\... et non une liaison du type UNC si je ne me trompe.... 
Non, dans la barre d'adresse vous avez: \\serverepertoire de partage\sous-repertoire......
Je n'ai pas de PCs en reseau pour l'instant, donc je ne peut pas faire de simul. La semaine prochaine j'essaierai si vous n'avez pas resolu votre probleme.

Maud · Answer

Mon PC n'est pas non plus en réseau. Je suis donc très intéressée par votre simulation afin d'y voir plus clair.
Un grand merci par avance.
Bon WE

blux · Answer

Salut,

tu peux regarder ce qui a été fait ici :

https://forums.commentcamarche.net/forum/affich-14845990-access-gerer-plusieurs-bases-avec-1-menu-gen

Ca devrait aller dans le sens que tu souhaites...

Maud · Answer

Bonjour et merci blux,

Je ne vais pas avoir le temps de creuser ce matin, mais je regarde de plus prêt  dès que possible.

A + en encore merci pour ton aide

Maud · Answer

Re-bonjour Blux,

Il semblerait effectivement que la solution à mon problème figure dans le lien http://www.divshare.com/download/16055227-7c8 mais on n'arrive pas à y accéder.....

Maud · Answer

J'ai ré-essayé hier soir puis ce matin en vain...

Maud · Answer

C'est effectivement beaucoup mieux, merci.
Mise à part un petit problème de compilation, je reste baba devant ce développement! Mes connaissances en VBA sont cependant trop limitées pour pouvoir appréhender tous ces enchaînements (je n'arrive même pas à voir comment le module est rattaché au formulaire "Menu" : dans la feuille des propriétés, je ne vois rien...).
De mon côté, j'ai compris que j'étais sur une fausse piste avec ma liaison UNC : j'espérais par le biais d'une formulation type pouvoir accéder automatiquement à une base dorsal située dans un sous-répertoire de la base frontale (ou ailleurs), mais apparemment, c'est beaucoup plus complexe et là, je me sens un peu démunie...

Maud · Answer

Merci pour ton aide mais il faut que tu saches que ça risque d'être un peu laborieux, mes connaissances en VBA sont encore une fois très limitées! Mais si tu veux, on peut essayer.

Entre les 2 solutions, je ne sais pas qu'elle est la plus adaptée sachant qu'au départ, je n'ai aucune connaissance de l'arborescence chez le "client"...
Quels sont les avantages et inconvénients des 2 méthodes?

Maud · Answer

Je suis tout à fait pour le fait de ne pas avoir à modifier le code à chaque changement de chemin.

Concernant la boîte de dialogue, elle s'ouvre à l'ouverture du frontal :
- uniqt la 1ère fois pour établir les liens?
- à chaque ouverture du frontal?

Maud · Answer

Alors avec ouverture la 1ère fois pour établir les liens + lancement manuel au cas où....
Petites précisions avant de démarrer : 
- le poste sur lequel je travaille n'est pas en réseau
- il pourra y avoir éventuellement 2 ou 3 bases dorsales
Est-ce que ça pose problème?

Maud · Answer

Alors si tu es d'accord on y va! (en espérant que les tests seront possibles...)

Maud · Answer

Bonjour,
Il s'agit d'un applicatif multi-utilisateurs que j'ai développé qui se compose :

- d'une base frontale

- d'une base dorsale contenant des données à mettre à jour via la frontale

- de 2 autres bases dorsales non installées dans le même répertoire que la précédente : à partir de tables liées, je lance une requête qui va alimenter pour la 1ère et complémenter pour la seconde une table dans la 1ère base dorsale qui va permettre de faire des contrôles de cohérence. Cette phase peut être soit maintenue soit modifiée dans sa conception en fonction des clients. C'est pour ça que je te parlais d'une ou plusieurs bases dorsales

- un formulaire "MENU" s'ouvre automatiquement à l'ouverture de la base frontale via une macro autoexec. Ce formulaire est adossé à une table qui se trouve dans la base dorsale (si besoin est, il est possible de l'adosser à une table du frontal).

Maud · Answer

Ce sera un booléen qui sera à 0 : c'est quoi un booléen? Un champ vrai/faux? Quel nom pour la table et pour le champ?

- la 1ère base dorsale aura toujours le même nom
- les 2 autres (ou l'autre s'il n'y en a qu'une autre)  peuvent être issues de n'importe quelles bases et se trouver n'importe où : encore une fois je pense qu'il m'est tout à fait possible de traiter le problème différemment,  afin de ne plus avoir ces 2 autres dorsales.

Maud · Answer

OK pour le booléen. 
- Nom de la table : TblLiaisonDorsale
- Nom du champ OUI/NON : Liaison

Pour les dorsales, après réflexion, je simplifie : je n'en conserve qu'une et je traiterais l'aspect contrôle différemment.

Maud · Answer

OK.
Encore une fois merci pour ton aide.
Bon WE et à lundi

maud · Answer

(hors table TblLiaisonDorsale) : cette table figure dans le frontal

Toutes les tables contenues dans la dorsale sont bien liées

maud · Answer

la frontale est la base que voit l'utilisateur, et la dorsale est celle qui contient les tables :
Tout à fait d'accord

les tables contenues dans la dorsale sont liées, en fait, pour moi, c'est le contraire :
Je pense que l'on parle de la même chose : quand on regarde la liste des tables dans la frontale, on voit : 
- d'une part celles qui sont propres à la frontale
- d'autre part les tables liées à la dorsale

OK?

maud · Answer

Mes connaissances en code sont trop limitées pour comprendre.....

maud · Answer

Je vois que ça a l'air d'être un jeu d'enfant pour toi!
Je ne peux hélas pas en dire autant.....

blux · Answer

Voici donc un peu de code que tu vas mettre dans un module access. Sub MAJ() Dim Db As Database Dim Tb As TableDef Dim Unc As String Dim Rep As Integer Dim Fd As FileDialog Dim SelectedFile As Variant Dim NomBase As String ' Ouverture d'une boite de dialogue pour choix de la base à lier Set Fd = FileDialog(msoFileDialogOpen) With Fd .AllowMultiSelect = False .ButtonName = "Ouvrir" .Filters.Clear .Filters.Add "Bases Access", "*.mdb" .InitialFileName = "*.mdb" .InitialView = msoFileDialogViewList .Title = "sélectionnez un fichier" If .Show Then For Each SelectedFile In .SelectedItems NomBase = SelectedFile Next SelectedFile End If End With Set Fd = Nothing ' Mise à jour des attaches Set Db = CurrentDb Unc = ";DATABASE=" & NomBase ' Test des attachements ' On exclut les tables système ' ainsi que les tables non attachées For Each Tb In Db.TableDefs If Left(Tb.Name, 4) <> "MSys" And Tb.Connect <> "" Then MsgBox "Table :" & Tb.Name & vbCrLf & "actuellement attachée à" & vbCrLf & "Chemin : " & Tb.Connect Rep = MsgBox("Mettre à jour la table " & Tb.Name & vbCrLf & "pour pointer sur " & Unc & " ?", vbYesNo, "Confirmation...") If Rep = vbYes Then Tb.Connect = Unc Tb.RefreshLink End If End If Next Set Db = Nothing End Sub Ensuite, tu pourras créer un bouton sur ton formulaire et faire référence à ce module simplement en l'appelant (évènement sur clic du bouton) : Private Sub Commande10_Click() MAJ End Sub Essaie de faire tourner ceci d'abord, on verra ensuite pour le test de la première visite. A+ blux "Les cons, ça ose tout. C'est même à ça qu'on les reconnait"

maud · Answer

C'est fait.
Par contre, quand je clique sur le bouton, il m'envoie un message d'erreur :
=> sur la ligne Fd Dim As FileDialog
Erreur de compilation :
Type défini par l'utilisateur non défini

Par ailleurs, je t'avais déjà signalé que mon formulaire MENU qui s'ouvre au démarrage (avec macro Autoexec) est adossé à une table qui se trouve dans la dorsale. Est-ce que ça pose problème?

maud · Answer

C'est fait.
Un nouveau message s'est affiché " Nom de module, de projet ou de bibliothèque d'objets déjà utilisé"
J'ai cliqué sur OK.

Quand je clique à nouveau sur le bouton que j'ai créé sur le formulaire "MENU", le même message d'anomalie (Erreur de compilation..) apparaît.
Par contre, le menu déroulant n'apparaît plus lorsque je clique sur "Réinitialisation"....

maud · Answer

Oublie l'histoire du menu déroulant (il était tard...).
Quand je refais la manip, je m'aperçois que les 2 références ne sont plus cochées, donc je les re-coche et fais OK. Et là le message  " Nom de module, de projet ou de bibliothèque d'objets déjà utilisé" apparaît tout de suite...

maud · Answer

Je reprends :
- je clique sur le bouton que j'ai créé dans le menu pour lancer le module, j'ai un message d'erreur :
      => sur la ligne Fd Dim As FileDialog
     Erreur de compilation :
     Type défini par l'utilisateur non défini 

Je fais donc ce que tu m'a dit, à savoir OK, Réinitialiser, et dans Outils/références je coche les 2 que tu m'as indiquées (Microsoft DAO 3.6 Object librairy et Microsoft office 14.0 Object librairy) puis je clique sur OK.
Et là le message " Nom de module, de projet ou de bibliothèque d'objets déjà utilisé" apparaît tout de suite...

maud · Answer

Je n'ai pas l'occasion de l'enregistrer, le message d'erreur apparaît tout de suite. Et quand je reviens sur la liste, les 2 références sont décochées.
Je suis sur Access 2010

maud · Answer

Il ne me laisse pas le temps d'enregistrer, il m'envoie le message d'erreur tout de suite.
Avant de faire toutes ces manip (création de code, bouton sur menu, etc...), j'avais fait une copie de ma base.
J'ai refais une nouvelle copie et ai recommencé toutes les manip, hélas j'arrive au même résultat..

maud · Answer

'déclaration des variables obligatoires' était déjà décoché.
Dans "Récupération d'erreur, seul "Arrêt sur les erreurs non gérées" est coché

maud · Answer

Non

maud · Answer

les 5 premières à savoir :
- Visual Basic for applications
- Microsoft Access 14.0 Object library
- OLE Automation
- Microsoft Visual Basic for Application extensibility 5...
- Microsoft Office 14.0 Access database engine Object

maud · Answer

Merci pour l'info.
Cette foi-ci c'est OK. Quand je lance le module, la fenêtre "Sélectionner un fichier" s'ouvre.
Bravo!

maud · Answer

OK, on y va comme ça

blux · Answer

Donc, le code donne ça : Sub MAJ() Dim Db As Database Dim Tb As TableDef Dim Unc As String Dim Rep As Integer Dim Fd As FileDialog Dim SelectedFile As Variant Dim NomBase As String ' Ouverture d'une boite de dialogue pour choix de la base à lier Set Fd = FileDialog(msoFileDialogOpen) With Fd .AllowMultiSelect = False .ButtonName = "Ouvrir" .Filters.Clear .Filters.Add "Bases Access", "*.mdb" .InitialFileName = "*.mdb" .InitialView = msoFileDialogViewList .Title = "sélectionnez un fichier" If .Show Then For Each SelectedFile In .SelectedItems NomBase = SelectedFile Next SelectedFile End If End With Set Fd = Nothing If NomBase <> "" Then Rep = MsgBox("Mettre à jour les attaches de la base" & vbCrLf & "pour pointer sur " & NomBase & " ?", vbYesNo, "Confirmation...") If Rep = vbYes Then Set Db = CurrentDb Unc = ";DATABASE=" & NomBase ' Test des attachements ' On exclut les tables système ' ainsi que les tables non attachées For Each Tb In Db.TableDefs If Left(Tb.Name, 4) <> "MSys" And Tb.Connect <> "" Then Tb.Connect = Unc Tb.RefreshLink End If Next Set Db = Nothing End If End If End Sub A+ blux "Les cons, ça ose tout. C'est même à ça qu'on les reconnait"

maud · Answer

Ce nouveau code est bien à mettre à la place du précédent?

maud · Answer

C'est fait.
Lorsque je teste, et que la fenêtre "Sélectionner un fichier" s'ouvre, je n'ai accès qu'au type de fichier "Bases Access (*.mdb). Il me faudrait aussi les autres (*.accdb;*.accde;*.accdr)

maud · Answer

Et si tu connais le nom de ta dorsale, tu peux même le mettre dans initialfilename... : je préfère laisser "*.mdb;*.accdb;*.accde;*.accdr", 1 
afin de lier une dorsale avec un nom différent si besoin ( ex : fichier sauvegardé avec un nom différent)

Par contre, j'avais un message d'anomalie pour cette ligne itfilename.... "Erreur de compilation, Errreur de syntaxe".
J'ai retiré le "1" en fin de ligne, et là.......C'EST PARFAIT, j'arrive à modifier ma dorsale (nom et/ou chemin) à volonté!!!

Est-ce qu'en l'état le contrôle de la liaison se fait également à l'ouverture de la base ou est-ce qu'il reste encore quelque chose à paramétrer?

maud · Answer

Je tiens d'ores et déjà à te remercier pour cette grande avancée que nous avons réalisée aujourd'hui.
C'est super!

maud · Answer

Bonjour Blux,

Et si on enchaînait sur le problème de la 1ère visite après ce break bien mérité !!!
Je compte sur toi pour en finir avec ce thème.
J'aurais ensuite 2 autres problèmes à soulever à propos de ces bases fractionnées. Mais ça fera l'objet d'un autre dossier afin de ne pas alourdir d'avantage celui-ci.

maud · Answer

Alors bon courage, et si je n'ai pas le plaisir d'avoir de tes nouvelles d'ici là, bon WE.

maud · Answer

Bonjour Blux,

Je me permets de revenir vers toi pour savoir quand est-ce que tu penses pouvoir m'aider à finaliser?
Merci encore pour ton aide

maud · Answer

Plusieurs choses :
Tout d'abord merci de revenir vers moi

J'ai effectué les MAJ ci-dessus et il en résulte que :
- lorsque je lance la MAJ des liaisons tel que nous l'avions mise en place précédemment et en ayant intégrer les nouvelles lignes de codes développées ci-dessus, la procédure fonctionne toujours correctement
- si j'ouvre ma base en ayant préalablement déplacé le frontal dans un autre répertoire, la procédure de MAJ ne se lance pas

Quelques points me surprennent :
- 2 - Modifier la procédure MAJ, pour lui dire que si on a fait la mise à jour des liens il convient de mettre à jour le champ liaison de la table TblLiaisonDorsale  :
Ne convient-il pas de mettre la valeur à 1 (et non à -1)?

- 3 - Créer un code évènement "sur ouverture" du formulaire principal et mettre ce code : 
Il me semblait que Vrai = 1 et Faux =-1 et on fait un test sur une valeur = 0 à l'ouverture du formulaire principal....

Ne manque t'il pas quelque chose dans la procédure pour tester à l'ouverture du frontal que la liaison avec la dorsale se fait bien?

maud · Answer

Ca peut sûrement se solutionner (je ne l'ai cependant jamais fait). 
Si un jour tu as la solution, ça m'intéresse

Quoi qu'il en soit, je tiens à te faire part de toute ma reconnaissance pour ce que tu as fait pour moi. Un grand merci pour le temps que tu m'as consacré, pour ta patience, ton dévouement et ta gentillesse!

maud · Answer

C'est curieux : ça plante sur la ligne MAJ avec comme motif
   Erreur de compilation :
   Erreur de syntaxe

maud · Answer

Lorsque j'ouvre la base en conservant les liaisons avec la dorsale, une fenêtre Microsoft Access s'ouvre avec:
     Erreur 0 :
     OK

et quand je clique sur OK mon formulaire MENU s'ouvre


Si je déplace ma dorsale et que j'ouvre l'ouverture du frontal, j'ai directement la fenêtre "Sélectionner un fichier" qui s'ouvre : C'EST GÉNIAL!!!

Si j'ai bien suivi, il ne reste plus qu'à faire en sorte que le message Erreur 0 ci-dessus ne s'affiche plus, et d'aménager quelque peu ce que nous avions fait précédemment, non?

PS : il faut absolument que je fasse un break, je me reconnecte cet après midi

MERCI MERCI MERCI

maud · Answer

Cette fois-ci, ça a l'air parfait!!! C'est exactement ce qu'il me fallait!!!

Par rapport à ce que nous avions fait précédemment, Je pense que je peux :
- supprimer le booléen
- supprimer la procédure de mise en place pour la 1ère visite (cf : tes consignes du 26/10)


OK?

maud · Answer

Encore mille mercis!
Ce que tu m'as permis de réaliser est tout simplement FA-BU-LEUX

maud · Answer

Et modeste avec ça!

Maud · Answer

Problème de dernière minute : lorsque je transforme ma base en ACCDE, ça plante à l'ouverture (alors que ça fonctionne très bien en ACCDB). 
=> une 1ère fenêtre signale que "L'expression entrée comporte un nom de fonction que Microsoft Access ne peut pas trouver", 
=> une seconde m'indique que c'est la macro Autoexec qui plante Sur Action : ExécuterCode, et  Argument : Ctrl_liens()
Par ailleurs, à ce stade je n'ai plus aucun bouton qui fonctionne sur mes formulaires...
Comment y remédier?

Maud · Answer

Oui.
La dorsale est actuellement en accdb. Je ne sais pas encore si dans la version définitive je vais ou non la transformer en accdr.

Maud · Answer

Je l'ouvre toujours sur mon poste

Maud · Answer

Merdoum......
J'ai refait un accde (pour voir...), mais j'obtiens les même résultats.....

Maud · Answer

J'ai continué à faire certains tests et il y en a un autre qui me déroute : 

J'ai retiré la fonction qui lançait le code dans la macro autoexec, (il ne reste plus dans cette macro que l'ouverture de mon formulaire Menu). Lorsque que crée un accde, je n'ai plus de message d'anomalie (normal...), mais par contre tous les boutons de mes formulaires restent inactifs.... 
Je précise que dans les Paramètres des macros dans le Centre de gestion de la confidentialité, j'ai opté pour "Activer toutes les macros"

J'ai fini par réinstaller le pack-office 2010 mais ça ne change rien...

Maud · Answer

La même qu'avec l'accde à savoir la ligne Action ExécuterCode pour l'argument Ctrl_Liens

Maud · Answer

Si on met la procédure ailleurs le contrôle des liaisons ne se fera plus à l'ouverture de la base.....
Par contre sur cet autre poste j'ai fait supprimer la procédure pour ne laisser que l'ouverture du formulaire "MENU" dans l'autoexec. Et là, il se produit le même phénomène que celui que j'évoquais hier à 12 H 06, à savoir que tous les boutons de mon formulaire "MENU" sont inopérants. La différence c'est qu'hier ça se produisait sur l'accde alors que là nous sommes toujours sur l'accdb.
C'est une histoire de fou!!!

Maud · Answer

J'ai retiré la procédure de l'autoexec et je la lance via les évènements sur ouverture du formulaire MENU. Il en résulte :
- sur accdb : tout se passe bien
- sur accde : pas de message d'anomalie mais la procédure de contrôle ne se lance pas (j'avais modifié le nom de la dorsale pour délier les bases au préalable et rien ne se passe). Par ailleurs, les boutons de mon formulaire MENU sont toujours inopérant.

Maud · Answer

Ça y est, à force de creuser j'ai fini par trouver l'origine du problème de l'accde : c'est un (ou +) formulaire. En créant un accde avec uniquement le formulaire MENU, les boutons fonctionnent! 
Maintenant, il faut trouver le(s)quel(s) pose(nt) problème (j'en ai 80 à passer en revue...) et pourquoi.
Je te tiens au courant

Base ACCESS 2010 fractionnée et liaison UNC

60 réponses

Discussions similaires