Макросом выписать из таблицы строки по определённому признаку

Posted by obzor under VBA, Архив, Топик-обзор

Пытаюсь макросом выписать из таблицы строки по определённому признаку. в процедуру передаю параметр «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

Teslenko_EA

позвольте дать совет по поводу Вашего кода:
слова — «..передаю параметр «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)
...

тема на форуме

Похожие статьи

• Подсчет количества повторов построчно в Microsoft Office Access, как в Excel (Счётесли)
• Как программно увеличить толщину линий в графике на форме в Microsoft Office Access?
• Номер записи в результатах запроса (Access)
• Поле и вычисления в запросе (SQL в Access)
• Фильтр на форме в Access
• Объединение таблиц (SQL)
• Фильтр на форме в Access
• Запрос SQL на выборку максимальных значений по каждому году
• Несколько получателей письма Outlook
• Преобразование даты в SQL запросе