Обновление результатов запроса

[gluk_fm]

Выложите базу в формате не выше 2003. Я постараюсь подредактировать Ваш код и выложу готовую.

[varyat]

Вот короткая база
1.rar

[gluk_fm]

В приложении пример, извините не могу проверить сами знваете что ссылки ещё идут на другие базы. А промежуточный запрос уже сами вставьте (что необходимо нет информации)

[varyat]

Спасибо большое,за помощ,но хочу попробовать еще один вариант написал код,но где то есть ошибка вроде при подключение,вот код:

Private Sub Кнопка16_Click()

Dim adoerr As Variant
Dim con As New ADODB.Connection
Dim z, x As Variant
Dim sql, sql1, sql2, sql3, sql4, sql5, sql6 As String
Dim err As Label
Dim rec As New ADODB.RecordSet
Dim i As String

con.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Data Source=C:\Documents and Settings\konstruktor\рабочий стол\меню.accdb;Persist Security Info=False"
con.Open
rec.CursorType = adOpenStatic
rec.LockType = adLockOptimistic
i = 0
DoCmd.OpenQuery "Док_ADD"
Do While (i = Not 10)

rec.Open "Temp", con
sql = "insert into Temp select * from Результат"
DoCmd.RunSQL sql
rec.MoveFirst

Do Until rec.EOF
z = rec.Fields("Познака")
sql1 = "insert into Temp1 select * from Документи WHERE Документи.Поле5 like """ & z & """"
DoCmd.RunSQL sql1
rec.MoveNext
Loop
sql2 = "delete * from Temp"
DoCmd.RunSQL sql2

sql3 = "INSERT INTO Результат  SELECT * FROM Temp1"
DoCmd.RunSQL sql3

rec.Open "Temp1", con
rec.MoveFirst

Do Until rec.EOF
x = rec.Fields("Познака")
sql4 = "insert into Temp select * from Документи WHERE Документи.Поле5 like """ & x & """"
DoCmd.RunSQL sql4
rec.MoveNext
Loop

sql5 = "delete * from Temp1"
DoCmd.RunSQL sql5

sql6 = "INSERT INTO Результат  SELECT * FROM Temp"
DoCmd.RunSQL sql6
i = i + 1
Loop

DoCmd.OpenTable "Результат"
Set con = Nothing
End If
err:
For Each adoerr In con.Errors
MsgBox Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & adoerr.Number & Chr(10) & Chr(10) & adoerr.Description, vbCritical
Next
End Sub

видает ошибку:формат строки инициализации не соответствует спецификации OLE DB???

[gluk_fm]

Можно просто всё намного упростить, подвяжи (файл-внешние данные-связь) таблицы которые ты используешь, это мало того что ускорит код, но и даст возможность постоянно проверять не открывая другие базы.
Ну и вероятнее всего не будет выдавать ошибок