Хочу заменить маршрут в таблице Reestr из таблицы oldroute, ерунда получается: берет верхний маршрут из таблицы и заменяет им всех.

Dim Reestr As Recordset
Set db = CurrentDb
Dim rt As String
Dim oldroutes As Recordset

Set Reestr = db.OpenRecordset("SELECT DISTINCTROW Reestr.* FROM Reestr LEFT JOIN oldroutes ON Reestr.Customer = oldroutes.ID WHERE Reestr.Route Not Like 'C*' AND Reestr.Location='nizhniy'")
Set oldroutes = db.OpenRecordset("SELECT DISTINCTROW oldroutes.*FROM oldroutes ;")

Reestr.MoveFirst
Do Until Reestr.EOF

Reestr.Edit
Reestr![Route] = oldroutes![Route after]
Reestr.Update

Reestr.MoveNext
Loop
Reestr.Close

Shocker.ProShocker.Pro,

А вообще, изучите синтаксис SQL-команды UPDATE.
Это делается единственным SQL-запросом и работает раз в двести быстрее, чем ваш код.

пробовал(((( не получается, подскажи плиз сам синтаксис

Shocker.Pro,

пишет syntax error.

хочу заменить route в таблице Reestr из таблицы oldroute по ид клиента (ID, customer)

Shocker.Pro,

UPDATE Reestr LEFT JOIN oldroutes ON Reestr.Customer = oldroutes.ID SET Reestr.Route = [oldroutes].[Routeafter]
WHERE (((Reestr.Route) Not Like "C*") AND ((Reestr.Location)="nizhniy"));

так получилось, НО по клиентам, которых нет в файле oldroute данные вообще пропадают

Shocker.Pro,

а вот тут нужна подсказка:
в таблице reestr одни и теже customers могут повторяться (детализация по товару, дате и количеству), а в таблице oldroute ID клиента в одном экземпляре. что ставить Inner или Left?

Shocker.Pro,

тогда что должно быть основой выбора того или иного способа связи?

Shocker.Pro,

Спасибо, очень помог