Достъп до VBA Findfirst

В този урок ще научите как да намерите първия запис, който отговаря на определени критерии за въвеждане.

Имаме таблица, наречена ProductsT, показана по -долу:

Използване на FindFirst с VBA

Синтаксисът на метода .FindFirst е expression.FindFirst (критерии), където:

израз - Рекордът на интереси.

Критерии - низ, който се използва за идентифициране на запис. Подобно е на клаузата WHERE в SQL.

Забележка: Трябва да използваме метода Recordset.FindFirst в комбинация с IF ELSE изявление и метода .NoMatch. Това казва на VBA какво да прави, ако се намери съвпадение.

Следният код ще ви покаже как да намерите първото име на продукта, чиято цена е по -голяма от $ 15:

Sub UsingFindFirst () Dim ourDatabase As Database Dim ourRecordset As Recordset Set ourDatabase = CurrentDb Задайте ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Тип: = RecordsetTypeEnum.dbOpenDynaset) С ourRecordset .FindFirst "ProductPrice" MsgBox "Не е намерено съвпадение" Друг MsgBox "Продуктът е намерен и името му е:" & ourRecordset! ProductName Край, ако завършва с DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub 

Резултатът е: