Связывание с внешней БД

[voam]

Добрый день!

Подскажите, пожалуйста, возможно ли в Access задать относительный путь к внешней БД при связывании?

Поясню конкретнее: например, внешняя БД (скажем, текстовый файл с данными) всегда будет находиться в той же директории, что и сама БД Access. При этом необходимо, чтобы в случае перемещения mdb и txt файлов в другую директорию связь именно с этим файлом txt сохранялась.

Заранее большое спасибо за помощь!

[Teslenko_EA]

Здравствуйте voam.
Путь к прилинкованным (подключенным) объектам внешних источников, в MS Access не может быть "относительным".
Но это не самая большая проблема, перелинковать (изменить связь) можно как "инструментами" самого MS Access, так и программно.
Евгений.

[voam]

Евгений, большое спасибо за ответ!

Был бы очень признателен, если бы Вы хотя бы вкратце описали процедуру программного обновления пути, а в идеале - привели фрагмент кода VBA, осуществляющего эту операцию

Сразу отмечу, что с Access я "на вы" и использую его исключительно для упрощения работы в Excel.

Заранее большое спасибо за ответ!

[Abrakadabra]

На практике можно сделать так:
При открытии файла проверяется линковка, при ее отсутствии предлагается ввести путь..

[voam]

Сообщение от Abrakadabra

На практике можно сделать так:
При открытии файла проверяется линковка, при ее отсутствии предлагается ввести путь..

Проектируемая БД используется как промежуточный этап в вычислениях Excel. К сожалению, в данном случае, если в момент обработки запроса в Excel текстовый файл окажется не найден по заданному в БД пути, предложения на обновление файла не возникнет. Зато возникнет ошибка. Скорее всего, в данном случае необходимо создать некий обработчик события ЗапускПриложения в Access. При этом будет осуществляться связывание с таблицей, находящейся по указанному в обработчике файле. Подскажите, пожалуйста, каким образом возможно это реализовать?..

Очень признателен за помощь!

[Teslenko_EA]

voam, "привели фрагмент кода ..." можно, но конструкция строки подключения зависит от типа внешнего источника (текстовый файл, таблица БД mdb, файл dbf,...) для разных типов источников она разная.
"Исправить" подключение к текстовому файлу можно подобной конструкцией:

Function relinkTxt() 'связь с текстовым файлом в каталоге БД
Const sTextFile = "db.txt", sTextTable = "db", sDB = ";DATABASE="
Dim dbs As Database, o As Object, s$
Set dbs = CurrentDb: s = dbs.Name
sPath = Left(s, Len(s) - Len(Dir(s)) - 1)
If Len(Dir(sPath + "\" + sTextFile)) = 0 Then Exit Function 'отсутствует файл
For Each o In CurrentDb.TableDefs
   If Len((o.Connect)) > 0 Then
   ElseIf o.Name = sTextTable Then
       s = Left(s, InStr(1, s, sDB)) + sDB + sPath
       o.Connect = s: o.RefreshLink:  Exit For
   End If
Next
Set dbs = Nothing
End Function

надеюсь Ваших познаний в VBA достаточно для её применения.
Удачи Вам.
Евгений.

[voam]

Евгений, доброе утро!

Посмотрите, пожалуйста, вложение: в чем ошибка?.. У меня почему-то не срабатывает ...

Большое спасибо за помощь!

[voam]

Если я правильно понял, код необходимо немного поправить. Внесенные изменения в новом вложении. Сам код VBA работает, однако не происходит его автоматического запуска вместе с запуском самой БД...

[Teslenko_EA]

Здравствуйте voam.
код действительно можно "немного поправить", и восстановление связи выполнять запуском формы.
Евгений.

[voam]

Евгений, спасибо!

Буду разбираться.