Retvisan,
Выкладываю БД с переделками.
1. Заменен источник данных формы.
Было
1.
2.
3.
4.
5.
6.
7.
SELECT Powertrain.kVili25kV, Powertrain.Beregpit_380V, Powertrain.Bortnapr_110V, Powertrain.Obestochen_poezd,
Powertrain.Zazemlen, Powertrain.Davleniev_HM, Powertrain.Davleniev_TM, Stage.L, Stage.N, Stage.IS510, Stage.IS520, Stage.IS530,
Stage.R1, Stage.R2, Stage.R3, Stage.R4, Stage.R5, Stage.vneplan,
vagony_bez_materiala.vagon01, vagony_bez_materiala.vagon02, vagony_bez_materiala.vagon03, vagony_bez_materiala.vagon04,
vagony_bez_materiala.vagon05, vagony_bez_materiala.vagon06, vagony_bez_materiala.vagon07, vagony_bez_materiala.vagon08,
vagony_bez_materiala.vagon09, vagony_bez_materiala.vagon10
FROM Powertrain, Stage, vagony_bez_materiala;
Стало
1.
2.
3.
4.
SELECT *
FROM Powertrain AS P INNER JOIN
(Stage AS S INNER JOIN vagony_bez_materiala AS V ON S.Step_id=V.vagon_id)
ON P.Power_id=S.Step_id;
Ваше
1.
FROM Powertrain, Stage, vagony_bez_materiala
дает 15878 * 15878 * 15878 = 4 003 016 616 152 записей. В форме даже количество записей из-за этого не показывается – не может справиться.
В каждой из этих таблиц по 15878 записей, наборы ключей для все таблиц совпадают.
Но почему во всех таблицах
эти ключи – счетчики? Счетчиком этот ключ должен быть в ведущей таблице, в двух других – длинное целое.
Все три таблицы есть в схеме данных, но связей между ними нет. А надо.
2. В таблицах Powertrain и Stage изменен размер всех текстовых полей.
Было 255, стало 3.
3. В таблице vagony_bez_materiala изменен тип полей vagon01 .... vagon10.
Было Текстовый 255, стало Числовой Байт.
4. В форме добавлена кнопка СБРОС ВСЕХ ФИЛЬТРОВ. В коде – процедура обработки нажатия.
Для быстрого возврата в исходное состояние.
5. Применяемый фильтр показывается как подпись формы.
Для отслеживания и контроля фильтрации.
6. Для критериев удалены процедуры обработки AfterUpdate, вместо этого в конструкторе сделан вызов сразу FilterForm().
Для LVybor, NVybor, IS510Vybor, IS520Vybor, IS530Vybor, R1Vybor, ..., R5Vybor, VneplanVybor.
Для V1, ...., V10.
7. Для критериев групп "Высокое напряжение", ....., "Давление ТМ" добавлена предварительная процедура
"увязки галочек".
При выборе all сбрасываются остальные, при выборе ч.-л. из не-all сбрасывается all.
Чтобы не снимать "лишнее" вручную и не дергать дополнительно фильтр.
8. Переработана обработка критериев для вагонов с учетом влияния OR/AND только на вагоны.
Теперь так
1.
2.
3.
4.
5.
6.
7.
8.
9.
s = ""
For i = 1 To 10
If (Me("V" & i) <> 3) Then
s = s & _
IIf(s <> "", IIf(FlagOrAnd, " OR ", " AND "), "") & _
"[vagon" & Format(i, "00") & "]" & _
Choose(Me("V" & i), "<>", "=") & "0"
End If
Next
_______________________________________________________
Архив из трех частей.
Посмотрите, что получилось.
Обращайте внимание на текст фильтра в заголовке формы.
Это было нужно или нет?
