копирование данных из таблицы в таблицу

[Sack]

Меняю структуру существующей БД. Таким образом встала задача скопировать значения полей одной таблицы в другую.

Вообще-то это можно сделать с помощью запроса INSERT INTO, но так как структура меняется, то после приходится обновлять поля еще из одной таблицы. Т.е. одна новая таблица создается из нескольких старых.

Как известно в аксесе не работают вложенные запросы в UPDATE, это все чертовски усложняет.

Пробовал работать через recordset, но у меня таблицы с большим количеством записей (десятки тысяч) поэтому возникают проблемы с блокировками и еще с бог весть чем. Короче работает, но с огромным трудом. Код привожу.

Какие есть мнения.

Private Sub Кнопка0_Click()
Dim rst1, rst2 As Recordset
'-----------------------------'
DAO.DBEngine.SetOption dbMaxLocksPerFile, 1500000
Set rst1 = CurrentDb.OpenRecordset("table_name _1", dbOpenDynaset)
Set rst2 = CurrentDb.OpenRecordset("table_name _2", dbOpenDynaset)
Do Until rst1.EOF
rst2.movefirst
Do Until rst2.EOF
If rst1.Fields("field_name_1").Value = rst2.Fields("field_name_2").Value Then
rst1.Edit
rst1!field_name = rst2.Fields("field_name").Value
rst1.Update
Exit Do
End If
rst2.MoveNext
Loop
rst1.MoveNext
Loop
rst1.Close
rst2.Close

End Sub

[Sack]

Решение оказалось ужасно простым.

Никакой VBA тут не нужен. Подобное обновление можно осуществить через запрос на обновление. Связываем старую и новую таблицу и задаем значение обновления нужного нам поля.