Иллюстрированный самоучитель по Access 2002

       

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


Private Sub Form_Load()

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

End Sub

При выборе даты в календаре должно меняться значение поля "Дата". Поэтому нужно написать процедуру обработки события

ПослеОбновления

(AfterUpdate) элемента управления

Календарь.

Как и предыдущая, эта процедура состоит из одного оператора. Однако в ней показано, что для ссылки на значение элемента Календарь необязательно используется свойство value.

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

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

End Sub

Еще шесть процедур должны обрабатывать событие



НажатиеКнопки

(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

Поскольку год и месяц теперь можно переключать с помощью кнопок, вы можете убрать из заголовка календаря раскрывающиеся списки, для чего откройте вкладку

Общие

(General) диалогового окна свойств объекта и снимите флажок

Выбор месяца и года

(Month/Year Selectors).

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



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