TopPicLogo TopPicText

Устранение сообщения "#Ошибка" при выводе данных из подчиненной формы без записей

Ситуация обычная:
В подчиненной форме создаем скрытое поле [MyTotal], источником данных которого является что то вроде:
=Sum([Всего])
теперь создаем поле в главной форме с источником данных:
=[Название Объекта Подчиненной формы].[Form]![MyTotal]
и все замечательно - при условии что в ПОДЧИНЕННОЙ ФОРМЕ ЕСТЬ ДАННЫЕ
а если их нет - то в поле будет #Ошибка
Приведенная ниже функция как раз и служит для устранения данной неприятности
Пишем в источнике данных:
=FData([Название Объекта Подчиненной формы].[Form]![MyTotal])
и при отсутствии данных в поле будет просто 0 (ноль)

PPublic Function FData(anyVal As Variant) As Variant
'es 26.10.2000
'-----------------------------------------------------------
On Error GoTo FDataErr
    FData = anyVal
    Exit Function
FDataErr:
    FData = Null
    Err.Clear
End Function
Назад ToTop
L.E. 09.09.2017
Рейтинг@Mail.ru