Tabla de contenido
En este tutorial, aprenderá a encontrar el primer registro que cumpla con ciertos criterios de entrada.
Tenemos una tabla llamada ProductsT que se muestra a continuación:
Usando FindFirst con VBA
La sintaxis del método .FindFirst es expression.FindFirst (criterios) donde:
expresión: el conjunto de registros de interés.
Criterios: una cadena que se utiliza para identificar un registro. Es similar a la cláusula WHERE en SQL.
Nota: Tenemos que usar el método Recordset.FindFirst en combinación con una instrucción IF ELSE y el método .NoMatch. Esto le dice a VBA qué hacer si se encuentra una coincidencia.
El siguiente código le mostrará cómo encontrar el primer nombre de producto cuyo precio sea superior a $ 15:
Sub UsingFindFirst () Dim ourDatabase As Database Dim ourRecordset As Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) With ourRecordset .FindFirst "ProductPrice". MsgBox "No se encontró ninguna coincidencia" Else MsgBox "El producto se ha encontrado y su nombre es:" & ourRecordset! ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
El resultado es:
