powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма на базе Query,которая суммирует еще ряд Query "замирает"
11 сообщений из 11, страница 1 из 1
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32325526
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди! Ау! Разьясните на простом языке чё у меня происходит...

У меня :
1) Есть Form1,задающая параметр в Table1 через Combobox
2) Есть Query1 , выбирающий записи на базе параметров Table1 из Table2(доставка груза в тоннах)
3) Есть Query2 , выбирающий записи на базе параметров Table1 из Table3(выход груза в тоннах)
4) Потом есть Query3 и Query4 - суммирующие все выбранные значения соответственно Query1 и Query2(то есть получаю две цифры)
5) ПОследняя Query5 - возвращает значение-разницу Query4-Query3(получаю результат именуемый скажем "остаток груза").

Есть Form2,которая отображает параметр Query5.
Дак вот ! я сделал кнопку,похоже не так... поправьте меня плиз.... :(

Ето кнопка в Form1 :

Private Sub Command10_Click()
Dim Label1 As Label
Dim Label2 As Label
Dim Balance As String
On Error GoTo Label1
DoCmd.OpenForm "Form2", acNormal, , , , acHidden
Balance = Forms![Form2]![Поле...]
DoCmd.Close acForm, "Form2"
Forms![customer and cargo for query]![BALANCE OF QUANTITY] = Balance
GoTo ss2
Label1:
Balance = 0
Forms![customer and cargo for query]![BALANCE OF QUANTITY] = Balance
Msgbox"Заданные параметры ошибочны"
Label2:
End Sub


Я думал,что если задам в Form1 реальные параметры выборки то все отработает... Так оно и есть... а вот если задаю нереальные... то есть генерирую ошибку... то ! (я то думал что присвоиться ноль и процедура завершиться... но...)Form2 вооще не запускается.... даже если впоследствии задать верный параметр,все-равно не запускается... приходится её открыть в Design-е и тогда снова выборка идет нормально...

Плиз скажите чего я забыл добавить...
Заранее спасибо за помощь в освоении Access-a :)
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32325529
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Не думаю, что дело в этом, но все-таки.

Код: plaintext
1.
Dim Label1 As Label 
Dim Label2 As Label 

- это лишнее. Label - это не метка для перехода в программе, а объект - контрол, представляющий собой надпись при поле на форме.
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32325531
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Кстати, а где метка ss2, которая упомянута в программе??? Я не понимаю, почему эта программа не валится еще на этапе компиляции. Неужели это из-за простого отсутствия Option Explicit в начале модуля...
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32325704
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Владимир Саныч пардон,извиняюсь...

упомянутая goto SS2 - это конечно-же goto Label2 (я для простоты заменил все реальные метки и реальные названия форм при копировании "кнопки"... а SS2 забыл в этом месте заменить...)

Дак все-же... почему при использовании несуществующего параметра после отработки кнопки больше никогда не "оживает" Form2 ?
Мне ощщень интересно почему это.. вроде ж все просто... Форма не должна отображать финальный результат... а потом при вводе нормального параметра она должна показать результат... а тут последнее Query считает все ОК а форма при этом не открывается вооще...
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32325715
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Но все-таки: Option Explicit в начале модуля есть или нет? Предлагаю его поставить и проверить, нет ли ошибок компиляции.

И в любом случае, те две строки, которые я процитировал, - лишние.

Если после обоих исправлений по-прежнему работать не будет, тогда будем думать дальше. :^)
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32325719
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Владимир Саныч,
Чтоб долго не парить мозги сделал "Копи Пасте" :)) Чтоб было видно один в один как у меня ето все написано(Option Explicit есть...) Я боюсь может я чего не до конца обрисовал в предыдущих сообщениях... :

Option Explicit
------------------------------------
Private Sub Command10_Click()
Rem Dim SS1 As Label
Rem Dim ss2 As Label
Dim Balance As String
On Error GoTo SS1
DoCmd.OpenForm "FINAL BALANCE MT", acNormal, , , , acHidden
Balance = Forms![FINAL BALANCE MT]![Остаток на складе]
DoCmd.Close acForm, "FINAL BALANCE MT"
Forms![customer and cargo for query]![BALANCE OF QUANTITY] = Balance
GoTo ss2
SS1:
Balance = 0
Forms![customer and cargo for query]![BALANCE OF QUANTITY] = Balance
ss2:
End Sub


Самая первая форма,где задаются параметры отбора и существует вышеуказанная кнопка ,содержит и поле-результат. Чуйствую что при отсутствии результата в форме FINAL BALANCE MT и происходит сбой... т.к. Кнопка "лезет" считать цифру а там её нет... там вообще ничего нет...но ёпрст... почему ж у меня не срабатывает в этом случае On error... неужели отсутствие результата и сбой при считывании поля не является ошибкой... И ничего не понимаю почему FINAL BALANCE MT при повторном (уже корректном)обращении не открывается вооще (как я и говорил ранее).. Блин... труба какая-то...
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32325735
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
REM при описании меток я по вашей рекомендации сделал...
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32325853
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
> Кнопка "лезет" считать цифру

Кстати, не цифру, а строку. Переменная Balance ведь описана как строка.

Я бы запустил построчно и посмотрел бы, на какой строке прекращается нормальная работа.
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32326857
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Владимир Саныч ,
Благодарю за поддержку,но у меня из ряда фантастики решение....

Я ПРОСТО ПОПРОБОВАЛ заменить длинные названия форм аля "customer and cargo for query" на аббревиатуры(чтоб мне понятно было) соответственно получилось название CACFQ... И... :)) Прикол получился в мою сторону... все работает...Во труба... неужели в Акцесе такие глюки бывают...
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32326858
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Ну чаво. Таки абзац. :^) Что еще можно сказать...
...
Рейтинг: 0 / 0
Форма на базе Query,которая суммирует еще ряд Query "замирает"
    #32327213
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Владимир Саныч,
А пришел я к такому решению после того как попытался в редакторе войти в Object Browser... К моему полному удивлению там не было форм с вот такими длинными названиями... поэтому решил переделать... После того как все стало работать вспомнилось из третьей матрицы -
"Матрица дала сбой" а также ListBox в голове "перекручивал" ряд препаратов из медицины аля ГЛЮконат натрия,ГЛЮкоза ну и там всякие слова с корнем Глюк :))

Хехе... познаю Акцесс... :))
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма на базе Query,которая суммирует еще ряд Query "замирает"
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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