Программное создание связанных таблиц и экспорт запросов и форм

@orange3100 · Регистрация: 16.10.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток уважаемые форумчане!
Что-то надоело вручную постоянно подвязывать таблицы из одной БД в другую.
Хотелось бы создать VBA процедуру которая бы подвязывала в другую БД все существующие таблицы.
Действия в моем импорте-экспорте следующие:
1) Удаление всех объектов из БазаПервая;
2) Подключение в "БазаПервая" из "БазаВторая" всех таблиц;
3) Импорт в "БазаПервая" из "БазаВторая" всех запросов, форм, отчетов, модулей, макросов;
Параметры импорта:
а) Схема данных - "ДА"
б) Меню и панели - "ДА"
в) Спецификации - "ДА"
г) Группы области переходов - "ДА"
д) Рисунки и темы - "ДА"
а) Схема данных - "ДА"

импорт таблиц) структура и данные - "ДА"
импорт запросов) как запросов - "ДА"

Так выглядят все действия вручную...
А вот как бы все это в ВБА запихнуть...

Знаю следующую инструкцию для получения объектов:

Visual Basic

Sub AllObjects()
    Dim obj As AccessObject, dbs As Object
    Set dbs = CodeData
    'Search for open AccessObject objects in AllObjects collection.
        For Each obj In dbs.AllObjects
            'Print name of obj.
      Debug.Print obj.Name
    Next obj
End Sub

А вот что касается импорта экпорта...
Спасибо если кто откликнется!!!

mobile · 21.06.2016, 18:18

Гораздо проще скопировать весь файл, лишить его таблиц и заново их привязать. По привязке - ищите по форуму по ключевому слову RefreshLink. Примеров приведено много, на самые разные случаи.

AllObjects - что это? По крайней мере в Access 2010 такого нет. В каком аксе Вы его нашли?

Добавлено через 5 минут
Ну и на всякий случай копирование объектов

Visual Basic

1	DoCmd.CopyObject [БДПолучатель] [, новоеИмя] [, типИсточника, имяИсточника]

	21.06.2016, 18:18