End Sub. Dim rs As DAO.Recordset

End Wtth

Loop

MoveNext

MoveFirst

With rs

Dim db As Database

Dim rs As DAO.Recordset

Set db = CurrentDb

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

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

Do While.EOF = False

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

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

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

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

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

Дата добавления: 2014-01-07