Avaa VBA Findfirst

Tässä opetusohjelmassa opit löytämään ensimmäisen tietueen, joka täyttää tietyt syöttökriteerit.

Meillä on alla oleva taulukko nimeltä ProductsT:

FindFirstin käyttö VBA: n kanssa

.FindFirst -menetelmän syntaksi on lauseke.FindFirst (ehdot), jossa:

ilmaisu - kiinnostava tietue.

Kriteerit - merkkijono, jota käytetään tietueen tunnistamiseen. Se on samanlainen kuin WHERE -lauseke SQL: ssä.

Huomautus: Meidän on käytettävä Recordset.FindFirst -menetelmää yhdessä IF ELSE -lausekkeen ja .NoMatch -menetelmän kanssa. Tämä kertoo VBA: lle, mitä tehdä, jos osuma löytyy.

Seuraava koodi näyttää, kuinka löydät ensimmäisen tuotteen nimen, jonka hinta on yli 15 dollaria:

Sub UsingFindFirst () Dim ourDatabase kuin tietokanta Dim ourRecordset As Recordset Aseta ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) meidänRecordset. MsgBox "Ei vastaavuutta" Else MsgBox "Tuote on löydetty ja sen nimi on:" & ourRecordset! ProductName End If End with DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub 

Tulos on: