Інформація щодо кафедр факультету

Табл_Кафедра

Код_Кафедра

Назва_Кафедра

Табл_Викладач

Номер_Викладач

ПІБ_Викладач

Код_Кафедра

Посада

Звання

Рисунок 47

Інформація щодо кафедр факультету (назва кафедри, викладацький склад). Така інформація не міститься в жодній окремій таблиці бази даних, але її можна одержати з таблиць Табл_Кафедра і Табл_Викладач, які зв’язані по полю Код_Кафедри (рис. 47).

Запит_Склад_Кафедра SELECT Табл_Кафедра.Назва_Кафедра, Табл_Викладач.ПІБ_Викладач, Табл_Викладач.Посада, Табл_Викладач.Звання FROM Табл_Кафедра INNER JOIN Табл_Викладач ON Табл_Кафедра.Код_Кафедра = Табл_Викладач.[Код_Кафедра];

Рисунок 48

Спочатку необхідно створити запит Запит_Склад_Кафедраі у відповідності до нього форму Форм_Склад_Кафедра (рис.48). Для того щоб назва кафедри не повторювалася на формі у кожному рядку її винесено у розділ Заголовку форми.

Наступною створено форму Форм_Вибір_Кафедра (рис. 49) зі списком. До списку приєднано код на VBA, який дозволяє обирати назву кафедри і після підтвердження у діалозі (рис. 50) виводити список викладачів, які працюють на вибраній кафедрі, на форму Форм_Склад_Кафедра (рис. 48). Оскільки ця форма призначена для перегляду інформації, то всі її поля заблоковані для редагування.

Для відображення списку груп на Форм_Вибір_Кафедра до нього приєднано код на VBA.

Код на VBA до списку на формі Форм_Вибір_Кафедра. Private Sub Список2_AfterUpdate() Dim Otvet As String Otvet = MsgBox("Вас цікавить кафедра " & Me![Список2] & " ?", vbOKCancel) If Otvet = vbCansel Then Exit Sub End If DoCmd.OpenForm "Форм_Склад_Кафедра", , , "Табл_Кафедра!Назва_Кафедра=Forms!Форм_Вибір_Кафедра![Список2]" Exit Sub End SubEnd Sub

Рисунок 50

Рисунок 49

Читайте також:

<== попередня сторінка	\|	наступна сторінка ==>
Інформація про предмети що має вивчати кожний студент	\|	Інформація щодо викладачів

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.003 сек.