Πώς να τρέξει ένα ερώτημα στην Access VBA

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

1 Ανοίξτε μια υπάρχουσα βάση δεδομένων της Access . Κάντε κλικ στο εικονίδιο " Σχεδίαση ερωτήματος " στο μενού "Δημιουργία " για να ξεκινήσει ένα νέο ερώτημα . 2

Κάντε διπλό κλικ στο πρώτο στοιχείο της λίστας στο παράθυρο διαλόγου " Εμφάνιση πίνακα " που εμφανίζεται για να καθορίσετε τον πίνακα από που θέλετε να κάνετε ένα ερώτημα .
εικόνων 3

κάντε διπλό κλικ στο στοιχείο "*" στο μικρό παράθυρο που εμφανίζει τα ονόματα όλων των πεδίων του πίνακα που επιλέξατε για την αναζήτηση . Η ενέργεια αυτή δημιουργεί ένα ερώτημα που λαμβάνει δεδομένα από όλους τους τομείς του πίνακα με τη μία . Σημειώστε το όνομα του κάθε ένα από τα πεδία του πίνακα ( εκτός από τον αστερίσκο ) . Το ερώτημά σας VBA θα αναφέρει τα στοιχεία για αυτό το πεδίο .
Η

4 Πατήστε το πλήκτρο " Ctrl + S" για να εμφανιστεί το παράθυρο διαλόγου ζητώντας το όνομα του ερωτήματος . Πληκτρολογήστε " Query1 " και στη συνέχεια κάντε κλικ στο " OK " για να αποθηκεύσετε το ερώτημα .
5

Πατήστε το " Alt + F11 " για να εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) και στη συνέχεια κάντε κλικ στο " Ενότητα " σημείο κάτω από το μενού "Εισαγωγή" . Αυτό παράγει ένα νέο κώδικα παράθυρο στο οποίο μπορείτε να εισάγετε το πρόγραμμά σας .
Η 6

Πληκτρολογήστε ή επικολλήστε το πρόγραμμα που ακολουθεί οπουδήποτε στο παράθυρο του νέου μονάδα κώδικα του . Πληκτρολογήστε πάνω από το κείμενο " YOUR_FIELD_NAME " με το όνομα του πεδίου που κατέγραψε πρόχειρα στο Βήμα 3 .

Public Sub runQuery ( )

Const cstrQueryName = " Query1 "

Dim dbs Όπως DAO.Database

Dim rst Όπως DAO.Recordset

Set dbs = CurrentDb
'

Open εγγραφών στα υφιστάμενα
ερώτημα

Set RST = dbs . OpenRecordset ( cstrQueryName )

« Loop σε όλες τις εγγραφές

Do While Not rst.EOF

Debug.Print rst ! [ YOUR_FIELD_NAME ] Ξενοδοχεία

rst.MoveNext

Loop

« Κλείστε το σύνολο εγγραφών και δεδομένων

rst.Close

dbs.Close

End Sub

Η πρόσκληση για τη λειτουργία OpenRecordset τρέχει αποθηκευμένο ερώτημα σας , " Query1 . " Οι δηλώσεις μεταξύ του " Do While " στο " Loop " δηλώσεις επαναλήψεις ( με άλλα λόγια , βρόχος ) με κάθε μία από τις εγγραφές στον πίνακα που επιλέξατε για την αναζήτηση . Η " Debug.Print " δήλωση εμφανίζει τα δεδομένα του δίσκου για το πεδίο που επιλέξατε .
Η 7

Κάντε κλικ οπουδήποτε μέσα στο " runQuery " υπορουτίνα που μόλις έγραψε και στη συνέχεια πιέστε το πλήκτρο "F5 " για να εκτελέσετε την υπορουτίνα . Πατήστε το πλήκτρο " Ctrl + G " για να εμφανιστεί το παράθυρο του IDE είναι " Άμεση " ( αν δεν είναι ήδη ορατή ) . Το παράθυρο θα εμφανίσει όλες τις εγγραφές για το πεδίο που επιλέξατε .
Η
εικόνων