Преобразовать в локальную таблицу

[GES]

Добрый день.
Ребята, подскажите, пожалуйста, как преобразовать связанную таблицу в локальную с помощью VBA?
(в VBA я разбираюсь хорошо, просто под Access не могу нигде найти эту команду)

[gluk_fm]

Добрый день.
Есть несколько вариантов, которые спадают мне на голову сейчас:
1. Произвести импорт (не связь)
2. Содать запрос на создание таблицы

[Teslenko_EA]

Здравствуйте GES.
"..преобразовать связанную таблицу локальную с помощью VBA..", как рекомендовал gluk_fm,
можно подобным кодом:

Sub linksTableToDB()
'запрос обращающийся к системной таблице, тип объекта 6 - прилинкованные таблицы
Const sQsysExt = "SELECT Name FROM MSysObjects WHERE Type=6"
'часть запроса для проверки существования таблицы с именем.., тип 1 - таблицы БД
Const sQsysInt = "select * from MSysObjects WHERE (Type=1 or Type=6) and name='"
'часть SQL конструкции для создания таблицы
Const sQ = "SELECT * INTO "

Dim cn As New ADODB.Connection 'переменная для ADO подключения
Dim rs As New ADODB.Recordset 'переменная для ADO рекордсета
Dim s$ 'текстовая переменная

Set cn = CurrentProject.Connection 'подключение к текущей БД
Set rs = cn.Execute(sQsysExt) 'открыть рекордсет
Do Until rs.EOF 'цикл перебора записей рекордсета,
' EOF - указатель завершения набора звписей
    s = rs(0) + "_int" 'имя для новой таблицы
    If cn.Execute(sQsysInt + s + "'").EOF Then 'таблицы с именем <s> нет
        s = sQ + s + " FROM " + rs(0) 'формирование исполняемой SQL конструкции
        cn.Execute s 'создание таблицы
    End If
    rs.MoveNext 'переход к следующей записи
Loop
'закрыть переменные, очистить память
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

Успехов Вам.
Евгений.

[GES]

Спасибо, за ответы.
Придумал способ попроще.
Связанную обозвал другим именем(ей все равно как называться), с нужным именем создал пустую и 2 скрипта SQL, один DELETE, второй INSERT (скрипты вызываю из Excel)
Но догадываюсь, что где-то в недрах VBA есть команда "Преобразовать в локальную таблицу"