Forms, немодальные и модальные

Программирование на Visual Basic for Applications
Avtopic
Постоялец
Постоялец
 
Сообщения: 442
Зарегистрирован: 30.09.2005 (Пт) 17:15
Откуда: Tbilisi

Forms, немодальные и модальные

Сообщение Avtopic » 01.02.2006 (Ср) 13:31

Здравствуйте!
Нужен совет по следующей проблеме:

Sub New_Move ()

'в начале идет проверка очень многих условии, для того чтобы New Move разрешено било проводить.
Если все проверки прошли успешно

f1 = 0
Form_Doc.Show
If f1 <> 1 Then Exit Sub ' проблема здесь

' Если в форме нажали OK, то f1 = 1 и действие продолжается

End Sub

В Form_Doc заполняется огромная накладная. В нем же можно вызывать пять различных форм, чтобы выбирать из справочников, редактировать справочники и т.д.
Все формы, включая Form_Doc, били модальные. Понадобилось, чтобы все били немодальные, но в этом случае точка в коде - ' проблема здесь (см. выше) проходит без остановки.
Код очень большой, не хочу переписывать.
Посоветуйте, как остановится в форме, чтобы ждать окончания действии пользователя.

Avtopic
Постоялец
Постоялец
 
Сообщения: 442
Зарегистрирован: 30.09.2005 (Пт) 17:15
Откуда: Tbilisi

Сообщение Avtopic » 01.02.2006 (Ср) 13:34

Sorry, Все в Excel-e.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 01.02.2006 (Ср) 13:43

Переписывать придется.
Lasciate ogni speranza, voi ch'entrate.

Avtopic
Постоялец
Постоялец
 
Сообщения: 442
Зарегистрирован: 30.09.2005 (Пт) 17:15
Откуда: Tbilisi

Сообщение Avtopic » 01.02.2006 (Ср) 13:47

:shock:


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 76

    TopList