Настольная СУБД Access 2002

         

Окончательный вид...



Рис. 15.42. Окончательный вид формы, содержащей элемент управления Календарь в режиме Конструктора

Private Sub Form_Load()

Календарь.Object.Value = Date



End Sub

  1. При выборе даты в календаре должно меняться значение поля "Дата". Поэтому нужно написать процедуру обработки события ПослеОбновления (AfterUpdate) элемента управления Календарь. Как и предыдущая, эта процедура состоит из одного оператора. Однако в ней показано, что для ссылки на значение элемента Календарь необязательно используется свойство value.

    Private Sub Календарь_АfterUpdate() 'обновление поля "Дата"

    txtDate = Format(Календарь.Object.Value, "dd/mm/yy")

    End Sub

  2. Еще шесть процедур должны обрабатывать событие НажатиеКнопки (Click) для каждой из шести кнопок. В этих процедурах используются шесть методов объекта Календарь:

    Private Sub Предыдущая_неделя_С11сК() Календарь.Obj ect.PreviousWeek

    End Sub

    Private Sub Предыдущий_год_С11сК() Календарь.Obj ect.NextYear

    End Sub

    Private Sub Предьщущий_месяц_С1ick () Календарь.Obj ect.PreviousMonth

    End Sub

    Private Sub Следующая_неделя_С11сk() Календарь.Object.NextWeek

    End Sub

    Private Sub Следующий_год_С11сК() Календарь . Object. NextYear

    End Sub

    Private Sub Следующий_месяц_С11сК() Календарь.Object.NextMonth

    End Sub

  3. Поскольку год и месяц теперь можно переключать с помощью кнопок, вы можете убрать из заголовка календаря раскрывающиеся списки, для чего откройте вкладку Общие (General) диалогового окна свойств объекта и снимите флажок Выбор месяца и года (Month/Year Selectors).
  4. Сохраните форму, дав ей имя "Календарь". Окончательный вид формы представлен на рис. 15.43.

Рис. 15.43. Окончательный вид формы с элементом управления Календарь



Содержание раздела