VPF::Запрос в MS Access - Форум программистов

xkodex

Дата 14.11.2006, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 30.4.2005

Репутация: нет
Всего: нет

В базе данных нужно сдлеать отчёт в котором данные будут получатся путём суммирования полей, а поля должны выбираться в соответствии с заданым критерием, т.е. на форме есть список в котором выбиратеся значение и в соответствии с этим значением мы будем суммировать поле. В запросе я не могу осуществить взаимодействие с формой, т.к. не могу описать выржения критерия отбора и сослаться на значение из ComboBox. Как можно сформировать такой запрос?

klen1

Дата 15.11.2006, 07:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 16.3.2006
Где: г. Ликино-Дулёво

Репутация: нет
Всего: нет

Ты видно в школе очень хорошо учился. Попроще изложи задачку, с примером там.
Ближе к жизни.

Юдифь

Дата 15.11.2006, 07:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 15.10.2006
Где: Монголия, Эрдэнэт

Репутация: нет
Всего: нет

Ничего не поняла. А просто forms![имя_формы]![имя_поля] не проходит?

TaNK

Дата 15.11.2006, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 669
Регистрация: 29.10.2006
Где: Краснодар

Репутация: нет
Всего: 1

Цитата(xkodex @ 14.11.2006, 21:58)

приведи пример работы своей программы, а то не очень понятно!

--------------------

Oracle 11.2.0.3.0
FireBird 1.0-2.5

dionisiu

Дата 15.11.2006, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 13.5.2006
Где: Крым

Репутация: 1
Всего: 2

Так привесь на событие "изменение" комбобокса обработчик, устанавливающий фильтр формы. Вот пример реально работающего запроса с обалденно сложным условием:

Код


SELECT Territories!TerritoryCode*1000+PS!PSCode AS PSCODE, PSTypes.TypeName, PS.PSName, PS.Address, Territories.TerritoryID, 1 AS [Count], PS.Priority FROM Territories INNER JOIN (PSTypes INNER JOIN PS ON PSTypes.TypeID=PS.TypeID) ON Territories.TerritoryID=PS.TerritoryID WHERE (((PS.SeqNumber)>0) And ((IIf((Day(Forms!NewDailyReportForm!Text10)+(7-Weekday(Forms!NewDailyReportForm!Text10-1)))/7<=1,PS!week1,IIf((Day(Forms!NewDailyReportForm!Text10)+(7-Weekday(Forms!NewDailyReportForm!Text10-1)))/7<=2,PS!week2,IIf((Day(Forms!NewDailyReportForm!Text10)+(7-Weekday(Forms!NewDailyReportForm!Text10-1)))/7<=3,PS!week3,IIf((Day(Forms!NewDailyReportForm!Text10)+(7-Weekday(Forms!NewDailyReportForm!Text10-1)))/7<=4,PS!week4,PS!week1)))))=True) And ((PS.VisitDay)=Weekday(Forms!NewDailyReportForm!Text10-1)) And ((PS.Delete)=False)) ORDER BY PS.SeqNumber;

А вот код обработчика события на фильтрацию

Код


Private Sub Combo4_AfterUpdate()
Me.Combo6.Requery
End Sub

который при обновлении одного комба обновляет другой (зависимый) комб.
В этом зависимом комбе происходит дополнительная фильтрация, а её обработка

Код


Private Sub Combo6_AfterUpdate()
On Error GoTo wsdcefrv
If IsNull(Me.Combo6.Value) Then
filtt = "[TerritoryID] = 0"
Me.Form.Filter = filtt
Me.Form.FilterOn = True
Else
filtt = "[TerritoryID] = " & Me.Combo6.Value
Me.Form.Filter = filtt
Me.Form.FilterOn = True
End If
wsdcefrv:
End Sub

то есть, меняет фильтр формы.

Вот и всё, что можно посоветовать, исходя из несколько путанного объяснения вышеупомянутой задачи.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »