Faibles dbs comme DAO.Database
Faible tdf comme DAO.TableDef
Faible strSourceTableName comme corde
Faible strCurrentPath comme corde
Faible strAttachPath comme corde
Faible strFrontendPath comme corde
Faible strBackendPath comme corde
Faible strConnect comme corde
Sur l'erreur Err_GentilknytData GoTo
Placer les dbs = le CurrentDb
strFrontendPath = dbs. Nom
strCurrentPath = mi (strFrontendPath, 1, InStrRev (strFrontendPath, « \ ") - 1)
Pour chaque tdf dans dbs.TableDefs
strSourceTableName = tdf.SourceTableName
Si Len (strSourceTableName) > 0 puis
le strBackendPath = s'est dédoublé (tdf. Relier, le « =") (1)
strAttachPath = mi (strBackendPath, 1, InStrRev (strBackendPath, « \ ") - 1)
Si StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 puis
strConnect = « ; DATABASE= » et strCurrentPath et » \ AktivitetData.mdb "
tdf. Relier = strConnect
tdf.RefreshLink
Finir si
Finir si
Après
Placer le tdf = rien
Placer les dbs = rien
|