VBA таблицы строки

[alex77755]

Совсем недавно начал вникать в Access и вопросов больше чем ответов.
Пытаюсь макросом выписать из таблицы строки по определённому признаку. в процедуру передаю параметр "U", по которому производится отбор. Вторая таблица изначально пустая. Не получается добавить строку и заполнить её данными. И ещё: Параметр "U" Не уникален.
Уникальная строка получается только в сочетании с другим параметром.
Как лучше организовать поиск? Или при первом нахождении просто проверить второй параметр? и сделать FindNext

Set rst = dbs.OpenRecordset("*****")
rst.FindFirst "ИНомер ='" & U & " '"

Set rstN = dbs.OpenRecordset("*******")
rstN.FindFirst "ИНомер ='" & U & " '"

 If rstN.NoMatch Then

 rstN.AddNew
  For R = 0 To 4 ' эти поля являются ключевыми
  rstN(R) = rst(R)
  Next R
  rstN(5) = 1
  rstN(6) = "30.11.2011"
  rstN(7) = "30:21:12542/lk:200"
  rstN.Update ' на этой строке ругается
  Else

[alex77755]

Оказалось несовпадение по ключевому полю.
Вопрос решен.
Всем спасибо

[Teslenko_EA]

Здравствуйте alex77755.
позвольте дать совет по поводу Вашего кода:
слова - "..передаю параметр "U", по которому производится отбор.." правильные так и надо выполнять отбор, но на самом деле дело обстоит иначе :
открывается рекордсет и в нем (возможно содержащем миллионы записей) выполняется поиск по результатам которого выполняется поиск в "изначально пустой" таблице.(?)
думаю в подобном случае лучше ограничить кол-во записей рекордсета, явно задав условие отбора в SQL конструкции, например так:

Const sQ1$ = "select * from table1 where ИНомер =''"
Const sQ2$ = "select * from table2 where ИНомер =''"
Set rst = dbs.OpenRecordset(sQ1 & U & "'")
If Not rst.EOF ' EOF - признак отсутствия текущей записи

        Set rstN = dbs.OpenRecordset(sQ2 & U & "'")
        If rstN.EOF Then rstN.AddNew Else rstN.Edit

            For R = 0 To 4 ' эти поля являются ключевыми
                 rstN(R) = rst(R)
...

"..начал вникать в Access.." - рад за Вас, желаю успехов.

Евгений.

[alex77755]

Спасибо. Буду изучать дальше

[Рудзфельд]

Здравствуй, народ! Хотела узнать...
В одной таблице есть одна строка, в которой N столбцов (т. е. полей). Мне нужно было эти поля сделать строками в другой таблице. Короче говоря, странспонировать таблицу, но чтобы результат был в другой таблице. Причем новая таблица уже имеет какие-то записи, и в новой таблице нужно не создавать новое поле или запись, а переприсваивать.

[Рудзфельд]

Всё. Разобралась. Отвечать не надо.

[Рудзфельд]

:-)