Access, VB et tables liées

Bonjour,

J'ai développé une application VB qui utilise 3 bases access.
La première utilise plusieurs tables contenues dans les 2 autres DB ( j'ai lié les tables )

Tout fonctionne très bien tant que je suis dans le même répertoire..... Si je déplace les 3 fichiers il faut recréer les liens ! ( Access utilise un path absolu apparemment :-( )

J'ai prensé à modifier la table MSysObjects mais même avec le profil Administrateur je ne peux pas modifier la table ! ( et je ne sais pas comment faire pour m'attribuer les droits, j'arrive bien à lire mais pas possible de faire un update )

Si quelqu'un sait comment faire ou a un moyen plus simple pour résoudre ce problème ce serai super

D'avance merci,

GrosLolo

Vous cassez plus j'ai la solution mais comme j'ai perdu 1/2 journée pour trouver ça peut toujours servir à quelqu'un !

Fonctionne en ADO !

1°) Il faut dans votre projet ajouter "Microsoft ADO Ext. 2.8 for DLL and Security" ( c'est msadox.dll )

2°) Pour la connexion ne pas utiliser "driver={Microsoft Access Driver (*.mdb)};DBQ=mabase.mdb" MAIS
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mabase.mdb;Jet OLEDB:Engine Type=5;"

3°) Utiliser le code suivant :
Dim rep as String
Dim adoCat As New ADOX.Catalog
Dim adoTable As New ADOX.Table

Set adoCat.ActiveConnection = MaConnection
Set adoTable.ParentCatalog = adoCat

For Each adoTable In adoCat.Tables
If adoTable.Type = "LINK" Then
Select Case adoTable.Name
Case "Articles":
Rep = App.Path & "\Articles.mdb"
Case "Familles":
Rep = App.Path & "\Familles.mdb"
End Select
adoTable.Properties("Jet OLEDB:Link Datasource") = Rep
End If
Next


Et ça fonctionne super bien !

GrosLolo