Робота з набором записів таблиці

Перед написанням програм потрібно відкрити вікно текстового редактора VBA командами Модули ® Создать. У модулі зробити посилання на бібліотеки доступу до даних DAO і ADO. Для цього виконати команди Tools ® References і вибрати бібліотеки об'єктів так, як це показано на рис. 3.23.

 

Рис.3.23 - Вікно посилань для підключення бібліотек.

 

Приклад 1. Нехай є форма " Товары ", створена на основі однойменної таблиці в поточній базі даних. Необхідно підрахувати cумарну вартість кави. Для цього у формі створюється елемент керування з ім'ям Стоимость_кофе й кнопка Расчет стоимости (рис.3.24), під якою потрібно написати програму.

Private Sub Кнопка17_Click()

Dim db As Database

Dim rs As DAO.Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("Товары")

With rs

MoveFirst

Me![Стоимость_кофе] = 0

Do While.EOF = False

If.Fields("Марка") Like "Кава*" Then Me![“Стоимость_кофе”] = _

Me![“Стоимость_кофе”] +.Fields("Стоимость товара")

MoveNext

Loop

End Wtth

End Sub

 

Рис. 3.24 - Форма “Товары”

Приклад 2. Знайти й вивести на екран номер групи з максимальною кількістю студентів і середнім балом у групі більше 4,7 у таблиці " Группа ".

Private Sub Пошук_Номер_Групи()

Dim db As Database

Dim rs As DAO.Recordset, max As Single, n As Variant

Set db = CurrentDb

Set rs = db.OpenRecordset("ГРУППА")

With rs

MoveFirst

max =.Fields(1)

MoveNext

Do While.EOF = False

If.Fields(1) > max And.Fields(2) > 4.7 Then max =.Fields(1): n =.Bookmark

MoveNext

Loop

.Bookmark = n

MsgBox "Кількість студентів - " & max & Chr(13) _

& "Номер групи - " &.Fields(0)

End With

End Sub

Приклад 3. Використовуючи бібліотеку ADO у вікні модуля створити процедуру для заповнення даними поле “ Среднее ” таблиці “ Урожайність ” (рис.3.25).

 

Рис.3.25 - Структура таблиці “Урожайність”