Discussion :

[Jeanpierre71]

Bonjour,

Petit souci mais particulierement pénible. Je créé une frontale, le chemin des tables liées qui sont sur le serveur a un nom de lecteur réseau exemple T: . Cette frontale ne pourra fonctionner sur un autre poste que si le chemin d'accés à la dorsale passe également par le lecteur réseau T.
Pire dans ma base de données j'ai des liens hypertextes, ces liens sont egalement tributaires du même lecteur réseau. Il y a une astuce ou je n'ai pas le choix pour contourner le problème ? Merci par avance pour les solutions éventuelles

[Tofalu]

Bonjour

Vous trouverez sur le site des exemples pour proposer la ré-attache des tables à l'utilisateur.

Ensuite, en ce qui concerne les liens ou les fichiers, utilisez des chemins relatifs à partir du répertoire de la base de données.

Exemple : si le fichier est accessible via t:\rep1\sousrep000\applications\patientv1\fichiers\f001.txt et que la base de données est dans t:\rep1\sousrep000\applications\patientv1, stockez seulement : fichiers\f001.txt

Reconstruisez le chemin complet avec CurrentProject.Path

[Ovr19]

Bonjour,

j'ai été confronté à ce type de problème et ma solution a été de créer un fichier txt qui contient les chemins des bds (locales et distantes) et qui est installé sur chaque pc avec la base des formulaires (frontale ou dorsale ???). à chaque ouverture de bd, un bout de code va récupérer le chemin dans ce txt et si les attachements avec les tables sont cassées, ils sont recréés en VBA.

exemple de fichier txt (Cfg.txt):

Code :

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

1
2
3
4
5
[Rep install]
; chemin de la base locale
RepInstall=C:\Users\utilisateur1\Documents\G_bds\
; chemin de la base distante
RepReccord=\\P12\P12Mes documents\G_bds\

code pour récupérer le chemin dans le fichier Cfg:

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
Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Private Declare Function GetPrivateProfileInt Lib "kernel32" _
Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
 
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
 
 
Public Function GetINIString(ByVal sApp As String, ByVal sKey As String, ByVal ConfigFile As String) As String
    Dim sBuf As String * 256
    Dim lBuf As Long
 
    lBuf = GetPrivateProfileString(sApp, sKey, "", sBuf, Len(sBuf), ConfigFile)
    GetINIString = Left$(sBuf, lBuf)
 
End Function

et pour recréer les liens:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Public Function MajLien()
On Error GoTo Err_MajLien
    Dim RepInstall As String, RepConfig As String, ConfigFile As String
    Dim LinkBdd As String
    Dim oDb As dao.Database, oTba As dao.TableDef, oDbSource As dao.Database, oTbaSource As dao.TableDef
    Dim strTemp As String, strConnect As String, strNomsTables() As String
 
    RepConfig = Application.CurrentProject.Path
    ConfigFile = RepConfig & "\Cfg.txt"
    RepInstall = GetINIString("Rep install", "RepReccord", ConfigFile)
    LinkBdd = "nom de base enregistrement"
 
    Set oDb = CurrentDb
    strTemp = ""
    strConnect = "MS Access;pwd=" & chr(34) & chr(34) & ";DATABASE=" & RepInstall & LinkBdd
    Set oDbSource = DBEngine.OpenDatabase(RepInstall & LinkBdd, True, True, strConnect)
 
    For Each oTba In oDb.TableDefs
        If Left(oTba.Name, 4) <> "MSys" Then
            If Len(oTba.Connect) > 0 Then
                DoCmd.RunSQL "DROP TABLE [" & oTba.Name & "] ;"
            End If
        End If
    Next
 
    For Each oTbaSource In oDbSource.TableDefs
        If (oTbaSource.Attributes And dbSystemObject) = 0 And Left(oTbaSource.Name, 6) = "SysTab" Then
            strTemp = strTemp & oTbaSource.Name & "|"
        End If
    Next
 
    oDbSource.Close: Set oDbSource = Nothing
    strNomsTables = Split(Left(strTemp, Len(strTemp) - 1), "|")
 
    For nbr = 0 To UBound(strNomsTables)
        Set oTba = oDb.CreateTableDef(strNomsTables(nbr))
        oTba.Connect = strConnect
        oTba.SourceTableName = strNomsTables(nbr)
        oDb.TableDefs.Append oTba
        Application.SetHiddenAttribute acTable, oTba.Name, True
    Next
 
    oDb.TableDefs.Refresh
    strTemp = ""
 
Exit_MajLien:
    Exit Function
 
Err_MajLien:
    MsgBox Err.Number & " : " & Err.Description
    Resume Exit_MajLien
 
End Function

après la mise à jour des liens, un redémarrage de la base locale s'impose

bonne continuation

[chrtophe]

Solution alternative :

Créer un fichier .bat créer le volume réseau T: puis ouvrant la fontale automatiquement.

Exemple :

Code :

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

1
2
3
4
5
6
 
rem destruction lettre precedente si existante
net use t: /d
rem creation volume T
net use t: \\chemin reseau /user:nom utilisateur mot de passe
chemin frontale_nom_base frontale.mdb

Selon les versions système ( XP, VIsta/seven ), il faut inverser /user: nom utilisateur et le mot de passe
Sur mon système, il me suffit de mettre le nom du fichier mdb, mais Selon config, il peut s’avérer nécessaire de mettre ceci à la place :

Code :

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

chemin exe access\msacces.exe nom base

En cas de nom de fichier ou nom d'utilisateur contenant des espaces il faut mettre entre guillemets

[paidge]

Bonjour,
C'est peut-être moi qui n'ai pas compris le problème, mais j'ai une solution plus simple : au lieu de mettre un chemin du type "T:\monDossier\maDorsale.accdb", je mets quelque chose du type "\\monServeur\monPartage$\monDossier\maDorsale.accdb" pareil pour les liens Hypertextes...

[Jeanpierre71]

Merci à tous pour vos renseignements eclairés

[McommeMick]

Merci à tous pour vos renseignements eclairés

Pour compléter l'info, en utilisation monoposte (dorsale et frontale sur le même PC) l'adressage de fichier avec adresse UNC peut ne pas fonctionner si le PC n'est pas connecté à un réseau ! Eh oui... c'est bête mais ça peut être déstabilisant et faire perdre du temps sur la question.

La solution consite à simuler la connection réseau. Procéder ainsi (avec les droits administrateur):
1 - exécuter: hdwwiz.exe
2 - Depuis "Gestionnaire de périphérique" - "action" - "Add legacy Hardware" - écran "Welcome to Add Hardware wizzard", cliquer sur "Next", puis choisir 'install the hadware that i manually select…' puis "Network adapter", puis "Microsoft" puis "Microsoft Loopback Adapter".
Redémarrer le PC et maintenant plus besoin d'avoir le cable réseau connecté ou le Wifi activé pour que les adresses UNC fonctionnent.