Содержание
В этом руководстве вы узнаете, как найти первую запись, отвечающую определенным критериям ввода.
У нас есть таблица ProductsT, показанная ниже:
Использование FindFirst с VBA
Синтаксис метода .FindFirst - выражение.FindFirst (условие), где:
выражение - интересующий набор записей.
Критерии - строка, которая используется для идентификации записи. Это похоже на предложение WHERE в SQL.
Примечание: Мы должны использовать метод Recordset.FindFirst в сочетании с оператором IF ELSE и методом .NoMatch. Это сообщает VBA, что делать, если найдено совпадение.
Следующий код покажет вам, как найти первое название продукта, цена которого превышает 15 долларов:
Sub UsingFindFirst () Dim ourDatabase as Database Dim ourRecordset as Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) With ourRecordsetTypeEnum.dbOpenDynaset) With ourRecordsetTypeEnum.dbOpenDynaset) With ourRecordset. MsgBox "Совпадений не найдено" Else MsgBox "Продукт найден, и его имя:" & ourRecordset! ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Результат: