VPF::Импорт таблиц - Форум программистов

Ethex

Дата 27.11.2017, 15:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 8.6.2017

Репутация: нет
Всего: нет

Доброго времени суток
Хочу сделать возможность импорта таблиц из выбранной базы в текущую (где находится пользовательская форма)
Пробую код:

Код


Public Sub ImpTbl()
Dim db As DAO.Recordset
Dim tdf As DAO.TableDef
Dim pth As String
   If Me.Поле1 <> 0 Then
   pth = Me.Поле1
   Set db = DBEngine.Workspaces(0).OpenDatabase(pth, True)
      For Each tdf In db.TableDefs
         If Left(tdf.Name, 4) <> "MSys" Then
         DoCmd.TransferDatabase acImport, "Microsoft Access", pth, acTable, tdf.Name, tdf.Name, False
         End If
      Next tdf
   db.Close: Set db = Nothing
   Else
   MsgBox "База данных не выбрана"
   End If
End Sub

Получаю ошибку компиляции. Подчёркивается .TableDefs в строке:

Код


For Each tdf In db.TableDefs

Ошибка - Method or data member not found
Как излечить?
Заодно, чтобы импортировать таблицы из баз mdb, есть ли необходимость того, чтобы и формат базы с формой был аналогичным?

Akina

Дата 27.11.2017, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 453

Дебаг. Окно локальных переменных. Кто в этот момент db? И кто он должен быть?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Ethex

Дата 28.11.2017, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 8.6.2017

Репутация: нет
Всего: нет

Мда. Совершенно идиотская ошибка.
Тут уже мне вас благодарить не столько за ответ, сколько за терпение

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »