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