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

[varyat]

Здраствуйте!
Есть запрос, который добавляет данные в таблицу, нужно по этим добавленным данных выполнять еще запрос и добавлять их в эту же таблицу, как можно обновить результаты запроса, и при этом чтобы курсор оставался на той же ленте что и до запроса (пробовал пользоваться методом Bookmark, но не получилось )????
Буду благодарен за любые советы.

[varyat]

вот часть кода:

Do While (rec.Fields("1") = Me.поле22.Value)
rec.MoveNext
Loop
Do Until rec.EOF
DoCmd.Requery
z = rec.Fields("1")
sql = "INSERT INTO rez SELECT * FROM dok WHERE dok.поле5 like """ & z & """"
DoCmd.RunSQL sql
rec.MoveNext
Loop

[gluk_fm]

Так создайте просто промежуточную таблицу "НН" и просто через неё добавляйте данные. Это должно решить проблему.

[varyat]

Да, но тогда мне потребуется много транзитных таблиц, в связи с чем возникает еще один вопрос:
как правильно написать запрос чтобы имя таблиц выглядело "Таблица n", "Таблица n +1" и т.д., где n определенное число которое с циклом меняется, пробовал так,но не получается:

sql = "INSERT INTO rez SELECT * from Temp &""" & n + 1 & """"
                    DoCmd.RunSQL sql
                    n = n + 1

[gluk_fm]

Нет Вы просто не совсем правильно поняли.
Просто в Ваш код добавьте:

Do While (rec.Fields("1") = Me.поле22.Value)
rec.MoveNext
Loop
Do Until rec.EOF
DoCmd.Requery
z = rec.Fields("1")
очистить временную таблицу
sql = "INSERT INTO Времення таблица SELECT * FROM dok WHERE dok.поле5 like """ & z & """"
добавить всё в основную таблицу

DoCmd.RunSQL sql
rec.MoveNext
Loop

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[gluk_fm]

А насчёт такого варианта как Вы хотите создавать таблицы с номерами то так:
n=1
Do While (rec.Fields("1") = Me.поле22.Value)
rec.MoveNext
Loop
Do Until rec.EOF
DoCmd.Requery
z = rec.Fields("1")

sql = "SELECT Таблица1.*, Таблица1.r INTO t & " & n & "
FROM Таблица1
WHERE (((Таблица1.r)=" & z & "));



n=n+1
DoCmd.RunSQL sql
rec.MoveNext
Loop

Только учтите что это создание новых таблиц (как по мне так это полная глупость)

[varyat]

я так понимаю что

t & " & n & "

это и есть таблица с номирами,но в таком случае при выполнение запроса выдает ошибку 3067????

[gluk_fm]

Выложите краткую базу с кратким описанием что откуда и куда надо. Я думаю это займёт минут 5 Вероятнее всего тупо не видит таблицу или такая таблица существует.

[varyat]

вот полный код обработки события:

Private Sub Кнопка16_Click()
On Error GoTo err:
DoCmd.OpenQuery "TEST"
Dim adoerr As Variant
Dim con As New ADODB.Connection
Dim z As String
Dim sql As String
Dim err As Label
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\My Documents-Konstruktor\меню.accdb;Persist Security Info=False"
con.Open
Dim rec As New ADODB.RecordSet
rec.CursorType = adOpenStatic
rec.LockType = adLockOptimistic
rec.Open "Rez", con
rec.MoveFirst
Do Until rec.EOF
z = rec.Fields("1")
sql = "INSERT INTO Rez SELECT * FROM Dok WHERE Dok.Поле5 like """ & z & """"
DoCmd.RunSQL sql
rec.MoveNext
Loop
DoCmd.OpenTable "Rez"
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

код запроса Test

SELECT * INTO Rez
FROM Dok
WHERE (((Dok.Поле5)=[Формы]![док_поиск]![Поле22].[Value]));

[varyat]

Основная проблема в том что после того как цыкл добавил записи в таблицу Rez я не могу тем же цыклом пройтись по ним,программа не видит их,потому и спрашывал как обновить таблицу Rez чтоб новые даные были видны для программы