Dim basa As Database, nabor As Recordset, s As String. Set nabor = basa.OpenRecordset("Товары", dbOpenSnapshot)

Set basa = CurrentDb

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

With nabor

.FindFirst "Цена>60"

Do Until.NoMatch

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

.FindNext "Цена>60"

Loop

End With

MsgBox s

End Sub

Результат:

Использование метода FindPrevious, который находит в наборе записей предыдущую, удовлетворяющую условиям и делает её текущей.

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