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

Set basa = CurrentDb

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

nabor.Move 2 ‘указатель записи смещаем на 2 позиции

MsgBox nabor.AbsolutePosition ‘вывод номера текущей записи

Глава 20. Применение методов Find

Пример:

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

Цена=100 руб. из таблицы «Товары».

Таблица выглядит следующим образом: