как закрыть sub из формы на vba / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как закрыть sub из формы на vba

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

как закрыть sub из формы на vba

#35857108

Kirillka

Гость

У меня в середине Sub'a вызывается форма, после манипуляций с ней Sub продолжает работу с полученными данными.
Как закрыть sub из формы если пользователь нажмет на крестик (правый верхний угол) в форме?
Спасибо.

...

Рейтинг:

0 / 0

07.03.2009, 15:04

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

как закрыть sub из формы на vba

#35857267

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Через глобальную переменную или свойство формы.
Проверьте их значение после закрытие формы и выходите из sub.

...

Рейтинг:

0 / 0

07.03.2009, 20:41

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

как закрыть sub из формы на vba

#35857338

Kirillka

Гость

Не могли бы Вы показать это на примере?

...

Рейтинг:

0 / 0

07.03.2009, 22:26

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

как закрыть sub из формы на vba

#35857365

sadem

Гость

Kirillka, вы на чем пишите? Если смотреть на данный вопрос со стороны VB6, то не совсем понятно получается... процедура будет все-равно вполняться до конца даже при вызове другой формы (если конечно речь не идет о MsgBox, InputBox и т.п.), например такая (F2 - это форма):

Код: plaintext

1.
2.
3.
4.
5.

Private Sub Комманда1_Click()
    Load F2
    F2.Visible = True
    MsgBox "All Ok!!!"
End Sub

Приведите хотя бы часть своего кода....

...

Рейтинг:

0 / 0

07.03.2009, 23:14

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

как закрыть sub из формы на vba

#35857388

Kirillka

Гость

sademKirillka, вы на чем пишите?
Дорогой sadem я пишу на иврите.

как закрыть sub из формы на vba
В Visual Basic for Applications в отличие от Visual Basic (модальные, не модальные) есть только один вид форм.
MsgBox, InputBox это диалоговые окна а не формы.
Форма это объект UserForm.
В Visual Basic for Applications когда Sub вызывает форму его выполнение прекращается до того момента пока форма не будет выгружена или скрыта.
Так вот если пользователь увидев форму пришел к выводу что дальнейшее выполнение программы для него не целесообразно, он захочет ее закрыть (крестик в правом верхнем углу), естественно после этого ни мне ни пользователю дальнейшее выполнение кода ненужно, по этому Sub надо закрыть.
Вопрос: Как закрыть sub из формы, на Visual Basic for Applications

Код: plaintext

1.
2.
3.
4.
5.

Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

здесь должно быть- мой Sub который вызвал форму закройся (только на языке Visual Basic for Applications)

End Sub

...

Рейтинг:

0 / 0

08.03.2009, 00:09

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

как закрыть sub из формы на vba

#35857493

sadem

Гость

Kirillka, ну просчет мой, не заметил, но на vba она все равно будет выполнение процедуры до конца...
Давайте проверим (VBA 6.5.1020):

Код: plaintext

1.
2.
3.
4.

Private Sub Form_Unload(Cancel As Integer)
    DoCmd.OpenForm "F2"
    MsgBox "All Ok!!!"
End Sub

Ну ладно, а вообще если на то пошло, сделайте маркер, типа Boolean, который например будет принимать значение true только в том случае, если посльзователь вышел из второй формы не через "крестик" (как я полагаю, есть и второй способ выхода из формы, что-то типа кнопки "выход" или "ок", вот там и ставьте изменение этой метки), а далее в процедуре сразу после запуска формы условие - if Not(маркер) Then Exit Sub.

...

Рейтинг:

0 / 0

08.03.2009, 11:17

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

как закрыть sub из формы на vba

#35859146

Krasnaja Shapka

Гость

я использую просто "end"

_{Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = 0 Then End

End Sub}

...

Рейтинг:

0 / 0

10.03.2009, 10:58

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

как закрыть sub из формы на vba

#35859363

Kirillka

Гость

Господа Вы не понимаете чего мне надо.
Мне надо чтобы из этого Sub'a

Код: plaintext

1.
2.
3.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End Sub

можно было закрыть любой другой.

Код: plaintext

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

здесь я полагаю должно быть "имя любого Sub'a exit или end

Код: plaintext

End Sub

Задача в том чтобы передать любому Sub'у команду (параметр) на закрытие.

...

Рейтинг:

0 / 0

10.03.2009, 12:11

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

как закрыть sub из формы на vba

#35859668

Пример

Гость

В модуле пишем так

Код: plaintext

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

Option Explicit
Public a As Boolean
Sub Zapusk()
    a = False
    UserForm1.Show
    If a Then Exit Sub
    MsgBox  123 
End Sub

В коде формы так

Код: plaintext

1.
2.
3.
4.

Option Explicit
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    a = True
End Sub

...

Рейтинг:

0 / 0

10.03.2009, 13:36

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

как закрыть sub из формы на vba

#35866002

sadem

Гость

Дорогой Kirillka, похоже Вы действительно пишите на "иврите". Что-то как-то непонятно задачу ставите. Выполнение двух процедур одновременно происходит очень редко и в определенных случаях - при рекурсии или например, в элементе таймер (которого в vba вроде нет, хотя точно не помню). Но по вашему описанию трудно догадаться в каком месте и что находится в коде. Приведите наконец-то часть своего кода (то, что вы пишите кодом трудно назвать, это лишь попытка что-то объяснить форумчанам). Тогда может всё-таки Вам кто-то поможет, а иначе "гадать" вряд ли стоит над вашим вопросом....

...

Рейтинг:

0 / 0

12.03.2009, 21:53

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

как закрыть sub из формы на vba

#35866257

Arvitaly

Гость

KirillkaГоспода Вы не понимаете чего мне надо.
Мне надо чтобы из этого Sub'a

Код: plaintext

1.
2.
3.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End Sub

можно было закрыть любой другой.

Код: plaintext

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

здесь я полагаю должно быть "имя любого Sub'a exit или end

Код: plaintext

End Sub

Задача в том чтобы передать любому Sub'у команду (параметр) на закрытие.

Собственно говоря, это невозможно. Вот и весь ответ. А способы окончания работы или обыкновенной проверки на продолжение выполнения процедуры - это взависимости, от того что Вы хотите чтобы выполнялось дальше.

Я бы немного дополнил следующим в случае продолжения выполнения программы

авторOption Explicit
Public a As Boolean
Sub Zapusk()
a = False
UserForm1.Show
If a Then call Любая_Другая_Функця(параметры):Exit Sub
MsgBox 123
End Sub

...

Рейтинг:

0 / 0

13.03.2009, 05:45

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

как закрыть sub из формы на vba

#35867182

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Это делается так:

Код: plaintext

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

'В форме:
Public Function ShowForm() as Boolean
    Show vbModal
    If что-то там Then ShowForm = True
End sub

'В любой процедуре

If UserForm1.ShowForm Then Exit Sub

...

Рейтинг:

0 / 0

13.03.2009, 12:39

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

как закрыть sub из формы на vba

#35869448

Kirillka

Гость

Сделал так:

В модуле

Код: plaintext

Public CloseForm As Boolean

В Sub'e

Код: plaintext

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

Sub ...()
'код
CloseForm = False
'код
Form.Show
'закрытие Sub'a после нажатия (х) в форме
If CloseForm = True Then Exit Sub
'код
End Sub

В форме

Код: plaintext

1.
2.
3.

Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
CloseForm = True
End Sub

Спасибо всем кто помог.

...

Рейтинг:

0 / 0

14.03.2009, 19:37

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

как закрыть sub из формы на vba

#35872049

Krasnaja Shapka

Гость

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

Код: plaintext

1.
2.

Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

...

Рейтинг:

0 / 0

16.03.2009, 16:36

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как закрыть sub из формы на vba

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

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

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

start [/forum/topic.php?fid=60&msg=35859668&tid=2161255]:	0ms
get settings:	6ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	129ms
get topic data:	8ms
get forum data:	2ms
get page messages:	42ms
get tp. blocked users:	1ms
others:	194ms

total:	400ms

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