Списки навчальних груп можна скласти використовуючи дані таблиці Табл_Студент (Номер_Група, Залік_Книжка, ПІБ_Студент, Дом_Адрес).
Склад певної навчальної групи можна отримати в результаті запиту до Табл_Студент. У запиті необхідно вказати номер потрібної групи, наприклад ІУСТ-002, і необхідні поля - Залік_Книжка, ПІБ_Студент. Звичайно у такому випадку створюється запит з параметрами. Кожного разу при запуску такого запиту на екран виводиться діалогове вікно, в яке необхідно ввести номер групи. Але це не зручно: по-перше ввід з клавіатури тексту потребує певного часу, по друге - при помилці в номері результатом запиту буде пуста таблиця. Значно зручніше вибирати номер групи зі списку. Для цього необхідно створити дві форми: перша – з номерами груп, друга – з прізвищами студентів, які навчаються у обраній на першій формі групі.
Запит_Склад_Групи
SELECT Табл_Студент.Номер_група, Табл_Студент.Залік_Книжка, Табл_Студент.ПІБ_Студент
FROM Табл_Студент;
Рисунок 33
Спочатку необхідно створити запит Запит_Склад_Групи і у відповідності з ним форму Форм_Склад_Групи (рис.33).
Рисунок 35
Рисунок 34
Наступною створено форму Форм_Вибір_Групи (рис. 34) зі списком. До списку приєднано код на VBA, який дозволяє обирати номер певної групи і після підтвердження у діалозі (рис. 35) виводити список групи на форму Форм_Склад_Групи (рис. 33).
Код на 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