Schemerige dbs als DAO.Database
Schemerige tdf als DAO.TableDef
Schemerige strSourceTableName als Koord
Schemerige strCurrentPath als Koord
Schemerige strAttachPath als Koord
Schemerige strFrontendPath als Koord
Schemerige strBackendPath als Koord
Schemerige strConnect als Koord
Op Fout GoTo Err_GentilknytData
Reeks dbs = CurrentDb
strFrontendPath = dbs. Naam
strCurrentPath = Medio (strFrontendPath, 1, InStrRev (strFrontendPath, „\“) - 1)
Voor Elke tdf in dbs.TableDefs
strSourceTableName = tdf.SourceTableName
Als Len (strSourceTableName) > 0 toen
strBackendPath = verdeel (tdf. Verbind, „=“) (1)
strAttachPath = Medio (strBackendPath, 1, InStrRev (strBackendPath, „\“) - 1)
Als StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 toen
strConnect = „; DATABASE=“ & strCurrentPath &“ \ AktivitetData.mdb "
tdf. Verbind = strConnect
tdf.RefreshLink
Beëindig als
Beëindig als
Daarna
Reeks tdf = niets
Reeks dbs = niets
|