Тусклые dbs как DAO.Database
Тусклое tdf как DAO.TableDef
Тусклое strSourceTableName как шнур
Тусклое strCurrentPath как шнур
Тусклое strAttachPath как шнур
Тусклое strFrontendPath как шнур
Тусклое strBackendPath как шнур
Тусклое strConnect как шнур
На ошибке переход Err_GentilknytData
Установите dbs = CurrentDb
strFrontendPath = dbs. Имя
strCurrentPath = средний (strFrontendPath, 1, InStrRev (strFrontendPath, «\ ") - 1)
Для каждого tdf в dbs.TableDefs
strSourceTableName = tdf.SourceTableName
Если Len (strSourceTableName) > 0 после этого
strBackendPath = разделило (tdf. Соединитесь, «=") (1)
strAttachPath = средний (strBackendPath, 1, InStrRev (strBackendPath, «\ ") - 1)
Если StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 после этого
strConnect = «; DATABASE=» & strCurrentPath &» \ AktivitetData.mdb "
tdf. Соединитесь = strConnect
tdf.RefreshLink
Закончитесь если
Закончитесь если
Затем
Установите tdf = ничего
Установите dbs = ничего
|