Здраствуйте,

Хочу выполнить экспорт форм
из другой базы(Другая БД.mdb) данных в свою(Моя БД.mdb).
-------------------------------------------------------------
Код в модуле формы.

Private Sub Кнопка1_Click()
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\Другая БД.mdb", acModule, "Модуль1", "Модуль1"
DoCmd.DeleteObject acModule, "Модуль1"
Export
End Sub

Код в модуле.

Sub Export()
Dim obj As Object
For Each obj In CodeProject.AllForms
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\Моя БД.mdb", acForm, obj.Name, obj.Name
Next
End Sub

Но при нажатии на кнопку появляется ошибка 7874
Невозможен экспорт объекта в самого в себя.
----------------------------------------------------

Пробывал подключать другую БД в референсах,
подключался к Другой БД через

Set db=OpenDatabase(CurrentProject.Path & "\Моя БД.mdb")

Всё-равно код выполнялся в текущей БД,
и экспортировались формы в .txt моей БД, а не другой.
---------------------------------------------------------------------------
Вообщем,
мне нужно выполнить процедуру/функцию из другой БД,
экспортировать формы в файл Моя БД или в файлы .txt
Как это можно сделать?

http://www.sql.ru/forum/1129076/vypolnit-eksport-iz-drugoy-bazy-dannyh