 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Private Sub Кнопка0_Click()
|
Читайте также: |
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)
With nabor
.FindLast "Цена=100"
MsgBox!Товар & " " &!Цена & " " &!Поставщик
End With
End Sub
Результат:
Пример
Найти все записи в наборе, удовлетворяющие условию:
Цена>60
Исходная таблица:
 |
Использование метода FindNext, который находит в наборе записей следующую, удовлетворяющую условиям и делает её текущей.
Поиск по сайту: