Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Многократное выполнение запроса? / 4 сообщений из 4, страница 1 из 1
09.04.2003, 00:38
    #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
09.04.2003, 09:13
    #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
09.04.2003, 09:53
    #32136283
AllMan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Многократное выполнение запроса?
Все ясно! Спасибо!
А вот где менять поля Table1 c One на Two, Three, Four и т.д.
Тут в куске VBA этого, по-моему, нет...
...
Рейтинг: 0 / 0
09.04.2003, 09:59
    #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
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Многократное выполнение запроса? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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