Πώς να Program Access 2007

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

Εκκίνηση της Access , κάντε κλικ στην επιλογή " Κενή βάση δεδομένων " και κάντε κλικ στο κουμπί "Δημιουργία " για να δημιουργήσετε μια νέα βάση δεδομένων . Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα αποθηκευμένη διαδικασία : .

Private Sub ProgramInAccess ( )

Πατήστε το πλήκτρο " Enter".
εικόνων 3

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

Dim strSQL Όπως String Dim

dataString Όπως String

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

Dim myDbs Όπως Database

Dim rowCnt As Integer

Set myDbs = CurrentDb
Η 4

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

strSQL = " CREATE TABLE tableWithData ( ΚΕΙΜΕΝΟ πελατών ( 25 ) , ΚΕΙΜΕΝΟ προϊόντων ( 25 ) ) ? "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )
5

Πληκτρολογήστε το παρακάτω για να προσθέσετε μια νέα γραμμή των δεδομένων, χρησιμοποιώντας το " DoCmd " αντικείμενο :

SQLstr = " INSERT INTO tableWithData ( [ πελάτη] , [Product] ) "

SQLstr = SQLstr & " ΑΞΙΕΣ ( «Ιωάννης» , « Desktop » ) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( SQLstr )
Η 6

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

Set myRst = myDbs.OpenRecordset ( " tableWithData » )

myRst.AddNew

myRst.Fields ( " Πελάτης ") . Value = " Susan "

myRst.Fields (" Προϊόν " ) . Value = " Laptop "

myRst.Update

myRst.Close
Η 7

Πληκτρολογήστε το ακόλουθο ερώτημα το νέο πίνακα :

strSQL = " SELECT * tableWithData . ΑΠΟ tableWithData ? "
8

Πληκτρολογήστε το παρακάτω, για να ανοίξετε το ερώτημα χρησιμοποιώντας ένα αντικείμενο Recordset και θηλιά μέσα από τα περιεχόμενα του πίνακα :

Set myRst = myDbs.OpenRecordset ( strSQL )

myRst.MoveFirst

Για rowCnt = 0 Για να myRst.RecordCount

dataString = " Πελάτης:" . & myRst.Fields ( 0 ) Value & "