в примечаниях (ленточной) подформы вычисляемое поле
типа
=SUM([поле1])*Koeff, где koeff - константа.
добавление записей на подформе запрещено.

В случае, когда запрос источника строк подформы возвращает
пустое множество строк, в вычисляемом поле светится #ошибка

понимаю, что разрулить можно через родительскую форму,
анализируя рекордсет подчиненной и подменяя источник для поля.

Есть ли другие предложения?
(не соображу, можно ли и как в данном случае формулу подправить)


Заранее спасибо...

вопрос был сформулирован неточно и пока снят...

(A2002, mdb, связь формы и подформы вручную, через формирование рекодсета для подчиненной на родительской)

при отсутствии данных в подформе упомянутое вычисляемое поле в подформе не имеет значения. Само поле на подформе в любом случае скрыто.

На родительской форме выведен контрол, который ссылается на это поле
это поле в подчиненной.

Источник задан так:
=Forms("Родительская").[КонтролПодформы].[Form].[Controls]("имяВычислимогоПоля")
Именно в этом контроле на родительской форме вываливается #ошибка

Пробовал обвязать ситуацию двумя вариантами функций

Вариант1
( подразумевается, что будет передано выражение для
доступа к вычисляемому контролу подформы)


Получилось, что вычисление значения функции происходит лишь однажды
при старте формы. (В подчиненной по определению при этом пусто)
Попытка программного Recalc после обновления RecordSet подчиненной приводит к краху приложения.
/decompile не помогает.

процедура синхронизации (без изъятий)
QDef - QueryDef

Sub SynchParameters()
Dim p As DAO.Parameter

For Each p In QDef.Parameters
p.Value = Eval(p.Name)
Next

Me.Painting = False
Me("КонтролПодчиненной").Form.Painting = False

Set tR = QDef.OpenRecordset(dbOpenDynaset, dbSeeChanges, dbOptimistic)
DBEngine.Idle dbRefreshCache
Set Me("КонтролПодчиненной").Form.Recordset = tR

Me("КонтролПодчиненной").Form.Painting = True
Me.Painting = True
'Me.Поле28.Requery

'Me.Recalc
End Sub





кажется все.

ПАМАХИТЯЯЯ...., хто может ...
(;

спасибо.
помогло.

(с выражением лица)