ALTER TABLE

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

CurrentDb.Execute "ALTER TABLE [транспорт] ADD COLUMN [интервал] long"

Ругается: Невозможно выполнение инструкций определения данных для присоединенных источников данных

вопрос почему

Потому что присоединенная таблица - это по сути ссылка на таблицу реальную. Чтобы изменить структуру, например, добавить поле, как это хотите вы, это нужно делать В ТОЙ БАЗЕ, где эта таблица на самом деле расположена.

Либо вместо CurrentDb используйте ту самую базу, открыв ее предварительно.
Либо добавьте в текст вашего запроса полное имя mdb-файла.

Надо примерно так

dim db1 as dao.database
set db1=opendatabase(currentdb.tabledefs("транспорт").connect)
db1.execute "ALTER TABLE [транспорт] ADD COLUMN [интервал] long"
currentdb.tabledefs("транспорт").refreshlink

это если реч идет о прилинкованной таблице

_restavraciya

Надо примерно так dim db1 as dao.database set db1=opendatabase(currentdb.tabledefs("транспорт").connect) db1.execute "ALTER TABLE [транспорт] ADD COLUMN [интервал] long" currentdb.tabledefs("транспорт").refreshlink это если реч идет о прилинкованной таблице

Set db1 = OpenDatabase(CurrentDb.TableDefs("транспорт").Connect)

пишет недоступное имя файла

Set db1 = OpenDatabase(split(CurrentDb.TableDefs("транспорт").Connect,"=")(1))

спасибо.. работает

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

Сначала создать таблицу в удаленной БД (через db1 выполнить CREATE TABLE)
Потом создать линк в текущей БД (примеры есть на форуме) Порядок такой :

HELP VBA TableDef

To link a table to a database - Use the CreateTableDef method to create a TableDef object. - Set its Connect and SourceTableName properties (and optionally, its Attributes property). - Use the Append method to add it to the TableDefs collection of a Database.

ясно, спасибо

Помогите с запросом:
ALTER TABLE [Vehicle] RENAME [VReadyToCalculate] to [VClientKnow]

не работает