![](/logo_grey.gif)
Последние записи
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
- Lazarus, проверка существования строки таблице
- BASM и record, обращение к полям записи
- Web PHP Framework Symfony
- Относительный путь для вывода картинки на html странице
- Массовое открытие гиперссылок в браузере
- Скопировать значение строки из таблицы в textarea
- Рамки для страниц отчетов
- Вывод StdOut консоли в TMemo
- Чтение из файла большого размера (нехватка памяти)
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
27th
Июн
Макросом выписать из таблицы строки по определённому признаку
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
позвольте дать совет по поводу Вашего кода:
слова — «..передаю параметр «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)
...
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)