Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Не найду и не помню
 
 автор: час   (02.06.2013 в 17:18)   личное сообщение
 
 

Как бороться в вычисляемом поле со значением - #Ошибка

  Ответить  
 
 автор: GenaY   (02.06.2013 в 18:30)   личное сообщение
 
 

Если причина ошибки NULL то с помощью функции Nz

  Ответить  
 
 автор: час   (02.06.2013 в 23:16)   личное сообщение
 
 

СПАСИБО
=IIf(IsNull(.....

  Ответить  
 
 автор: snipe   (03.06.2013 в 08:39)   личное сообщение
 
 

IIf(IsError([поле1]+[поле2])=True;"";[поле1]+[поле2])

  Ответить  
 
 автор: час   (03.06.2013 в 22:54)   личное сообщение
 
 

IsError чё та не стал пахать....

  Ответить  
 
 автор: Alex   (19.12.2013 в 22:05)   личное сообщение
 
 

Вот так можно:

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

В глобальном модуле создаем функцию:

' Устраняет #Ошибка при отсутствии данных
Function FData(anyVal As Variant) As Currency
On Error GoTo FDataErr
FData = CCur(anyVal)
Exit Function
FDataErr:
FData = 0
Err.Clear
End Function



Пример использования:

Поле1=FData([Поле2])*[Поле3]
Поле4=FData([Поле5])*[Поле6]
Поле5=Поле1+Поле4

Если не использовать эту функцию, то при отсутствии данных в Поле1 или Поле4, Поле5 будет содержать #Ошибка

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList