Форма не закрывается по инструкции DoCmd.Close / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма не закрывается по инструкции DoCmd.Close

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

Форма не закрывается по инструкции DoCmd.Close

#39763914

Игорь С

Гость

Общий модуль читает URL и при некоторых условиях должен подождать.
В этот момент окрывается информирующая "формочка" с полем , где по умолчанию указано время открытия формы и две кнопки: "Продолжить" и "Завершить"

В общем модуле цикл:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

 If NErrxxx > 3 Then
                NErrxxx = 0
                Dim t0 As Long, t1 As Long: t0 = Timer: DoCmd.OpenForm "Xpause"
                Do
                  t1 = Timer
                  If t1 > t0 + 1800 Or t1 < t0 Then DoCmd.Close acForm, "Xpause": Exit Do
                  DoEvents
                  If log2 > 0 Then DoCmd.Close acForm, "Xpause": Exit Do
                Loop
                If log > 0 Then log = 0: DoCmd.Close acForm, "Xpause": GoTo 90
            End If

Последняя инструкция

Код: vbnet

.Close

даже лишняя.
Log, Log2 - глобальные управляющие переменные
Вот модуль формы:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Form_Close()
log2 = 1
End Sub

Private Sub Кнопка2_Click()
log2 = 1
DoCmd.Close
End Sub

Private Sub Кнопка3_Click()
log = 1
log2 = 1
DoCmd.Close

End Sub

Почему форма не закрывается?

...

Рейтинг:

0 / 0

24.01.2019, 06:09

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

Форма не закрывается по инструкции DoCmd.Close

#39763941

Joss

Участник

Откуда: г. Минск

Сообщения: 5 036

Рейтинг: 0 / 0

Не ясна постановка вопроса. По подробнее можно? Не закрывается... Когда? По кнопке на форме? Из основного модуля? А пример базы? А под отладчиком прошли? Может программа в этот IF и не попадает?

...

Рейтинг:

0 / 0

24.01.2019, 08:30

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

Форма не закрывается по инструкции DoCmd.Close

#39763967

ROI

Участник

Откуда: г. Тюмень

Сообщения: 2 326

Рейтинг: 0 / 0

Joss,

Я так думаю останавливается таймер на форме когда вызывается другая форма

...

Рейтинг:

0 / 0

24.01.2019, 09:25

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

Форма не закрывается по инструкции DoCmd.Close

#39763970

ROI

Участник

Откуда: г. Тюмень

Сообщения: 2 326

Рейтинг: 0 / 0

DoEvents должно помочь

...

Рейтинг:

0 / 0

24.01.2019, 09:26

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

Форма не закрывается по инструкции DoCmd.Close

#39763973

Игорь С

Гость

Joss, спасибо за внимание.
Поподробнее

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

If NErrxxx > 3 Then  ' Условие начала ожидания
                NErrxxx = 0
                Dim t0 As Long, t1 As Long: t0 = Timer: DoCmd.OpenForm "Xpause" ' Форма открыта в момент t0
                Do
                  t1 = Timer
                 ' Если прошло полчаса, то форма закрывается и общий модуль продолжает работать
                  If t1 > t0 + 1800 Or t1 < t0 Then DoCmd.Close acForm, "Xpause": Exit Do 
                  DoEvents
                  ' Если нажали кнопку продолжить в форме "Xpause", выйти из цикла и продолжить работу
                  If log2 > 0 Then DoCmd.Close acForm, "Xpause": Exit Do
                Loop
                                                ' Это дубляж закрытия формы
                If log > 0 Then log = 0: DoCmd.Close acForm, "Xpause": GoTo 90
            End If

Пример "базы", полагаю не нужен, т.к. это однотабличная база (читаем URL, что-то выбираем и записываем в единственную таблицу).
Но форма не закрывается. Да, забыл, Акссесс 2010, но файл .mdb созданный в Аксессе 2003.

...

Рейтинг:

0 / 0

24.01.2019, 09:33

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

Форма не закрывается по инструкции DoCmd.Close

#39763975

Игорь С

Гость

ROIJoss,
Я так думаю останавливается таймер на форме когда вызывается другая форма

Да нет, программа через положенное время выходит из цикла и нормально продолжает работу. А эта форма висит. Закрываю "руками" все нормально продолжается. Отладчиком пробовал с остановкой на инструкции Close. Остановилось, продолжил, процесс продолжился, форма открыта. Где-то что-то очень простое ...

...

Рейтинг:

0 / 0

24.01.2019, 09:36

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

Форма не закрывается по инструкции DoCmd.Close

#39764045

ROI

Участник

Откуда: г. Тюмень

Сообщения: 2 326

Рейтинг: 0 / 0

Игорь СROIJoss,
Я так думаю останавливается таймер на форме когда вызывается другая форма

Да нет, программа через положенное время выходит из цикла и нормально продолжает работу. А эта форма висит. Закрываю "руками" все нормально продолжается. Отладчиком пробовал с остановкой на инструкции Close. Остановилось, продолжил, процесс продолжился, форма открыта. Где-то что-то очень простое ...
Хмм Может активировать форму хотя.....

...

Рейтинг:

0 / 0

24.01.2019, 10:36

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

Форма не закрывается по инструкции DoCmd.Close

#39764064

Кривцов Анатолий

Гость

Не понял вашу логику. В log2 пишется 1 перед перед DoCmd.Close по нажатию любой кнопки и даже на событии Form_Close. Т.е. форма уже закрывается, а в цикле снова команда DoCmd.Close. Может она лишняя и такой эффект? Если дождаться 30 мин., форма закроется?
Если форму просто открыть и нажать кнопку - закрывается?

Я бы в цикл добавил проверку - открыта ли форма.

...

Рейтинг:

0 / 0

24.01.2019, 10:54

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

Форма не закрывается по инструкции DoCmd.Close

#39764068

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

Игорь С,
if t1>t0+1800 or t1<t0... а будет ли это TRUE
t0=timer,t1=timer-до присвоения значения t1 может пройти,от начала выполнения (а при пошаговом выполнении в окне отладки это условие выполнится) менее 1800 милисек,а t1 никогда не будет меньше t0

...

Рейтинг:

0 / 0

24.01.2019, 10:56

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

Форма не закрывается по инструкции DoCmd.Close

#39764084

Кривцов Анатолий

Гость

Игорь С, а почему бы вам не открыть форму в режиме acDialog? Тогда и никакого цикла не надо.

...

Рейтинг:

0 / 0

24.01.2019, 11:12

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

Форма не закрывается по инструкции DoCmd.Close

#39764335

Игорь С

Гость

Кривцов Анатолий В log2 пишется 1 перед перед DoCmd.Close по нажатию любой кнопки и даже на событии Form_Close. Т.е. форма уже закрывается, а в цикле снова команда DoCmd.Close. Может она лишняя и такой эффект? Если дождаться 30 мин., форма закроется?
Если форму просто открыть и нажать кнопку - закрывается?

Я бы в цикл добавил проверку - открыта ли форма.

Все лишние Close - это результать попыток все-таки ее закрыть .

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

...

Рейтинг:

0 / 0

24.01.2019, 14:37

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

Форма не закрывается по инструкции DoCmd.Close

#39764341

Игорь С

Гость

Кривцов Анатолий

Цикл нужен, т.к. это основной режим работы. Программа подождет 30 мин и должна без вмешательства продолжить работу, что она и делает. Но форма висит и "немного мешает". Хотя можно закрыть руками.
Попробую в режиме диалога.

...

Рейтинг:

0 / 0

24.01.2019, 14:42

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

Форма не закрывается по инструкции DoCmd.Close

#39764432

Кривцов Анатолий

Гость

Вместо
If t1 > t0 + 1800
укажите
If t1 > (t0 + 1800)

Но режим диалога - лучшее решение. Если вам нужно организовать таймаут, то в форме укажите TimerInterval и закрывайте на событии Form_Timer.

...

Рейтинг:

0 / 0

24.01.2019, 15:31

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

Форма не закрывается по инструкции DoCmd.Close

#39764556

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

Игорь С, если форму закрыть нельзя, значит метод docmd её не находит в коллекции Forms. попробуйте forms("Xpause").requery, goto control "Xpause"-вдруг поможет?

...

Рейтинг:

0 / 0

24.01.2019, 17:16

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

Форма не закрывается по инструкции DoCmd.Close

#39764741

Игорь С

Гость

alecko,
Спасибо

...

Рейтинг:

0 / 0

25.01.2019, 09:23

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

Форма не закрывается по инструкции DoCmd.Close

#39764749

Игорь С

Гость

alecko,

Код: vbnet

1.
2.
3.

 DoCmd.OpenForm "Xpause"
 Задержка_секунд(5)
 DoCmd.Close acForm, "Xpause"

Форма открылась, но не закрылась, без всяких таймеров и логики, с паузой по времени 5 секунд.

