Запит_Студент
SELECT Табл_Студент.ПІБ_Студент
FROM Табл_Студент
ORDER BY Табл_Студент.ПІБ_Студент;
Загальну інформація щодо кожного студента (Прізвище, ім’я та по батькові, номер залікової книжки, адреса) можна також отримати з Табл_Студентза допомогою відповідного запиту. Як і у попередньому випадку зручно вибирати прізвище студента зі списку. Для цього необхідно створити дві форми: перша – прізвищами студентів, друга – з інформацією щодо студента обраного на першій формі.
Спочатку створено форму Форм_Студент_Перегляд (рис.36), джерелом даних для якої є Табл_Студент. Оскільки ця форма призначена тільки для перегляду даних, то всі її поля заблоковані для редагування.
Наступною створено форму Форм_Вибір_Студент (рис. 37) зі списком. До списку приєднано код на VBA, який дозволяє обирати прізвище певного студента і після підтвердження у діалозі (рис. 38) виводити інформацію про цього студента на форму Форм_Студент_Перегляд (рис. 36).
Рисунок 38
Рисунок 37
Для відображення списку студентів на Форм_Студент_Вибір до нього приєднано код на 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 Sub
3. Інформація про предмети що має вивчати кожна студентська група.
Табл_Предмет
Код_Предмет
Номер_Викладач
Назва_Предмет
Вид_Занять
Вид_Контролю
Табл_Викладач
Номер_Викладач
ПІБ_Викладач
Код_Кафедра
Посада
Звання
Табл_План
Номер_Група
Код_Предмет
Рисунок 39
Інформація про предмети що має вивчати кожна студентська група (номер групи, назва предмету, форма контролю, викладач). Потрібну інформацію не містить жодна окрема таблиця бази даних, але її можна одержати з трьох таблиць Табл_План, Табл_Предмет, які зв’язані по полю Код_Предмет, і Табл_Викладач, яка зв’язана з Табл_Предмет по полю Номер_Викладач(рис.39).
Запит_Група_Предмет
SELECT Табл_План.Номер_Група, Табл_Предмет.Назва_Предмет, Табл_Викладач.ПІБ_Викладач, Табл_Предмет.Вид_Занять, Табл_Предмет.Вид_Контролю
FROM (Табл_Викладач INNER JOIN Табл_Предмет ON Табл_Викладач.Номер_Викладач = Табл_Предмет.Номер_Викладач) INNER JOIN Табл_План ON Табл_Предмет.Код_предмет = Табл_План.Код_Предмет;
Спочатку необхідно створити запит Запит_Група_Предметі у відповідності до нього форму Форм_Група_Предмет (рис.40).
Для того щоб номер групи не повторювався на формі у кожному рядку його винесено у розділ Заголовку форми.
Рисунок 40
Наступною створено форму Форм_Вибір_Група_Предмет (рис. 41) зі списком. До списку приєднано код на VBA, який дозволяє обирати номер групи і після підтвердження у діалозі (рис. 42) виводити перелік предметів, які вивчаються у вибраній групі на форму Форм_Група_Предмет (рис. 40).
Рисунок 42
Рисунок 41
Код на 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.
