Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проверка в форме условия в запросе / 17 сообщений из 17, страница 1 из 1
16.03.2004, 17:34
    #32444205
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Всем добрый день. Есть проблема существует ленточная форма1
дата кто Сумма ОПЛ
на основе таблицы1. в этой форме поле-флажок "ОПЛ" при нажатии на который USER подтверждает что данную сумму можно оплатить
Вопрос можно ли написать условие что если общаяя сумма по табл1 - потдверждённая сумма в форме1 <0 то выскакавало сообщение
Спасибо
...
Рейтинг: 0 / 0
16.03.2004, 17:40
    #32444213
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Код: plaintext
1.
2.
3.
private sub ПресловутоеПоле_afterupdate()
  if nz(me.ПолеСуммы, 0 )>dsum( "expr" , "tabl" ) then _
    msgbox  "Сообщение" 
end sub
...
Рейтинг: 0 / 0
16.03.2004, 17:51
    #32444235
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Спасибо. а можно ли как нибудь ещё и связать по каким либо ктериям если к примеру и в таблице и форме будет ещё одно поле "категория" а вместо табл1 будет запрос с группировкой по этому полю и суммой в поле сумма?
...
Рейтинг: 0 / 0
16.03.2004, 17:58
    #32444259
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
dsum
f1 (и вообще можно его чаще нажимать)
...
Рейтинг: 0 / 0
16.03.2004, 17:59
    #32444262
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Ok !!
...
Рейтинг: 0 / 0
18.03.2004, 15:51
    #32447571
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Прошу прощения опять возвращаюсь к своему вопросу (временно отсутсвовал)
Всё сделал как подсказали а именно:

Private Sub podtv_oplata_AfterUpdate()
If Me!summa_usd > DSum("ost", "ost_budjet", "Firma=" & Me![firma]) Then
MsgBox "STOP"

Где "Firma=" & Me![firma]-то самое условие
Без условия всё работает а с уловием выдает ошибку 64479
"Введённое в качестве параметра запроса выражение содержит ошибку.Объект не содержит программируемый объект"
Подскажите где я ложанулся спасибо
...
Рейтинг: 0 / 0
18.03.2004, 15:57
    #32447594
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Может быть так:
Private Sub podtv_oplata_AfterUpdate()
If Me!summa_usd > DSum("ost", "ost_budjet", "Firma= Me![firma]") Then
MsgBox "STOP"
...
Рейтинг: 0 / 0
18.03.2004, 16:12
    #32447621
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Неет всеё равно та же ошибка
...
Рейтинг: 0 / 0
18.03.2004, 16:14
    #32447630
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
А если вот так:


Private Sub podtv_oplata_AfterUpdate()
If Me!summa_usd > DSum("ost", "ost_budjet", "Firma= Forms![Имя формы]![firma]") Then
MsgBox "STOP"
...
Рейтинг: 0 / 0
18.03.2004, 17:18
    #32447819
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Kучше, наверное, так:

If Me!summa_usd > DSum("ost", "ost_budjet", "Firma=""" & nz(Me![firma]) & """") Then

и почитать это :)
...
Рейтинг: 0 / 0
18.03.2004, 17:19
    #32447822
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Ок получилсь СПАСИБО.\
А можно прописать ещё одно условие
...
Рейтинг: 0 / 0
19.03.2004, 16:55
    #32449756
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Прошу прощения я начинающий
не подскажите как здесь в параметрах
If Me!summa_usd > DSum("ost", "ost_budjet", "Firma=""" & nz(Me![firma]) & """") Then
прописать ещё одно условие я попробовал так
If Me!summa_usd > DSum("ost", "ost_budjet", "Podr=""" & Me![podr] & """" And "Kategoriya=""" & Me![type_tov] & """") Then
MsgBox "STOP"

А мне выдаёт ошибку выполнения "13" несоответвие типа а если эти условия писать по одному то всё работает
...
Рейтинг: 0 / 0
19.03.2004, 17:02
    #32449789
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
And должно находиться "внутри" строки.
Т.е. вместо
If Me!summa_usd > DSum("ost", "ost_budjet", "Podr=""" & Me![podr] & """" And "Kategoriya=""" & Me![type_tov] & """") Then
напиши
If Me!summa_usd > DSum("ost", "ost_budjet", "Podr=""" & Me![podr] & """ And Kategoriya=""" & Me![type_tov] & """") Then
...
Рейтинг: 0 / 0
19.03.2004, 17:03
    #32449795
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
"Podr=""" & Me![podr] & """" And "Kategoriya=""" & Me![type_tov] & """"

Я отметил зеленым кавычки, которые надо убрать. Слово And должно быть частью стринга, задающего условие. С этими кавычками получалось "string" and "string", т.е. попытка произвести логическую операцию над двумя стрингами и подсунуть результат в функцию DSum вместо стринга.
...
Рейтинг: 0 / 0
19.03.2004, 17:04
    #32449797
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Абпаздал.
...
Рейтинг: 0 / 0
19.03.2004, 17:08
    #32449812
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
А куда ставить то закрывающую "
...
Рейтинг: 0 / 0
19.03.2004, 17:11
    #32449818
asemel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка в форме условия в запросе
Ок Спасибоочки получилось
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проверка в форме условия в запросе / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]