VBA Findfirst'e erişin

Bu öğreticide, belirli bir giriş kriterini karşılayan ilk kaydı nasıl bulacağınızı öğreneceksiniz.

Aşağıda gösterilen ProductsT adlı bir tablomuz var:

FindFirst'i VBA ile Kullanma

.FindFirst yönteminin sözdizimi ifadedir.FindFirst(kriter) burada:

ifade - ilgilenilen Kayıt Kümesi.

Ölçüt - bir kaydı tanımlamak için kullanılan bir dize. SQL'deki WHERE yan tümcesine benzer.

Not: Recordset.FindFirst yöntemini bir IF ELSE deyimi ve .NoMatch yöntemiyle birlikte kullanmalıyız. Bu, VBA'ya bir eşleşme bulunursa ne yapacağını söyler.

Aşağıdaki kod, fiyatı 15 dolardan fazla olan ilk ürün adını nasıl bulacağınızı gösterecektir:

Sub UseFindFirst() Veritabanını Dim OurRecordset As Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset("ProductsT", Type:=RecordsetTypeEnum.dbOpenDynaset) OurRecordset ile .FindFirst "ProductPricePerUnit" Then If "No>PerUnit" & "ProductsT", Type:=RecordsetTypeEnum. MsgBox "Eşleşme Bulunamadı" Else MsgBox "Ürün bulundu ve adı: " & bizimRecordset!ProductName End If End If DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub 

Sonuç: