double arrow

With nabor


.FindLast "Цена=100"

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

End With

End Sub

Результат:

Пример:

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

Цена>60

Исходная таблица:

 
 


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

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


Сейчас читают про: