Πώς να χρησιμοποιήσετε το Visual Basic Access για να ταξινομήσετε τα δεδομένα

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

Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοικτή Πρόσβαση και κάντε κλικ στο " Δημιουργία " τίτλο μενού , που ακολουθείται από τον "πίνακα ". Θα δημιουργήσετε ένα μικρό τραπέζι για να εκτελέσει μια VBA είδος του. 2

Κάντε διπλό κλικ στην επικεφαλίδα της στήλης " Πίνακας 1 " και πληκτρολογήστε " Όνομα ", στη συνέχεια, πληκτρολογήστε διάφορα ονόματα σε αυτή τη στήλη . Βεβαιωθείτε ότι κάθε όνομα αρχίζει με ένα διαφορετικό γράμμα του αλφαβήτου ώστε να μπορείτε να δείτε καθαρά το αποτέλεσμα της VBA ταξινόμησης που ακολουθεί. Για τον ίδιο λόγο , βεβαιωθείτε ότι έχετε εισάγει τα ονόματα σε μια σειρά αδιαχώριστα . Για παράδειγμα , πληκτρολογήστε τα ονόματα " Carol ", " βαρίδι" και " Amanda ", με αυτή τη σειρά .
Εικόνων 3

Πατήστε το " Ctrl " + " S ", στη συνέχεια, πληκτρολογήστε " UserInfo " για το όνομα του πίνακα .
Η

4 Κάντε κλικ στο "Δημιουργία " τίτλο του μενού , στη συνέχεια, κάντε κλικ στο «Άλλο» κουμπί του πίνακα του " Σχεδίαση ερωτήματος " . Θα δημιουργήσετε ένα ερώτημα για το πρόγραμμα ταξινόμησης VBA να εκτελέσει .
5

Κάντε διπλό κλικ στο " UserInfo " στοιχείο στο πλαίσιο διαλόγου " Εμφάνιση πίνακα " , στη συνέχεια, κάντε κλικ στο κουμπί παραθύρου διαλόγου " Κλείσιμο" .
Η 6

Σύρετε το " * ", η οποία αντιπροσωπεύει όλα τα πεδία σε έναν πίνακα , πάνω στο πρώτο χρώμα στο πλέγμα σχεδίασης ερωτήματος .
Η

7 κάντε δεξί κλικ στο " Query1 "καρτέλα , και στη συνέχεια επιλέξτε " προβολή SQL . " Πληκτρολογήστε την ακόλουθη αμέσως μετά την ρήτρα "ΑΠΟ UserInfo " : " . ΟΝΟΜΑ " .

ΠΑΡΑΓΓΕΛΙΑ Με

Αυτή η νέα ρήτρα διατάσσει τα δεδομένα όταν η Access εκτελεί το ερώτημα
8

Πατήστε το πλήκτρο " Ctrl " + " S ", στη συνέχεια, πληκτρολογήστε " q1 " για το όνομα του ερωτήματος .
Η

9 Πατήστε το πλήκτρο " Alt " + " F11 " για να μπείτε στο VBA ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) , η οποία είναι όπου θα εισάγετε τον κωδικό του προγράμματος για την ταξινόμηση του πίνακα " UserInfo "
Η 10

Κάντε κλικ στο "Εισαγωγή " " ενότητα " στοιχείο μενού , στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα στο παράθυρο του προγράμματος του module . :

Δημόσια doQuery Sub ( )

Const qName = " q1 "

Dim db1 Όπως DAO.Database

Dim RS1 Όπως DAO.Recordset

Set db1 = CurrentDb

Set RS1 = db1.OpenRecordset ( qName )

Do While Not rs1.EOF

Debug.Print "Name : " & RS1 ! [Όνομα ] Ξενοδοχεία

rs1.MoveNext

Loop

rs1.Close

db1.Close

End Sub

Αυτό το πρόγραμμα ανοίγει και εμφανίζει τα αρχεία ενός εικονικού αντικειμένου, που ονομάζεται ένα σύνολο εγγραφών . Τα εγγραφών αποτελέσματα από την εκτέλεση του ερωτήματος που μόλις δημιουργήσατε .
Η 11

Κάντε κλικ σε οποιαδήποτε δήλωση στο πρόγραμμα , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να εκτελέσετε το πρόγραμμα . Πατήστε το πλήκτρο " Ctrl " + " G " αν δεν μπορείτε να δείτε το παράθυρο " Άμεση " . Αυτό το παράθυρο θα εμφανίσει τα αποτελέσματα της " q1 " ταξινόμηση ερώτημα που δημιουργήσατε .
Η
εικόνων