Πώς να δημιουργήσετε ένα ερώτημα στην Access VBA

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

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

Κάντε κλικ στο " Δημιουργία " και επιλέξτε " Σχεδίαση ερωτήματος ". Επιλέξτε το "Tables " καρτέλα , επιλέξτε " Εργαζόμενοι " και στη συνέχεια κάντε κλικ στο κουμπί " Προσθήκη ". Επιλέξτε " Κλείσιμο ".
Εικόνων 3

Κάντε διπλό κλικ στο "Εταιρεία ", " Επώνυμο " και " Όνομα " για να προσθέσετε πεδία . Επιλέξτε " Προβολή SQL " στο "Αποτελέσματα" παράθυρο . Πατήστε το πλήκτρο " Ctrl " και "C" για να αντιγράψετε το ερώτημα επιλογής .
Η

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

Private Sub createVBAQuery ( )

Τύπου
5

Πληκτρολογήστε το παρακάτω για να δηλώσετε τις μεταβλητές σας :

Dim strSQL Όπως String

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

Dim dbs Όπως Database

Set dbs = CurrentDb
Η 6

τύπου " Ctrl " και " V " για να επικολλήσετε το ερώτημα επιλογής μέσα στην υπορουτίνα . Προσθήκη " strSQL = " στην αρχή του ερωτήματός σας και να προσθέσετε τέλος εισαγωγικά στο τέλος του ερωτήματός σας, ως εξής : . .

StrSQL = "SELECT Employees.Company , εργαζόμενοι [ Επώνυμο ] , εργαζόμενοι [ Όνομα ] FROM Υπάλληλοι ? "
Η 7

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

Set RST = dbs.OpenRecordset ( strSQL )

ΤΥ . . MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ( 0 ) Value & . "