Создание форм, элементов управления, изменения свойств объектов (Лабораторная работа № 4), страница 3

Создайте ленточную форму, основанную на таблице УчебныйГод, и измените значения следующих свойств:

Надписи формы

В заголовке формы УчебныеГода поместите надписи, установите необходимое значение свойства Подпись и измените значения следующих свойств надписей:

Текстовые поля формы

В области данных формы УчебныеГода поместите текстовые поля, установите необходимое значение свойства Имя и Данные. Измените значения следующих свойств текстовых полей:

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

Для создания элемента управления типа DTPicker выберите на Панели элементов кнопку Другие элементы и в открывшемся списке выберите Microsoft Date and Time Picker Control, version 6.0.

В качестве значения свойства Данные для элементов управления типа DTPicker выберите поля Начало и Конец. Установите значение свойства MinDate равным 01.09.95.

Модуль формы

Модуль формы УчебныеГода содержит команды передачи кода выбранного учебного года в главную форму и обновления списков на других формах, которые позволяют открыть форму УчебныеГода, при закрытии формы УчебныеГода.

Option Compare Database

Option Explicit

'процедура обработки события перехода на другую запись

Private Sub Form_Current()

'передаёт значение кода группы с текущей формы в Главную

Forms!Главная!КодГода = Me.КодГода

'вычисляет значение кода первой группы выбранного учебного года

'выбранной специальности и передаёт его в Главную форму

Forms!Главная!КодГруппы = ПерваяГруппа

End Sub