Как определить окончание вычисления RecordSource вподчиненной форме / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как определить окончание вычисления RecordSource вподчиненной форме

17 сообщений из 17, страница 1 из 1

Как определить окончание вычисления RecordSource вподчиненной форме

#32297132

lln

Гость

Подскажите! Есть главная форма, в ней подчиненная табл. форма, источником данных которой - хр.проц. на MS SQL. Надо погасить поля, итоговая сумма которых равна 0. В примечании подч. формы вычисляю суммы полей, анализирую их и, если сумма =0, схлопываю. Если после
me.SubForm.Form.RecordSource = ""
ставлю точку останова и потом схлопываю, то все работает. Если убираю точку останова, схлопываются все поля независимо от суммы. Т.е. суммы не успевают вычислиться?

...

Рейтинг:

0 / 0

17.10.2003, 18:21

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297265

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

> Если убираю точку останова, схлопываются все поля независимо от суммы.

Значит, можно поставить на месте точки останова DoEvents.

...

Рейтинг:

0 / 0

17.10.2003, 21:50

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297367

Леонид

Гость

ВС
DoEvents было поставлено сразу. Эфекта никакого. Даже если воткнуть MsgBox
после me.SubForm.Form.RecordSource = "...", то классный эффект - данные в подчиненной форме выводятся, поверх - сообщение, нажимаю на нем "Ок" - все колонки схлопываются. Т.е. программа считает, что на момент анализа сумм по полям они равны 0. Если же ставишь точку останова, то суммы успевают расчитаться и схлопываются только реально нулевые колонки.
Есть на табличной форме красная кнопочка с крестикомЮ которая становится серой, когда RecordSet формы заполнен. Вот это-то событие поймать бы! Но как?

...

Рейтинг:

0 / 0

18.10.2003, 11:46

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297378

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Тогда придется разобраться в сути задачи. Что такое схлопывание полей?

А красная кнопочка - это что-то странное. Это что-то стандартное в Аксессе? (Я с Аксессом работаю лет 8, но такую кнопку не знаю. Возможно, это что-то новое в версиях 2002 и выше?)

...

Рейтинг:

0 / 0

18.10.2003, 12:49

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297389

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Есть вариант. Поставить не DoEvents, а что-нибудь вроде

Me.SubForm.Form.Recordset.MoveLast

тогда программа не пойдет дальше, пока все записи не придут с сервера.

...

Рейтинг:

0 / 0

18.10.2003, 13:31

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297459

lln

Гость

"Схлопывать" -
If (сумма поля) = 0 Then
Me.SubForm.Form(CtlName).ColumnHidden = True
Else
Me.SubForm.Form(CtlName).ColumnHidden = False
end if

Ну, извините! (кстати у нас в России на "Вы" обращаются к одному человеку, если хотят подчеркнуть уважение к нему). Асс2000, даже не 2002. "Красной" назвал кнопку (не знаю как правильно это назвать), которая загорается внизу таблицы (справа от кнопок перехода по записям) пока идет расчет данных формы. Она становится серой, когда расчет закончен. Значит знает Access этот момент! И я хочу.
Me.SubForm.Form.Recordset.MoveLast поставленное перед приведенным фрагментом не помогло.
Пришлось пока повесить это безобразие на кнопку на главной форме - получил весь результат, а потом нажми и сверни "нулевые" поля - плохо.

...

Рейтинг:

0 / 0

18.10.2003, 16:09

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297486

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

> кстати у нас в России на "Вы" обращаются к одному человеку, если хотят подчеркнуть уважение к нему

:^) Знаю. Я до 25 лет жил в Питере, так что в курсе. Но когда мне говорят "Вы", то я жду продолжения: "Пройдемте, гражданин".

По сути вопроса - все понял, но пока идей никаких. Продолжаю думать.

...

Рейтинг:

0 / 0

18.10.2003, 17:05

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297507

Нуф-нуф

Участник

Откуда: КМВ (Северный Кавказ)

Сообщения: 809

Рейтинг: 0 / 0

В качестве варианта попробуй следующее:

1. Создай в примечании поля еще одно поле с функцией подсчета записей: "=Count(*)"
2. По таймеру читай значение данного поля. Как только значение данного поля перестанет быть равным Null - можеш проверять итоговые суммы в прочих полях и нужные из них "схлопывать".

Хотя... Хотя по идее Null (в случае если все записи еще не загружены и результат итоговых функций не определен) и Ноль (в случае когда все записи загружены и итоговая сумма равна 0) - не одно и тоже. То есть, Null не равен 0, поэтому срабатываний не должно было быть...

