Календарик на форме

[segail]

Все-таки как открыть календарь?

Private Sub CommandButton1_Click()
Form_SelectDate.Show = Get_Date(Now)
End Sub

Не открывает.

[segail]

При клике в календаре по копке Отмена, необходимо чтобы восстанавливались фактическая дата, год, м-ц и время.

[EducatedFool]

Сообщение от segail

Все-таки как открыть календарь?

Private Sub CommandButton1_Click()
Form_SelectDate.Show = Get_Date(Now)
End Sub

Не открывает.

Неудивительно. Зачем так издеваться над синтаксисом VBA?
Или Вы думаете, что VBA обязан принимать к исполнению любой понятный Вам набор символов?

При клике в календаре по копке Отмена, необходимо чтобы восстанавливались фактическая дата, год, м-ц и время.

А что, разве в приведённом примере происходит как-то иначе?

[eda]

Скажите, как сделать, чтобы dtpicker показывал только время и без секунд? Я записала в CustomFormat "HH:mm", но секунды никуда не делись

[SAS888]

В свойствах DTPicker установите CustomFormat = "hh:mm" и Format = dtpCuctom.

[eda]

Спасибо большое!

[segail]

Как после выполнение команды закончить выбор даты и закрыть форму календаря,

Private Sub Cmd_Select_Click()
    'Команда - закончить выбор даты и закрыть форму
    SelectedDate = CStr(DateValue(dt_1))
    Unload Me
End Sub

выполнить код по отношению к той кнопки, которой был открыт календарь.

Private Sub CommandButton6_Click()
    Get_Date (Now)
End Sub

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

[agregator]

Всем здравствуйте. Переделал календарик для себя (во влажении).
Скажите можно сделать так:
включить календарик, менять ячейки и вставлять даты из него (нажимая Ok), чтобы календарик неисчезал пока сам не выкличишь (кнопкой Отмена)?

[KOSTIK1]

Что то типа этого?

Тестируй.

[agregator]

KOSTIK1, спасибо, то что надо, только не показывает время. Я изменил код так:
Private Sub Cmd_Select_Click()
'Команда - закончить выбор даты и закрыть форму
'SelectedDate = CStr(DateValue(dt_1))
ActiveCell = dt_1
'Unload Me
End Sub