1) есть функция foo(), выполнение которой длится около 5 минут. функция находится не в Form_1

2) форма Form_1, которая содержит надпись:
"обработано x/total_x"
и кнопку "Отмена"

нужно сделать:

а) перед циклом в foo() нужно открывать Form_1 модально
б) при прохождении по циклу в foo() изменять значение x в Form_1
в) при нажатии на "Отмена" в Form_1 прерывать цикл

не подскажет ли кто-нибудь как это можно сделать ?

С уважением, Каримбаев Тимур

Всем спасибо.

Я наверное буду писать код в OnLoad Form_1, так и "Отмену" легче контролировать

и еще один вопрос: насколько DoEvents тормозит работу ?
функция тормознутая из-за того что там данные берутся из Excel, с помощью sheet.Range()

С уважением, Каримбаев Тимур

спасибо
я уже заметил что Access как-бы зависает, как раз из-за этого и возникла необходимость делать эту форму :)

тогда еще такой вопрос :)

делаю обработку в OnLoad Form_1

Form_1 должен модально вызываться из MainForm.
Как передать значение переменной из MainForm в Form_1 ? Я тут спрашивал несколько дней назад почему не работает конструкция типа (VBA говорил что форма не найдена):

мне объяснили что в Forms форма попадает только когда она открыта. Но мне нужно сначала передать переменную (имя excel-файла), а потом модально открывать форму. Могу конечно передать через какой-нибудь модуль, но кажется это не совсем верно

если проще: как сделать глобальную переменную :) (прощу прощения за столь примитивный вопрос, просто с VBA работаю недавно)

С уважением, Каримбаев Тимур

да, кстати и еще такой вопрос:
как грамотные программисты открывают/закрывают формы. Я умею только :

DoCmd.Close()
или
DoCmd.OpenForm

С уважением, Каримбаев Тимур

ТемныйЭто из серии:
"-Как программисты перезагружают компьтер мышкой?
-Поднимают мышку со стола и жмут ее на кнопку Ресет на системнике."

вопрос был важен для меня потому что если все нормальные программисты могут как-то сначала передавать переменные в форму, а потом открывать её (что-то типа UnloadedForms!Form_1!edt_xlsFile.Text="Hello", а потом её открывать :)) то это было бы удобнее чем использование глобальных переменных. Так вот мне и хотелось выяснить - может я форму не тем способом открываю :))

с глобальными переменными разобрался. теперь объявляю их в отдельном модуле как Public, а потом использую. Спасибо


Тимур Каримбаевнасколько DoEvents тормозит работу ?

Владимир СанычНе тормозит никак. Будет тормозить, если параллельно с этой программой будет запущено что-нибудь еще. Хотя тоже не факт.

ТемныйDoEvents переает управление операционной системе на обработку событий, которые накопились в очереди событий, пока выполнялся код в Аксессе. Т.е., грубо говоря, если не поставить DoEvents у тебя будет подобие невытесняющей многозадачности (это когда одна задача занимает все ресурсы и не отдает их до завершения своей работы, падла


так вот мне и хочется выяснить: если одна задача (например мой цикл) "занимает все ресурсы и не отдает их до завершения своей работы", так может она и выполнится в несколько раз быстрее чем если каждый раз внутри цикла её будут прерывать и заставлять перерисовывать форму.

С уважением, Каримбаев Тимур

Владимир СанычНет ли здесь противоречия? Я-то давал ответ на первый стучай, т.е. когда форма открыта.

пост №480394
"Я наверное буду писать код в OnLoad Form_1, так и "Отмену" легче контролировать" :)

Владимир СанычКстати, еще один способ передать в форму параметр - это через OpenArgs (один из параметров команды OpenForm).

вот это уже очень интересно, сейчас смотрю

GeoЕсли форма не открыта - ее "класс" не инициализирован, то нет такой формы, и нет такой переменной. Надо открыть ее через docmd, тогда и сможешь достучаться до контрола. В случае с переменной, описанной в модуле формы, она должна быть объявлена как публик (public). А лучше ее (переменную) объявить в каком-нибудь модуле (стандартном)...

Спасибо, это я понял. Проблема была в том, что её надо сначала с помощью DoCmd открыть модально, а потом передать переменную, но если мы её открываем модально - код не идет дальше пока мы её не закроем :) и нет возможности передать переменную

Темный
Аксес висит - Винда идет.
Если у тебя не будет DoEvents - ты не сможешть нажать на кнопку Отмена.
Но завершить процесс msaccess.exe - запросто.
Спасибо. Вопрос у меня теперь в том - насколько DoEvents тормозит работу самого цикла в MsAccess


С уважением, Каримбаев Тимур