...

Рейтинг:

0 / 0

25.01.2019, 09:37

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

Форма не закрывается по инструкции DoCmd.Close

#39764751

Игорь С

Гость

alecko,
Сейчас попробую как Вы посоветовали.

...

Рейтинг:

0 / 0

25.01.2019, 09:38

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

Форма не закрывается по инструкции DoCmd.Close

#39764773

ROI

Участник

Откуда: г. Тюмень

Сообщения: 2 326

Рейтинг: 0 / 0

Игорь Сalecko,

Код: vbnet

1.
2.
3.

 DoCmd.OpenForm "Xpause"
 Задержка_секунд(5)
 DoCmd.Close acForm, "Xpause"

Форма открылась, но не закрылась, без всяких таймеров и логики, с паузой по времени 5 секунд.
Переведите фокус на форму и сделайте активной должно сработать.

...

Рейтинг:

0 / 0

25.01.2019, 10:21

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

Форма не закрывается по инструкции DoCmd.Close

#39764862

Кривцов Анатолий

Гость

Игорь С DoCmd.OpenForm "Xpause"
Задержка_секунд(5)
DoCmd.Close acForm, "Xpause"
[/src]
Форма открылась, но не закрылась, без всяких таймеров и логики, с паузой по времени 5 секунд. Это какая-то аномалия. А любая другая форма? Если закрывается, то сделайте дубль формы "Xpause" и попробуйте с ним.

...

Рейтинг:

0 / 0

25.01.2019, 12:25

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

Форма не закрывается по инструкции DoCmd.Close

#39764880

Joss

Участник

Откуда: г. Минск

Сообщения: 5 036

Рейтинг: 0 / 0

Из статьи http://am.rusimport.ru/MSAccess/topic.aspx?ID=728

...
3. Использовать функцию SendMessage (API)

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

'Разместите на форме CommandButton и вставьте следующий код:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal msg As Long, _
    ByVal Param1 As Long, _
    Param2 As Any) As Long
    
Private Const GetClose = &H10

	Private Sub Command_Click()
               SendMessage Me.hwnd, GetClose, 0, vbNullString
	End Sub

Закрывается форма стандартно. происходят события Unload и Close .
Заменив определение Private на Public описание функции и константы можно поместить в общий модуль.

4. Использовать функцию DestroyWindow (API) - не рекомендуется

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

'Разместите на форме CommandButton и вставьте следующий код:
	Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long


	Private Sub Command_Click()
              DestroyWindow Me.hwnd
	End Sub

Описание функции можно поместить и в общем модуле как Public .
Особенности. При использовании функции DestroyWindow не происходит событие Unload . Событие Close происходит. Никакие изменения на форме не сохраняются. Запрос на сохранение изменений не выдаётся. По-этому и не рекомендуется использовать эту функцию для закрытия форм в Access .

---
Попробуйте

...

Рейтинг:

0 / 0

25.01.2019, 12:43

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

Форма не закрывается по инструкции DoCmd.Close

#39765031

Игорь С

Гость

Joss, ой, спасибо.

...

Рейтинг:

0 / 0

25.01.2019, 15:37

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

Форма не закрывается по инструкции DoCmd.Close

#39765112

Игорь С

Гость

Кривцов АнатолийИгорь С DoCmd.OpenForm "Xpause"
Задержка_секунд(5)
DoCmd.Close acForm, "Xpause"
[/src]
Форма открылась, но не закрылась, без всяких таймеров и логики, с паузой по времени 5 секунд. Это какая-то аномалия. А любая другая форма? Если закрывается, то сделайте дубль формы "Xpause" и попробуйте с ним.
Сделал форму "Всплывающее окно" - уже открыть, подождать, закрыть (вне цикла с таймером) сработало.

...

Рейтинг:

0 / 0

25.01.2019, 18:06

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

Форма не закрывается по инструкции DoCmd.Close

#39765239

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

есть ещё открытие формы как модуля класса-в этом случае о таких проблемах можно забыть

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Dim frm as form
 If NErrxxx > 3 Then
set frm = new form_Xpause
frm.visible=true
' ...
set frm=nothing
end if

...

Рейтинг:

0 / 0

26.01.2019, 13:21

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма не закрывается по инструкции DoCmd.Close

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=45&msg=39764862&tid=1610891]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	60ms
get topic data:	11ms
get forum data:	3ms
get page messages:	59ms
get tp. blocked users:	2ms
others:	317ms

total:	482ms