Dim basa As Database, nabor As Recordset, zena1 As Currency
Set basa = CurrentDb
zena1 = Заданная_цена.Value
‘Переменной zena1 присваивается значение из текстового
‘поля с именем «Заданная_цена»
Set nabor = basa.OpenRecordset("Товары", dbOpenTable)
With nabor
Do Until.EOF ‘ Пока не достигнут конец файла
If MsgBox("Продолжать выборку?", vbYesNo, "ВЫБОРКА") = vbYes Then
If.Fields!Цена > zena1 Then
Товар.Value =.Fields!Товар ‘Вывод значений из таблицы в поля формы
Цена.Value =.Fields!Цена
Поставщик.Value =.Fields!Поставщик
Дата_поставки.Value =.Fields!Дата_поставки
End If
.MoveNext ‘Переход к следующей записи
Else
Exit Do ‘ Преждевременный выход из цикла
End If
Loop
Close ' Закрывает набор
End With
End Sub