...

Рейтинг:

0 / 0

18.10.2003, 17:52

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297544

вадя

Участник

Откуда: Екатеринбург

Сообщения: 19 399

Рейтинг: 0 / 0

1 это ADP? (пожоже на это)
2 сколько у тебя записей в подчиненной форме?
3 сколько таких полей у тебя?

...

Рейтинг:

0 / 0

18.10.2003, 19:34

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32297979

Саша 594

Гость

Проблема заключается в том, что в ADP выражение

form.recordsource="..."

выплняется асинхронно и ХП может еще не успеть выполниться,а код VBA пошел дальше.

Вариантом решения является

rs.open "...",connection, adOpenStatic

set form.recordset=rs

тогда код будет выполняться последовательно и проблема синхронизации исчезнет. Недостатком такого подхода является невозможность далее получить

form.recordsetclone

что успешно лечиться

form.recordset.clone

PS.А 'схлопывание' можно перенести в код подчиненной формы

...

Рейтинг:

0 / 0

20.10.2003, 09:52

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32298388

lln

Гость

Саша594!
Все сделал как написано, результат прежний - все поля схлопнулись.
Но появился странный эфект. Если ставлю точку останова на цикле, слопывающем поля в зависимости от величины суммы поля, выдается ошибка - "Сервер OLE не зарегестрирован". Без точки останова ошибка не выдается, но и результата нет. (On error НЕ Resume next). Наверно это к делу не относится, но все же. По кнопке поля попрежнему прекрасно схлопываются.

Правда все это делается пока из главной формы, в подчиненную не перенес.

...

Рейтинг:

0 / 0

20.10.2003, 14:02

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32298437

Саша 594

Гость

IIN:'В примечании подч. формы вычисляю суммы полей, анализирую их и, если сумма =0, схлопываю'

Да есть такая проблема после изменения recordset формы. У меня такое же сообщение об ошибке возникало на операции form.recordset.recordcount.
Дело в том что операция form.recordsource=".." не эквивалентна set form.recordset , она выполняет еще какие-то действия.

Попробуйте убрать поля в примечании ыгиащкь и вычислить суммы вручную. Например:

Function getSumm(f as form) as Currency
dim rs_clone as adodb.recordset
set rs_clone = f.recordset.clone

И далее цикл по rs_clone

...

Рейтинг:

0 / 0

20.10.2003, 14:29

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32298498

assa

Участник

Откуда: мы сами не местные

Сообщения: 3 467

Рейтинг: 0 / 0

В процедуре вместо схлопывания запускайте отдельную процедуру с дуевентом в цикле и выходом из него по результатам проверки загрузки (в ADO нет stillexecuting, стало быть надо проверять окончание как-то иначе - например по проверке некоего спецполя. А то константы adErrStillExecuting, adStateExecuting не похожи на требуемые семафорчики. Знатоки ADO меня поправят .:0), а в этой процедуре аккурат и схлопывайте ваши колонки - по выходу из цикла.

...

Рейтинг:

0 / 0

20.10.2003, 14:52

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32298529

вадя

Участник

Откуда: Екатеринбург

Сообщения: 19 399

Рейтинг: 0 / 0

а чё сделать хранимку, чтоб на серваке сумму считала и по результатам дела делать?

...

Рейтинг:

0 / 0

20.10.2003, 15:02

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32298951

lln

Гость

2Вадя.
Ну конечно суммы в хр. пр. посчитать можно. Но заело! Ведь вижу на форме "семафорчик", вот он счет закончился, а как ухватить его как не понимаю.
Но все данные советы получаются еще сложнее.

...

Рейтинг:

0 / 0

20.10.2003, 18:12

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32299058

Гость

вместо

DoEvents

поставь

Do Until (me.SubForm.Form.RecordSource.State And &HFFFE) = 0
DoEvents
Loop

...

Рейтинг:

0 / 0

20.10.2003, 19:47

| Ответить | Цитировать | Написать

Как определить окончание вычисления RecordSource вподчиненной форме

#32299061

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Возможно, не RecordSource, а RecordSet???

...

Рейтинг:

0 / 0

20.10.2003, 19:48

| Ответить | Цитировать | Написать

17 сообщений из 17, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32298529&tid=1678759]:	0ms
get settings:	5ms
get forum list:	12ms
check forum access:	2ms
check topic access:	2ms
track hit:	40ms
get topic data:	6ms
get forum data:	1ms
get page messages:	37ms
get tp. blocked users:	2ms
others:	198ms

total:	305ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы