Discussion :

[Virgile59]

Bonjour, j'ai une base de donnée qui est fractionner

La principale est sur le serveur et je fais donc des copies de la partie ou il y a les formulaires

Mais voilà sur les pc de ma boite les lettres des lecteurs réseau ne sont pas les même

Je voudrais donc savoir comment changer l'adresse liaison des tables
par exemple si c'est K:\Save\test.mdb

Mettre \\SRV001\Commun\Save\test.mdb

J'espère que qqn peut m'aider ou me proposer une autre solution.

[cafeine]

Hello,

as-tu essayé de modifier la chaine de connexion de la table accessible par .Connect ?

[Virgile59]

Vous pouvez expliquer .connect ?

Ce serait sympa

[cafeine]

Ce serait également sympa de faire une recherche sur le forum, regarder les FAQ et sources, voire de faire :

Code :

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

Debug.Print Currentdb.TableDefs("MaTable").Connect

[Virgile59]

J'ai trouvé ce petit code

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
Sub ESSAI() 
    Dim stFileDb As String, stnomtable As String 
    Dim td as DAO.TableDef 
 
    stFileDb = "c:\chemin2\données.mdb" 
 
    For each td in To CurrentDb.TableDefs 
        stnomtable = td.Name 
 
        If (Mid(stnomtable, 1, 4)) <> "msys" Then 
            ' Ignore les tables systèmes 
            MsgBox "La table " & stnomtable & " va être traitée" 
 
            ' stFileDb est le chemin de la BD passé en paramètre. 
            td.Connect = ";DATABASE=" & stFileDb 
            td.RefreshLink 
 
            MsgBox td.Connect 
        End If 
    Next td 
End Sub

Il faut le mettre ou ?

[cafeine]

Ce serait également sympa de faire une recherche sur le forum, regarder les FAQ et sources, voire de faire :

Code :

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

Debug.Print Currentdb.TableDefs("MaTable").Connect

Regarde ce que ça renvoie ...

si ça donne

Code :

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

;DATABASE=M:\Dossier\Base.mdb

tu n'as qu'à essayer de faire :

Code :

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

Currentdb.TableDefs("MaTable").Connect = ";DATABASE=\\Machine\Dossier\Base.mdb

[patdaum]

Sans passer par du code, ds outils, utilitaires ...

à nom de fichier tu frappes ==>\\SRV001\Commun\Save\test.mdb

[Virgile59]

Il n'y a rien pour faire ce que tu indique !

[cafeine]

As-tu essayé la solution que je te propose ?

[patdaum]

Je ne sais pas à qui tu dis qu'il n'y a rien donc je complete

Sans passer par du code, ds outils, utilitaires de base de données, gestionnaire de table liées
Cocher tjs demander un nouvel emplacement
selectionner tout
OK
et à nom de fichier tu frappes ==>\\SRV001\Commun\Save\test.mdb

[Virgile59]

Merci patdaum j'ai compris la demarche.


Par contre j'aimerais connaitre la solution de caféine

Ou faut il mettre cette ligen de code ?

Code :

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

Debug.Print Currentdb.TableDefs("MaTable").Connect

Et comment, avec ce code, access peut savoir où sont mes tables ? On ne lui donne pas de chemin d'accès ??

[cafeine]

Dans la fenêtre exécution par exemple accessible avec CTRL + G

La ligne de code que je t'ai donnée est faite pour visualiser l'adresse de la base.

Dans mon autre post : http://www.developpez.net/forums/vie...326684#2326684

je t'indique comment faire pour le modifier.

A la question : où mettre ce code
soit ce code ne sert qu'une fois et tu peux le mettre en fenêtre exécution.
soit ce code servira plusieurs fois, et tu peux le mettre dans une procédure (Sub)

[Virgile59]

Ok merci j'ai compris le principe Sympa !

Merci à tous les deux