Índice
Neste tutorial, você aprenderá como localizar o primeiro registro que atenda a determinados critérios de entrada.
Temos uma tabela chamada ProductsT mostrada abaixo:
Usando FindFirst com VBA
A sintaxe do método .FindFirst é expression.FindFirst (critérios) onde:
expressão - o conjunto de registros de interesse.
Critérios - uma string usada para identificar um registro. É semelhante à cláusula WHERE no SQL.
Observação: Temos que usar o método Recordset.FindFirst em combinação com uma instrução IF ELSE e o método .NoMatch. Isso informa ao VBA o que fazer se uma correspondência for encontrada.
O código a seguir mostrará como encontrar o primeiro nome do produto cujo preço é maior que $ 15:
Sub UsingFindFirst () Dim ourDatabase As Database Dim ourRecordset As Recordset Definir ourDatabase = CurrentDb Definir ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) Com ourRecordset. MsgBox "Nenhuma correspondência encontrada" Else MsgBox "O produto foi encontrado e seu nome é:" & ourRecordset! ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
O resultado é:
