Как передать управление из одного объекта в другой?

[wolf05632]

Народ, нужен хелп! Поясню: есть форма. на форме календарь и командная кнопка. При инициализации формы присваиваю календарю текущую дату(соответственно, кнопочка с числом на календаре нажата). НО! если выбрать другой месяц, то кнопочка с числом на календаре отожмется и программа выдаст ошибку(из-за того, что дата календаря = фэлс). Так вот. Нужно проверить после нажатия командной кнопки(соответственно, объект команд баттон, событие клик), что дата календаря = тру(это легко). Но как теперь передать управление из команд баттон клик в начало инициализации формы (объект юзерформ инициализ...), что б программа, как бы, заново стартовала?????
Я еще дурак. ТАк что не сильно пинайте. Думаю, объяснил ситуацию понятно.

[viter.alex]

инициализацию календаря вывести в отдельную процедуру и вызывать её и при загрузке формы и при клике на кнопке.

[wolf05632]

Спасибо, но боюсь, что не покатит. В коде (команд баттон клик) после нажатия кнопки в ворд выводится текст. Ну переинициализируется календарь после нажатия на кнопку, но код все равно продолжит выполняться, соответственно выведется и текст, а мне этого не надо, т.к. он будет не правильный (с нулями и пробелами вместо даты).

[wolf05632]

Ну что ж... Сам спросил, сам и отвечу: форму-то мы инициализировали и она от нас никуда не денется(если специально не закроем). Поэтому, в коде, который выполняется при клике, надо прописать:

private sub com_but click()
if calendar.day = false then goto error
.....
строки кода(вывод текста)
.....
exit sub
error:
msgbox("Ошибка")
end sub

Вот и усе!

ЗЫ: кстати, а что нужно прописать в кнопке "выход", чтоб при ее нажатии закрылась форма?

[Ципихович Эндрю]

Unload Me 'оператор Unload убирает указанный объект из памяти. Объект с именем Me, имеет в VBA специальный смысл. В данном случае оно означает форму и весь её про-граммный код
зачем goto error
а если msgbox("Ошибка") и на выход??

[wolf05632]

Дык не надо на выход)) Надо день на календаре выбрать! про закрытие формы я ради любопытства спросил.

[Ципихович Эндрю]

как не надо, посмотрите в Ваш код, после msgbox("Ошибка")
что идёт? - end sub
А Вы говорите не надо
Ладно проехали

[wolf05632]

Как же Вам объяснить?.. Давайте хронологически: Сначала инициализируется форма календарем и кнопкой (и с формой ничего не происходит, если специально ее не закрыть), затем, если при выборе даты мы сменим месяц, то кнопочка с днем отожмется(то есть даты в программе, как бы нет), затем, если нажмем на кнопку(она выводит текст в зависимости от даты), то получим ошибку.
ТАК ВОТ, что б текст не печатался, если нет даты, то мы просто пропускаем ВЕСЬ код, который должен был бы выполняться. Соответственно, выскакивает месаджбокс с сообщением "установите день". Мы его закрываем по крестику. НО ФОРМА С КАЛЕНДАРЕМ ВСЕ ЭТО ВРЕМЯ ВИСЕЛА И ПРОДОЛЖАЕТ ВИСЕТЬ С ОТЖАТОЙ КНОПКОЙ ДНЯ НА КАЛЕНДАРЕ!!! Соответственно, мы, исправляя ошибку, выбираем день на календаре и ОПЯТЬ ЖМЕМ КНОПКУ "выполнить". ТЕКСТ ПЕЧАТАЕТСЯ - ВСЕ ДОВОЛЬНЫ)))

[viter.alex]

Я бы менял активность кнопки (Enable) в зависимости от того выбрана дата или нет. У календаря, (кстати, какой именно календарь вы используете?) должно быть событие DateChange или как-то так. Так вот в это событие и нужно прописать, что если даты нет, то кнопка не активна.

com_but.Enabled = calendar.day

В этом случае пользователь просто не сможет нажать кнопку, если дата не выбрана. Можно для ясности ещё и подсказку для кнопки сделать, что нужно выбрать дату. Как-то так.

[Ципихович Эндрю]

если это в Офисе, файл прикрепите пжл