Прикрепленный календарь???

[Agapov_stas]

Добрый вечер,уважаемые!
Подскажите...
В форме возле поля"Дата ожидаемого выполнения" прикрепил кнопку(открывается календарь).В данной форме ввел код:

Private Sub Кнопка38_Click()
    DoCmd.OpenForm "DatePicker"
End Sub

Календарик открывается,выбираю дату..но она не заносится в поле"Дата ожидаемого выполнения"....
Почему?
В форме "DatePicker"(это форма календаря) ввожу код:

Private Sub Form_Load()

 DatePicker.Object.Value = Date
 
 End Sub

Private Sub DatePicker_Click()

    Forms!Формааааааа!Дата = Format(DatePicker.Object.Value, "dd/mm/yyyy")

        DoCmd.Close acForm, "DatePicker"
        
        Forms![Формааааааа].Refresh
End Sub

Но не работает..Что не так сделал????

[Teslenko_EA]

Здравствуйте Agapov_stas.
в этой ситуации реально сможет помочь - обращение к документации или к автору используемого календаря.
Мнение : свойства таких "инструментов" мало кому доступны, и думаю мало кому интересны.
Существуют контролы разработки Microsoft: MonthView - календарь, DTPicker - выпадающий календарь из mscomct2.ocx, в худшем случае Calendar - из mscal.ocx (именуемый ...Календарь 11.0). Их свойства и методы документированы и ответ на вопрос "Что не так сделал?" можно получить в документации, не выкладывая вопрос, без гарантии а с надеждой "вдруг знают".
Евгений.

[Agapov_stas]

Спасибо за совет!(жаль только мне эт не очень помогло)
MonthViewControl и DataPicker (с описанием)у меня есть!вопрос в том как его "присоединить" к моему полю???я пытался,но ничего не получилось,и даже знаю почему,-надо больше работать!

[Teslenko_EA]

Здравствуйте Agapov_stas.
Заявление "надо больше работать" не правильно, работа ради работы не нужна, она нужна только для получения результата, а это знания(!) + работа.
На первом месте должны быть знания, в том числе полученные во время выполнения работы, я придерживаюсь такой философии.
Возможно Вам поможет образец использования контролов.
Евгений

[Agapov_stas]

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

[Agapov_stas]

Все,-справился,тепеь работает..Кому понадобится вот код:

Option Compare Database
Option Explicit

Private Sub Переключатель42_Click()
On Error Resume Next
Dim strDate As String
  strDate = SelectDay(Nz(Me.Дата_ожидаемого_выполнения, ""))
  If strDate <> "" Then Me.Дата_ожидаемого_выполнения = strDate
End Sub

[Agapov_stas]

Пасиб за советы,-Teslenko_EA

[Teslenko_EA]

Здравствуйте Agapov_stas.
"Образец...не открывается..." возможно в Вашей системе отсутствует библиотека MSCOMCT2. Если интерес к этой теме не пропал предлагаю для "экспериментов" библиотеку.
Евгений.

[Agapov_stas]

Если интерес к этой теме не пропал

Конечно не пропал!:-)
я ведь учусь,советы для меня оч полезны!.пасиб..