Создание всплывающего календаря

1. Откройте учебную базу данных Борей.mdb.
2. Создать новую форму на основе таблицы Orders и сохраните его как frmOrderDateForm.
3. Добавьте поле со списком в форму и задайте для свойства ControlSource поля со списком для поля ДатаРазмещения.
4. Вставьте в форму элемент управления Calendar. 
   
   Примечание: чтобы вставить элемент управления Calendar, щелкните элемент управления ActiveX, в меню Вставка, а затем выберите элемент управления Календарь или календарь управления 8.0 в зависимости от версии Access, 7.0 или 97.
5. Задайте следующие свойства для элемента управления Calendar:

      Name: Calendar
      Visible: No
        

6. Добавьте следующий код в событие MouseDown списком OrderDate:
   Private Sub OrderDate_MouseDown(Button As Integer, _
                                     Shift As Integer, X As Single, _
                                     Y As Single)
   ' Show Calendar and set its date.
      Calendar.Visible = True
      Calendar.SetFocus
      ' Set to today if OrderDate has no value.
      Calendar.Value = IIf(IsNull(OrderDate), Date, OrderDate.Value)
   End Sub
     

7. Добавьте следующий код в событие Click элемента управления Calendar. 
   
   Примечание: Необходимо открыть один из списка событий, а затем измените это событие с событием Click.
   Private Sub Calendar_Click()
      ' Set OrderDate to the selected date and hide the calendar.
      OrderDate.Value = Calendar.Value
      OrderDate.SetFocus
      Calendar.Visible = False
   End Sub
        

   
   
8. Сохраните форму и переключитесь в режим формы.

Calendar - имя календаря в свойствах
OrderDate - имя поля в свойствах

Вы увидите, что при нажатии кнопки со стрелкой в поле OrderDate, элемент управления Calendar будет виден и устанавливается на дату в поле. После выбора даты из календаря, календарь исчезнет и будет выбранную дату в поле.Если поле OrderDate не имеет значения, в календаре будет показано на текущую дату.