powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Многократное выполнение запроса?
4 сообщений из 4, страница 1 из 1
Многократное выполнение запроса?
    #32136181
AllMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток!

Вопрос конкретный:
есть работающий запрос, подсчитывающий количество записей во второй таблице ("фильтрована") и записывающий это число в строку первой таблицы:

UPDATE [Table1], Table2 SET [Table1].[One] = DCount("*","Table2")
WHERE ((([Table1].[Two])="qwerty"));

Необходимо выполнить этот запрос автоматом (около 40 раз), изменяя:
1. "qwerty" - берется из Table3 (порядка 40 видов)
2. [Table1].[One] на [Table1].[Three], [Table1].[Four], [Table1].[Five] и т.д.

Заранее благодарен!
Советы можно сразу почтой.
...
Рейтинг: 0 / 0
Многократное выполнение запроса?
    #32136251
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Первое что пришло в голову -циклом в VBA

rs.open "Table3", CurrentProject.Conection
DO while Not rs.eof
strSQL="UPDATE [Table1], Table2 SET [Table1].[One] = DCount("*","Table2")
WHERE ((([Table1].[Two])=" & rs("ТвойПоле с QWERTY"));

DoCmd.SetWarnings false
docm.RunSQL srqSQL
DoCmd.SetWarnings True

rs.movenext
loop

>Советы можно сразу почтой.
Не... это форум, а не ГлавПочтамп.
...
Рейтинг: 0 / 0
Многократное выполнение запроса?
    #32136283
AllMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все ясно! Спасибо!
А вот где менять поля Table1 c One на Two, Three, Four и т.д.
Тут в куске VBA этого, по-моему, нет...
...
Рейтинг: 0 / 0
Многократное выполнение запроса?
    #32136291
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim ctl As Control
For Each ctl In Me.Controls
If Mid(ctl.Name, 1, 3) = "txt" Then 'определяешь тот ли контрол'
CurrentDb.Execute="UPDATE [Table1], Table2 SET [Table1].[One] = DCount("*","Table2")
WHERE ((([Table1].[Two])=" & Me.Controls(ctl(6)).Value & "));"
End If
Next ctl
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Многократное выполнение запроса?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]