Schwache dbs als DAO.Database
Schwaches tdf als DAO.TableDef
Schwaches strSourceTableName als Schnur
Schwaches strCurrentPath als Schnur
Schwaches strAttachPath als Schnur
Schwaches strFrontendPath als Schnur
Schwaches strBackendPath als Schnur
Schwaches strConnect als Schnur
Auf Störung Goto- Err_GentilknytData
Dbs = CurrentDb einstellen
strFrontendPath = dbs. Name
strCurrentPath = mittler (strFrontendPath, 1, InStrRev (strFrontendPath, „\ ") - 1)
Für jedes tdf in dbs.TableDefs
strSourceTableName = tdf.SourceTableName
Wenn Len (strSourceTableName) > 0 dann
strBackendPath = aufspaltete (tdf. Anschließen, „=") (1)
strAttachPath = mittler (strBackendPath, 1, InStrRev (strBackendPath, „\ ") - 1)
Wenn StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 dann
strConnect = „; DATABASE=“ u. strCurrentPath u.“ \ AktivitetData.mdb "
tdf. Anschließen = strConnect
tdf.RefreshLink
Beenden wenn
Beenden wenn
Zunächst
Tdf einstellen = nichts
Dbs einstellen = nichts
|