[AC-2003] Automatiser la gestion des tables liées [Résolu]

[Heruvor]

Bonjour à tous,

Malgré avoir lu pas mal de post sur le sujet je ne trouve pas la solution à mon problème (surement par ce que je débute plus ou moins en access).

J'ai une base de données sur serveur PostgreSQL, et une interface acces qui utilise les tables de cette base. La connexion se fait par un fichier ".dsn" , Et à chaque ouverture du fichier acces, je suis obligé de passer le gestionnaire des tables liées pour actualiser les attaches en sélectionnant ce fichier .dsn, sinon j'ai le message d'erreur suivant :

Erreur déexécution '3151'
ODBC -- Echec de la connexion à '{PostgreSQL Unicode}orval'

J'imagine que c'est facilement faisable avec une macro à l'ouverture de l'application, mais je ne trouve pas comment.

En faisant un debug.print matable.connect j'obtiens les renseignement suivants :

ODBC;DRIVER={PostgreSQL Unicode};DATABASE=BDD_Benchmark;SERVER=orval;PORT=5433;CA=a;A6=;A7=100;A8=4096;B0=255;B1=8190;BI=0;C2=dd_;CX=1c502bb;A1=7.4-1

Mais je ne sais pas quoi faire avec ^^'

Est il possible de le faire juste en indiquant le chemin du fichier .dsn ? et comment ?

J'espère avoir été clair, et je vous remercie d'avance de vos réponses

[Heruvor]

Bon j'ai fini par enfin trouver, pour ceux qui seraient intéresses :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub liaison()
 
Dim db As DAO.Database
Dim tbl As DAO.TableDef
 
Set db = CurrentDb
Set tbl = db.TableDefs("nomtable")
 
tbl.Connect = "ODBC;fileDSN=chemin\nomfichier.dsn"
tbl.RefreshLink
 
End Sub