Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2009, 12:15   #1
МаришаГ
 
Регистрация: 20.08.2009
Сообщений: 5
По умолчанию условие для текстового поля

Добрый день! Подскажите, пожалуйста, как решить вот такую задачу.
У меня есть форма с 2 подчиненными форма:
1. Итого Выставлено
2. Итого Оплачено
На этих подчиненных формах по 3 поля: сумма в руб, в дол, в евро.
Мне необходимо подсчитать сумму остатка, я делаю свободное текстовое поле на основной форме и задаю значение =[Итого выставлено].[Form]![Sum Of Sum Of RUB]-[Итого оплачено].[Form]![Sum Of RUB] - для вычисления осатка в руб, то же самое в дол и евро.
Проблема: если в одной из подчиненных форм нет значений ( например, данный клиент еще ничего не оплатил), то в поле вычисления остатка выдается ОШИБКА. Как задать условие, что если подчиненная форма пустая, то есть в запросе нет подходящих значений, то в текстовом поле ноль.

Последний раз редактировалось МаришаГ; 10.09.2009 в 12:19.
МаришаГ вне форума Ответить с цитированием
Старый 10.09.2009, 17:42   #2
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте МаришаГ.
"если в одной из подчиненных форм нет значений " - формулировка не совсем верна, значения может не быть в поле записи, а у формы (у её источника) могут отсутсвовать записи.
Если речь о отсутствии записей, может помочь подобная функция:
Код:
Function summVal(vVal) As Double
On Error Resume Next
    summVal = CDbl(vVal)
End Function
разместите ее в модуле и откорректируйте формулу в поле:
=summVal([Итого выставлено].[Form]![Sum Of Sum Of RUB])-summVal([Итого оплачено].[Form]![Sum Of RUB])
при отсутствии значений (NULL) в поле источника, суммирование также будет не возможно.
Исправляется использованием в запросе Nz - интегрированной функции MS Access.
select Nz([Sum Of RUB], 0), .... from ...
и будет Вам счастье.
Евгений.
Teslenko_EA вне форума Ответить с цитированием
Старый 14.09.2009, 13:13   #3
МаришаГ
 
Регистрация: 20.08.2009
Сообщений: 5
По умолчанию

Спасибо большое, работает! Осчастливили!
МаришаГ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Условие для ячейки segail Microsoft Office Excel 31 23.09.2009 21:33
Как переменной присвоить данные из текстового поля формы? kitten2 Microsoft Office Excel 2 08.04.2009 05:43
Растягивание текстового поля Беляевский HTML и CSS 2 05.04.2009 10:15
Условие для файлов Nemesisking Общие вопросы Delphi 11 30.01.2009 09:20