Πώς να χρησιμοποιήσετε VBA στην πρόσβαση ερωτήματος Προβολή σχεδίασης

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

Ανοικτή Πρόσβαση και να δημιουργήσει ένα μικρό τραπέζι των διευθύνσεων ηλεκτρονικού ταχυδρομείου . Χρησιμοποιήστε τον παρακάτω πίνακα , αν δεν έχετε ένα υπάρχον . Εισάγετε την πρώτη γραμμή τα ακόλουθα στοιχεία ως επικεφαλίδα μόνο στήλη του πίνακα .

Emaildsk@yahoo.comIndianaJones @ @ Hollywood.comHarryBelafonte Caribbean.com 2

Αποθηκεύστε τον πίνακα με πατώντας το πλήκτρο " Control- S " και πληκτρολογήστε " EmailAddresses " για το όνομα του πίνακα . Αποθηκεύστε την ίδια τη βάση δεδομένων πατώντας το πλήκτρο " Alt - F , " και στη συνέχεια επιλέγοντας " Αποθήκευση βάσης δεδομένων ως . " Τύπος " VBAFromAccessQuery " για το όνομα της βάσης δεδομένων .
Εικόνων 3

Ξεκινήστε τη δημιουργία ενός προσαρμοσμένη συνάρτηση για χρήση σε ένα ερώτημα από την πρώτη ενεργοποίηση των μακροεντολών στη βάση δεδομένων σας . Πιέστε το πλήκτρο " Alt - F" για να αποκαλύψετε το "Επιλογές " του μενού , στη συνέχεια, κάντε κλικ στο στοιχείο .
Η

4 Πατήστε το κουμπί " Κέντρο αξιοπιστίας " στοιχείο στο πλαίσιο διαλόγου " Επιλογές της Access " , στη συνέχεια κάντε κλικ στο κουμπί " Ρυθμίσεις Κέντρου αξιοπιστίας " . Πατήστε το στοιχείο " Ρυθμίσεις μακροεντολών " στο παράθυρο διαλόγου " Κέντρο αξιοπιστίας " , στη συνέχεια, κάντε κλικ στην επιλογή που λέει " Ενεργοποίηση όλων των μακροεντολών . " ( Να είστε βέβαιος να επιστρέψει σε αυτό το παράθυρο διαλόγου για να απενεργοποιήσετε τις μακροεντολές μόλις τελειώσετε το βήματα σε αυτό το άρθρο . )

Πατήστε "OK" σε όλα τα ανοιχτά παράθυρα διαλόγου για να επιστρέψετε στην Access.
5

Πατήστε το κουμπί " Εργαλεία βάσης δεδομένων " αντικείμενο της μπάρας εργαλείων , στη συνέχεια, κάντε κλικ στο κουμπί " ? Visual Basic "για να εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) , η οποία είναι όπου μπορείτε να δημιουργήσετε προσαρμοσμένες λειτουργίες
Η 6

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

GetDomainName Public Function ( emailAddress ) Dim mm = Len ( emailAddress ) - InStr ( emailAddress " @ " ) GetDomainName = Δεξιά ( emailAddress , m ) End Function
Η

7 Πατήστε το πλήκτρο" Control + S " για να αποθηκεύσετε το πρόγραμμα , και να κατονομάζει τα ενότητα " CustomFunctions " όταν σας ζητηθεί από την Access . Επιστροφή στην πρόσβαση είτε πιεστικά " Alt + F11 " ή κάνοντας κλικ στο μικρό εικονίδιο Πρόσβαση στο αριστερό μέρος της γραμμής εργαλείων του IDE της .
8

Δημιουργήστε ένα νέο ερώτημα για τον πίνακα η διεύθυνση ηλεκτρονικού ταχυδρομείου από το πρώτο κλικ στο όνομα πίνακα ( " EmailAddresses " ) στο παράθυρο περιήγησης στα αριστερά του κύριου παραθύρου της Access . Στη συνέχεια, πατήστε το κουμπί " Δημιουργία ", ακολουθούμενο από " Σχεδίαση ερωτήματος " στη γραμμή εργαλείων της Access . Εάν χρησιμοποιείτε την Access 2003 , δημιουργούν το ερώτημα πατώντας το πλήκτρο " Αντικείμενα ", στη συνέχεια " Query ", τότε " Νέα ".
Η 9

Κάντε διπλό κλικ στο " EmailAddresses " ? στοιχείο στο " Εμφάνιση πίνακα " παράθυρο διαλόγου για να δημιουργήσετε ένα μικρό παράθυρο που εμφανίζει όλα τα πεδία του πίνακα διεύθυνση ηλεκτρονικού ταχυδρομείου . . Πατήστε το πλήκτρο " Κλείσιμο" στο παράθυρο διαλόγου
Η 10

Κάντε δεξί κλικ στη γραμμή με την ένδειξη " Πεδίο : " σε οποιαδήποτε από τις στήλες του πλέγματος ερωτήματος . Επιλέξτε το στοιχείο "Build " για να εμφανιστεί το παράθυρο διαλόγου " Δόμηση εκφράσεων " , το οποίο σας επιτρέπει να δημιουργήσετε ερωτήματα που χρησιμοποιούν τύπους .
Η 11

Κάντε διπλό κλικ στο " Λειτουργίες " στοιχείο της " Στοιχεία έκφραση " παράθυρο για να επεκταθεί το εν λόγω κόμβο , στη συνέχεια, με ένα κλικ στο όνομα της βάσης δεδομένων σας ( " VBAFromAccessQuery " ) για να εκθέσει τη λειτουργία που δημιουργήθηκε για τη συγκεκριμένη βάση δεδομένων .
Η 12

Σημειώστε ότι η " έκφραση αξίες " παράθυρο εμφανίζει τη " " λειτουργία GetDomainName θα επικολληθεί σε Visual Basic IDE νωρίτερα . Κάντε διπλό κλικ σε αυτό το στοιχείο , στη συνέχεια, πληκτρολογήστε " [ email] " στη θέση του " <<>> emailAddress " κείμενο στο επάνω τμήμα του παραθύρου διαλόγου .
Η 13

Πατήστε το πλήκτρο " OK " για να κλείσετε " Δόμηση εκφράσεων ", κάντε δεξί κλικ στην καρτέλα του ερωτήματος και επιλέξτε " Προβολή φύλλου δεδομένων " για να εκτελέσετε το ερώτημα . ( Ή , πατήστε το πλήκτρο " Σχεδίαση " και επιλέξτε " Run" στη γραμμή εργαλείων . )

Παρατηρήστε ότι τα αποτελέσματα του ερωτήματος εμφανίζονται μόνο τα ονόματα τομέα από τις διευθύνσεις ηλεκτρονικού ταχυδρομείου , το οποίο είναι αποτέλεσμα της επιτυχούς εφαρμογής του κώδικα VBA σας στο ερώτημα προβολή της Access σχεδίασης .
Η
εικόνων