У цьому посібнику ви дізнаєтесь, як знайти перший запис, який відповідає певним критеріям введення.
Нижче наведено таблицю під назвою ProductsT:
Використання FindFirst з VBA
Синтаксис методу .FindFirst - вираз. FindFirst (критерії), де:
вираз - Набір записів, що представляє інтерес.
Критерії - рядок, який використовується для ідентифікації запису. Він подібний до пункту WHERE у SQL.
Примітка: Ми повинні використовувати метод Recordset.FindFirst у поєднанні з оператором IF ELSE та методом .NoMatch. Це повідомляє VBA, що робити, якщо знайдено відповідність.
Наступний код покаже вам, як знайти першу назву товару, ціна якої перевищує 15 доларів США:
Sub UsingFindFirst () Затемнити нашу базу даних як базу даних Затемнити наш запис як набір записів Встановити нашу базу даних = поточний DB встановити наш рекордсет = нашу базу даних.OpenRecordset ("ProductsT", Тип: = RecordsetTypeEnum.dbOpenDynaset) за допомогою нашого Запису. MsgBox "Відповідності не знайдено" Інше MsgBox "Продукт знайдено і його назва така:" & ourRecordset! ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Результат такий:
