Имеется таблица (tblPdk), состоящая из двух столбцов. В первом (chrПредприятия) – название предприятия, во втором (sngAmm) – норма выброса загрязняющего вещества.

На основе таблицы сделан запрос (qry01) на выборку (в режиме SQL):
SELECT tblPdk.sngAmm AS Выражение1
FROM tblPdk
WHERE (((tblPdk.chrПредприятия)=[Forms]![frmAnalizData]![cboPredpr])).
В бланке запроса тоже 2 столбца. В первом: "Поле": Выражение 1: sngAmm; во втором: "Поле": chrПредприятия, "Условие отбора": [Forms]![frmAnalizData]![cboPredpr]. И в первом и во втором "Имя таблицы": tblPdk. Причем на экран выводится только первый столбец.

Для анализа данных создана форма (frmAnalizData), где имеется поле со списком (cboPredpr), в котором пользователь выбирает предприятие. А также список (lstAmmPdk), где отображается норма выброса загрязняющего вещества для выбранного предприятия. Обновление нормы выброса осуществляется:

Private Sub cboPredpr_AfterUpdate()
Me!lstAmmPdk.Requery
End Sub

Некоторые из свойств lstAmmPdk: "Источник строк" - qry01, "Число столбцов" – 1, "Присоединенный столбец" –1, "Вывод на экран" – Нет, "Режим вывода" – Всегда, "Доступ" – Нет, "Блокировка" – Да.

Все работает нормально.

Для анализа превышений норм выброса необходимо сравнить значение поля (sngAmm) из таблицы реальных выбросов (tblSvodnaia) с этим элементом управления (lstAmmPdk). В стандартном модуле создана процедура:

(1) Public Sub Zapros()

(2) Dim AmmX As Variant

(3) Set dbsCurrent = CurrentDb

(4) AmmX = Forms!frmAnalizData!txtAmmPdk 'Ошибка!

If Forms!frmAnalizData.Controls!optAmmGroupVisible.Value Then

If Forms!frmAnalizData.Controls!optAmmDiap.Value Then
strWhereAmm = "[sngAmm] Between " & Forms!frmAnalizData!txtAmmMin & " And " &_ Forms!frmAnalizData!txtAmmMax & ""

ElseIf Forms!frmAnalizData.Controls!optAmmMax.Value Then
strWhereAmm = "[sngAmm]= Max(sngAmm) FROM tblSvodnaia"

ElseIf Forms!frmAnalizData.Controls!optAmmPdk.Value Then
strWhereAmm = "[sngAmm] > AmmX" ????

Else
strWhereAmm = "[sngAmm] Between " & Forms!frmAnalizData!txtAmmMin & " And " _
& Forms!frmAnalizData!txtAmmMax & ""

End If

Else
strWhereAmm = "[sngAmm] Between " & Forms!frmAnalizData!txtAmmMin & " _
And " & Forms!frmAnalizData!txtAmmMax & ""

End If

…
End Sub

При пошаговой отладке программы (F8) на строке (4) всплывающие подсказки Forms!frmAnalizData!lstAmmPdk = Null и AmmX = Null. Но ведь текущее “значение” lstAmmPdk отлично от нуля! Если эта проблема разрешима, то можно ли присвоить переменной AmmX результат произведения значения lstAmmPdk на еще какую-н. переменную, например ?