Mục lục
Trong hướng dẫn này, bạn sẽ học cách tìm bản ghi đầu tiên đáp ứng một tiêu chí đầu vào nhất định.
Chúng tôi có một bảng được gọi là ProductsT được hiển thị bên dưới:
Sử dụng FindFirst với VBA
Cú pháp của phương thức .FindFirst là biểu thức.FindFirst (tiêu chí) trong đó:
biểu thức - Tập bản ghi quan tâm.
Criteria - một chuỗi được sử dụng để xác định một bản ghi. Nó tương tự như mệnh đề WHERE trong SQL.
Ghi chú: Chúng ta phải sử dụng phương thức Recordset.FindFirst kết hợp với câu lệnh IF ELSE và phương thức .NoMatch. Điều này cho VBA biết phải làm gì nếu tìm thấy một kết quả phù hợp.
Đoạn mã sau sẽ chỉ cho bạn cách tìm tên sản phẩm đầu tiên có giá lớn hơn $ 15:
Sub usingFindFirst () Dim ourDatabase As Database Dim ourRecordset As Recordset Đặt ourDatabase = CurrentDb Đặt ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) Với ourRecordset .FindFirst "ProductPrice"> 15 "If. MsgBox "Không tìm thấy kết quả phù hợp" Khác MsgBox "Sản phẩm đã được tìm thấy và tên của nó là:" & ourRecordset! ProductName End If End With DoCmd. Đóng acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Kết quả là:
