Πώς να έχει πρόσβαση μια αναζήτηση VBA Στοιχειώδη Εγγραφή

Γνωρίζοντας πώς να ψάξει μέσω εγγραφών από έναν πίνακα βάσης δεδομένων χρησιμοποιώντας ένα ερώτημα στο Microsoft Office Access μπορείτε να εξοικονομήσετε χρόνο όταν ψάχνετε για συγκεκριμένο κείμενο σε μια στήλη. Visual Basic for Applications , επίσης γνωστή ως VBA , είναι μια γλώσσα προγραμματισμού που χρησιμοποιείται για την αυτοματοποίηση των εργασιών ρουτίνας στη Microsoft Access και άλλες εφαρμογές του MS Office . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιείται για το σχεδιασμό μικρές βάσεις δεδομένων . Ένα ερώτημα χρησιμοποιείται για την ανάκτηση πληροφοριών από έναν πίνακα βάσης δεδομένων . Οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . 2

Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " και στη συνέχεια επιλέξτε " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο " Εισαγωγή" και επιλέξτε το πεδίο
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο υποπρόγραμμα « Ενότητα ». :

Private searchRecords Sub ( )

Πατήστε " . Enter"
Η 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει το " ΤΥ " μεταβλητή ? θα το χρησιμοποιήσετε για να ανοίξετε ένα νέο εγγραφών :

Dim rst Όπως εγγραφών

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει το " dbs " μεταβλητή ? θα το χρησιμοποιήσετε για να προσδιορίσετε την τρέχουσα βάση δεδομένων :

Δημ. dbs Όπως Database

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει το " stringToSearch " μεταβλητή ? θα το χρησιμοποιήσετε για να κρατήσει τους χαρακτήρες που θα αναζητήσουν κατά την αναζήτηση της ψηφοφορίας:

Dim stringToSearch όπως String

Πληκτρολογήστε το παρακάτω, για να ρυθμίσετε την τρέχουσα βάση δεδομένων με τη βάση δεδομένων για χρήση σε αυτήν την υπορουτίνα :

Set dbs = CurrentDb
5

Πληκτρολογήστε το παρακάτω, για να καθορίσει τη σειρά που θα χρησιμοποιήσετε για να αναζητήσετε τις εγγραφές που επιστρέφονται από το ερώτημα , χρησιμοποιώντας το όνομα " Daniel" , όπως για παράδειγμα :

stringToSearch = " Daniel"
Η 6

Πληκτρολογήστε το παρακάτω, για να ανοίξει ένα νέο εγγραφών και της διερεύνησης του «Πελάτες» του πίνακα :

Set RST = dbs.OpenRecordset ( "SELECT * FROM Πελάτες Πελάτες »).

Επεξεργαστείτε την ακόλουθη γραμμή κώδικα στο ερώτημα άλλο πίνακα :

Set RST = dbs.OpenRecordset ( "SELECT

* FROM <. ? όνομα πίνακα > " )

Πληκτρολογήστε το παρακάτω για να μετακινηθείτε στην πρώτη καταγραφή των αποτελεσμάτων της ερώτησης :

rst.MoveFirst
Η 7

Πληκτρολογήστε τα ακόλουθα στο βρόχο μέσω του Recordset με προσαύξηση του θέση εγγραφών και την αναζήτηση για " Daniel" στη στήλη " Όνομα " :

Do While Not rst.EOF

Αν rst.Fields ( " Όνομα " ) . Value = stringToSearch τότε

MsgBox " βρέθηκε" & stringToSearch & " σε αριθμό ρεκόρ : " & rst.AbsolutePosition

rst.MoveLast

Else

rst.MoveNext

End If

Loop

Για να αναζητήσετε άλλα σύνολα χαρακτήρων σε μια διαφορετική στήλη , επεξεργαστείτε τις παρακάτω γραμμές κώδικα :

stringToSearch = "text "

Αν rst.Fields ( " στήλη " ) . Value = stringToSearch τότε
8

Πληκτρολογήστε τα ακόλουθα για να απελευθερώσει μεταβλητές από τη μνήμη :

rst.Close

dbs.Close

Press " F5 " για να εκτελέσετε υπορουτίνα σας

Η <. br >