LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  условие для тек...
 условие для тектового поля
 
 10.09.2009 12:39:18
Мариша
23 сообщения


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


Re: условие для тектового поля

Один из вариантов. Надо писать глобальную внешнюю функцию (Public), в параметры передаете значение полей формы. Пример.

1. В свободном поле пишите =funSum([Итого выставлено].[Form]![Sum Of Sum Of RUB,-[Итого оплачено].[Form]![Sum Of RUB])

2. В модуле создаете функцию без определения параметров

Public Function funSum(sum1,sum2) As Currency
funSum = 0
On Error GoTo 999

funSum = sum1-sum2
999:
 Err.Clear
End Function

 10.09.2009 16:07:11
Мариша
23 сообщения


Re: условие для тектового поля

Спасибо огромное, работает!!!!!!

 11.09.2009 10:47:59
Мариша
23 сообщения


Re: условие для тектового поля

Подскажите. пожалуйста, как переписать функцию, чтобы в случае ошибки, она была равна не нулю, а параметру sum1.

 11.09.2009 12:03:18
Admin1
731 сообщения
1-ый


Re: условие для тектового поля

Надо добавить funSum = Sum1 в начале программы

  Программирование  Microsoft Access. Файлы mdb и accdb  условие для тек...
ПоискПоиск  Список форумовСписок форумов  
right