Πίνακας περιεχομένων
Σε αυτό το σεμινάριο, θα μάθετε πώς μπορείτε να βρείτε την πρώτη εγγραφή που πληροί ορισμένα κριτήρια εισαγωγής.
Έχουμε έναν πίνακα που ονομάζεται ProductsT που φαίνεται παρακάτω:
Χρήση του FindFirst με VBA
Η σύνταξη της μεθόδου .FindFirst είναι έκφραση. FindFirst (κριτήρια) όπου:
έκφραση - το Recordset ενδιαφέροντος.
Κριτήρια - μια συμβολοσειρά που χρησιμοποιείται για τον προσδιορισμό μιας εγγραφής. Είναι παρόμοιο με τη ρήτρα WHERE στο SQL.
Σημείωση: Πρέπει να χρησιμοποιήσουμε τη μέθοδο Recordset.FindFirst σε συνδυασμό με μια δήλωση IF ELSE και τη μέθοδο .NoMatch. Αυτό λέει στην VBA τι να κάνει εάν βρεθεί αντιστοιχία.
Ο παρακάτω κώδικας θα σας δείξει πώς μπορείτε να βρείτε το πρώτο όνομα προϊόντος του οποίου η τιμή είναι μεγαλύτερη από $ 15:
Sub UsingFindFirst () Dim ourDatabase As Database Dim ourRecordset As Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) With ourRecordetPrift> " MsgBox "No Match Found" Else MsgBox "Το προϊόν βρέθηκε και το όνομά του είναι:" & ourRecordset! ProductName End If End with DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Το αποτέλεσμα είναι: