Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Импорт таблиц

Автор: Ethex 27.11.2017, 15:05

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

Код


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

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

Автор: Ethex 28.11.2017, 09:38

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