Программное изменение запроса

@Tigran · Регистрация: 30.07.2011

Студворк — интернет-сервис помощи студентам

Добрый всем день. Помогите пожалуйста.

Что имеем:

Есть форма, в ней есть список отображающий записи. При помощи определенных полей в этом списке отфильтровываются записи, используя код:

Visual Basic
1
Список_заказов.RowSource = "SELECT Заказы.Номер, Заказы.[Номер заказа],Заказы.Ширина, Заказы.Высота, Заказы.Сторона, Заказы.Статус, Заказы.Печать, Заказы.[Общая Стоимость] FROM Заказы WHERE (((Заказы.ТипЗаказа)=[фил_дверь]) AND ((Заказы.Статус)=[ФильтрСтатуса])AND ((Заказы.[Диллер])=[ПолеСоСписком610])) ORDER BY Заказы.[Номер заказа] DESC;"

Таким образом я выбираю нужные мне записи.

Далее, у меня есть кнопка которая запускает отчет на изменение, и все выбранные записи изменяются.

Задача, я не могу понять как сделать так чтобы запрос, как и список можно было изменять в зависимости от фильтрации.

Предположения у меня такие, я думал что в запрос как и в список можно внести изменения при помощи RowSource. Но как не игрался так и не смог изменить запрос программно.

Собственно вопрос, как изменить программно запрос при имеющихся данных из списка, одним словом, чтобы в запросе выводились только те записи которые в списке?

p.s. Использую Access.

shanemac51 · 08.03.2012, 14:34

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DIM S1
S1=""
S1=S1 & "SELECT
S1=S1 & " Заказы.Номер,
S1=S1 & " Заказы.[Номер заказа],
S1=S1 & " Заказы.Ширина,
S1=S1 & " Заказы.Высота,
S1=S1 & " Заказы.Сторона,
S1=S1 & " Заказы.Статус,
S1=S1 & " Заказы.Печать,
S1=S1 & " Заказы.[Общая Стоимость]
S1=S1 & " FROM Заказы
S1=S1 & " WHERE (((Заказы.ТипЗаказа)=[фил_дверь])
S1=S1 & "   AND ((Заказы.Статус)=[ФильтрСтатуса])
S1=S1 & "   AND ((Заказы.[Диллер])=[ПолеСоСписком610]))
S1=S1 & " ORDER BY Заказы.[Номер заказа] DESC;"
Список_заказов.RowSource = S1

'ПЕРЕВЕДЯ В ЧИТАЕМЫЙ ВИД, Я УЯСНИЛА
'-не знаю типа полей [фил_дверь] [ФильтрСтатуса] [ПолеСоСписком610]
'-это свободные поля или нет
'-это просто поля или поля подстановки
'-выбор по всем 3-м условиям или может быть любой 1 или 2
'-выбор по полному значению или части(например все конденсаторы конд*)

@Tigran · 08.03.2012, 18:26 **[ТС]**

Я по другом задам вопрос. Как на основании rowsource списка, сделать запрос? чтобы в запросе были теже записи что и в списке? Если это не возможно, то тогда буду капать дальше.

p.s. С 8-м Марта!!

@minob · 08.03.2012, 23:29

Сообщение от Tigran

Как на основании rowsource списка, сделать запрос? чтобы в запросе были теже записи что и в списке?

Visual Basic
1
Call CurrentDb.CreateQueryDef("NewQueryDef", Me![Мой_список].RowSource)

Добавлено через 12 минут
Если нужно изменить существующий запрос, то

Visual Basic
1
CurrentDb.QueryDefs("Мой_запрос").SQL = Me![Мой_список].RowSource

@Tigran · 09.03.2012, 10:20 **[ТС]**

Сообщение от minob

Visual Basic
1
Call CurrentDb.CreateQueryDef("NewQueryDef", Me![Мой_список].RowSource)

Добавлено через 12 минут
Если нужно изменить существующий запрос, то

Visual Basic
1
CurrentDb.QueryDefs("Мой_запрос").SQL = Me![Мой_список].RowSource

Большое спасибо. Вот это я и хотел сделать, только не знал как.

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@Tigran 1 / 1 / 0 Регистрация: 30.07.2011 Сообщений: 65
	08.03.2012, 18:26 [ТС]
	Я по другом задам вопрос. Как на основании rowsource списка, сделать запрос? чтобы в запросе были теже записи что и в списке? Если это не возможно, то тогда буду капать дальше. p.s. С 8-м Марта!! 0