Всем привет!
Как грамотно подсоединить таблицы???
БД на Ассess2000, внутри которой есть как справочники , так и присоединенные таблицы.
Пробую присоединять таблицы следующим образом:


Dim dbs As Database
Dim tdfLoop As TableDef

Set dbs = CurrentDb
With dbs
Debug.Print .TableDefs.Count & _
"объекты TableDefs в " & .Name
For Each tdfLoop In .TableDefs
If Left(tdfLoop.Name, 4) <> "MSys" Then _
DoCmd.DeleteObject acTable, tdfLoop.Name
Debug.Print " " & tdfLoop.Name
Next tdfLoop
End With


при этом удалятются все таблицы, вместе со справочниками (что и понятно).
И еще, как сделать так, чтоб при отмене вызова окна связи таблицы не удалялись, а то получается, что это действие нужно выполнять один раз и безошибочно, чего обычно не бывает.

неужели никто связь с таблицами не делал??
все было бы очень просто, если б использовать системную кнопочку из меню файл->внешние данные->связь с таблицами, но если данные при первом запуске приложения лежат не по правильному пути, то эта кнопочка недоступна...Что делать ?

сори, что непонятно...я уже долго мучаюсь с этим
видно перебор...

нужно перелинковать таблицы...если пути неправильные, чтоб вываливалось окно, где найти новые таблицы

кажется есть что-то нужное в том что прислал.счас буду пробовать.