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

'обновление поля КодДолжности форме Преподаватели

'если форма не загружена, выходит из процедуры

Forms.Преподаватели.КодДолжности.Requery

End Sub

Форма “Преподаватели”

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

Создайте ленточную форму, основанную на таблице Преподаватели.

Свойства элементов управления

Для события Нажатие кнопки элемента управления КнопкаДожность выберите макрос ОткрытьДолжности.

Для поля со списком КодДолжности установите значение следующих свойств:

Модуль формы

Модуль формы Должности содержит команды закрытия текущей формы и обновления поля КодПреподавателя в форме Дисциплины.

Форма “Предметы”

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

Создайте ленточную форму, основанную на таблице Предметы.

Модуль формы

Модуль формы Предметы содержит команды закрытия текущей формы и открытия формы План.

Option Compare Database

Option Explicit

'процедура обработки события щелчка на кнопке Закрыть

Private Sub КнопкаЗакрыть_Click()

DoCmd.Close                           'закрытие текущей формы

End Sub

'процедура обработки события щелчка на кнопке План

Private Sub КнопкаПлан_Click()

DoCmd.Close                           'закрытие текущей формы

DoCmd.OpenForm "План"         'открытие формы План

End Sub

Форма “оЦЕНКитИПЫ”

Форма ОценкиТипы предназначена для отображения существующих и ввода оценок принятых в учебном заведении. Форму можно открыть из формы Оценки.

Создайте ленточную форму, основанную на таблице ТипыОценок.

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

Для компактного отображения надписей Явился, Отлично и др. установите значения следующих свойств:

Модуль формы

Модуль формы ОценкиТипы содержит команды закрытия текущей формы и обновления полей  КодОценки в подчинённых формах Должники и Оценки подчинённой формы Дисциплины формы Оценки.

Option Compare Database

Option Explicit

'процедура обработки события щелчка на кнопке Закрыть

Private Sub КнопкаЗакрыть_Click()

DoCmd.Close                  'закрытие текущей формы

End Sub

'процедура обработки события выгрузки текущей формы

Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next            'при возникновении ошибки передаёт управление на следующую строку

'обновление полей со списком КодОценки в форме Оценки, если она открыта

Forms.Оценки.Дисциплины.Form.Оценки.Form.КодОценки.Requery

Forms.Оценки.Дисциплины.Form.Должники.Form.КодОценки.Requery

End Sub

Контрольные  вопросы

1.  Создание формы

2.  Свойства формы

3.  Свойства текстового поля

4.  Свойства поля со списком

5.  Свойства кнопки

6.  Свойства элемента управления DTPicker

7.  Обновление элемента управления

8.  Функции по подмножеству: DLookUp, DCount, DMax, DMin, DAvg, DFirst, DLast, Dsum.