Πώς να Program Microsoft Access με Visual Basic

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

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

Ανοικτής Πρόσβασης και πατήστε το πλήκτρο "Alt - F11 " για να εισάγετε την κωδικοποίηση του περιβάλλοντος ( που ονομάζεται "IDE " για « ολοκληρωμένο περιβάλλον ανάπτυξης " ) για την Access . 2

Κάντε κλικ στο "Εισαγωγή " " ενότητα " του μενού για να δημιουργήσετε ένα νέο παράθυρο για την εισαγωγή κωδικού .
εικόνων 3

Επικόλληση στο παράθυρο κώδικα τον ακόλουθο κώδικα πρόγραμμα, το οποίο δημιουργεί έναν πίνακα με VBA :

Sub makeATable ( )

Dim db Ως βάση δεδομένων , td Όπως TableDef , στ Όπως πεδίο

Set db = CurrentDb

Set tbl = dbs.CreateTableDef ( " UserInfo " )

Σετ FLD = tbl.CreateField ( " Όνομα " , dbText )

κουτ . Fields.Append στ

dbs.TableDefs.Append tb

« dbs.TableDefs.Refresh

End Sub
Η 4

Εκτελέστε το πρόγραμμα κάνοντας κλικ σε οποιαδήποτε δήλωση σε αυτό και πατώντας το πλήκτρο " F5 ".
5

Press " Alt - F11 " για να επιστρέψετε στην κύρια διεπαφή Access και, στη συνέχεια , κάντε κλικ στο κουμπί παράθυρο πλοήγησης " <<" , τότε κουμπιού " >> " . Θα δείτε ένα νέο πίνακα που έχει δημιουργηθεί από το πρόγραμμα σας . Διαβάστε περισσότερες πληροφορίες σχετικά με τη δημιουργία πινάκων με VBA στη σελίδα MSDN "Δημιουργία και Διαγραφή πινάκων " σελίδα .
Η 6

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

Press " Alt - F11 " για να επιστρέψετε στην κωδικοποίηση περιβάλλον και επικόλληση αυτής της νέας υπο - ρουτίνα κάτω από την πρώτη που έγραψε : .

Public Sub makeQuery ( )

Dim db Όπως DAO.Database

Dim qd Όπως DAO.QueryDef

Dim str Όπως String

Set db = CurrentDb

On Error GoTo DontDelete

db.QueryDefs.Delete " qUser "

DontDelete :

str = " SELECT * FROM UserInfo ? "

Set qd = db.CreateQueryDef ( " qUser " , str )

End Sub
8

Εκτελέστε το νέο υπο- ρουτίνα , όπως κάνατε την πρώτη , στη συνέχεια, επιστρέψτε στην Access και να ψάξουν για το νέο ερώτημα κωδικό σας δημιουργήθηκε . Λέγεται " qUser . "
Η 9

διπλό κλικ στο " qUser " για να εκτελέσετε το ερώτημα . Η Access θα εμφανίσει όλα τα ονόματα που έχετε εισάγει στον πίνακα " UserInfo " .
Η 10

Δημιουργήστε μια έκθεση κάνοντας κλικ στο " UserInfo " στοιχείο στο παράθυρο περιήγησης και, στη συνέχεια κάνοντας κλικ στην επιλογή " Report " στη γραμμή εργαλείων . Θα γράψω ένα πρόγραμμα VBA που φιλτράρει την έκθεση για μια συγκεκριμένη τιμή που πληκτρολογήσατε στο βήμα 6 .
Η 11

δεξιό κλικ στην καρτέλα της νέας έκθεσης και επιλέξτε " Προβολή σχεδίασης ". Κάντε κλικ στο κάτω βέλος στραμμένο προς τη "On Load" εκδήλωση της καρτέλας της έκθεσης " Event" στα δεξιά της οθόνης . Αυτή η ενέργεια θα σας επιστρέψει τη VBA IDE .
Η 12

Επικολλήστε τον ακόλουθο κώδικα στο IDE . Αντικαταστήστε το κείμενο " " με κάποια συγκεκριμένη τιμή που εισάγατε στο βήμα 6 .

Private Sub Report_Load ( )

Me.Filter = " Όνομα = " " " " "

Me.FilterOn = True

End Sub
Η 13

Εκτελέστε την έκθεση πατώντας " Alt - F11 "για να επιστρέψετε στην Access , κάντε δεξιό κλικ στην έκθεση καρτέλα και επιλέγοντας" Προβολή αναφοράς . " Η Access θα εμφανίσει την έκθεση , η οποία θα δείξει μόνο την εγγραφή που πληκτρολογήσατε για το φίλτρο στο βήμα 12 . Διαβάστε περισσότερα σχετικά με τη χρήση της VBA με εκθέσεις σχετικά με την σελίδα Reports Access.
Η
εικόνων