Ανοικτή Πρόσβαση και κάντε κλικ στο " Δημιουργία " τίτλο μενού , που ακολουθείται από τον "πίνακα ". Θα δημιουργήσετε ένα μικρό τραπέζι για να εκτελέσει μια 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 " ταξινόμηση ερώτημα που δημιουργήσατε .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα