Інформація про предмети що має вивчати кожний студент
Інформація про предмети що має вивчати кожний студент (Прізвище студента, назва предмету, викладач, вид занять, форма контролю). Потрібну інформацію не містить жодна окрема таблиця бази даних, але її можна одержати з чотирьох зв’язаних таблиць: Табл_Викладач,Табл_Предмет,Табл_План, Табл_Студент, які зв’язані по полю Код_Предмет(рис. 43).
Табл_Предмет
Код_Предмет
Номер_Викладач
Назва_Предмет
Вид_Занять
Вид_Контролю
Табл_Викладач
Номер_Викладач
ПІБ_Викладач
Код_Кафедра
Посада
Звання
Табл_План
Номер_Група
Код_Предмет
Рисунок 43
Табл_Студент
Номер_Група
Залік_Книжка
ПІБ_Студент
Дом_Адрес
Рисунок 44
Спочатку необхідно створити запит Запит_Студент_Предметі у відповідності до нього форму Форм_Студент_Предмет (рис.44). Для того щоб прізвища студентів не повторювався на формі у кожному рядку його винесено у розділ Заголовку форми.
Запит_Студент_Предмет
SELECT Табл_Студент.ПІБ_Студент, Табл_Предмет.Назва_Предмет, Табл_Викладач.ПІБ_Викладач, Табл_Предмет.Вид_Занять, Табл_Предмет.Вид_Контролю
FROM (Табл_Викладач INNER JOIN Табл_Предмет ON Табл_Викладач.Номер_Викладач = Табл_Предмет.Номер_Викладач) INNER JOIN (Табл_Студент INNER JOIN Табл_План ON Табл_Студент.Номер_група = Табл_План.Номер_Група) ON Табл_Предмет.Код_предмет = Табл_План.Код_Предмет;
Наступною створено форму Форм_Вибір_Студент_Предмет (рис. 45) зі списком. До списку приєднано код на VBA, який дозволяє обирати прізвище студента і після підтвердження у діалозі (рис. 46) виводити перелік предметів, які вивчає вибраній студент, на форму Форм_Студент_Предмет (рис. 44). Оскільки ця форма призначена для перегляду інформації, то всі її поля заблоковані для редагування.
Рисунок 46
Рисунок 45
Код на 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 Sub
Для відображення списку груп на Форм_Вибір_Студент_Предмет до нього приєднано код на VBA.
