Private Sub Кнопка0_Click(). Dim basa As Database, nabor As Recordset

Dim basa As Database, nabor As Recordset

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Товары", dbOpenSnapshot)

With nabor

.FindFirst "Цена=100"

MsgBox!Товар & " " &!Цена & " " &!Поставщик

End With

End Sub

Результат:

Пример:

Найти последнюю запись в наборе данных, удовлетворяющих условию:

Цена=100 руб. из таблицы «Товары», приведённой выше.

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

Dim basa As Database, nabor As Recordset

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Товары", dbOpenSnapshot)