Πώς να αποκτήσετε πρόσβαση Προγραμματισμός Macro

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

Open Access και δημιουργήστε μια νέα βάση δεδομένων πατώντας το πλήκτρο " Ctrl " + " Ν" Κάντε κλικ στο " Blank Database " και στη συνέχεια πατήστε το πλήκτρο " Alt " + " F11 " για να μπείτε στο VBA ολοκληρωμένο περιβάλλον ανάπτυξης ή IDE . Εδώ θα δημιουργήσετε μακροεντολές που αποδεικνύουν τις λειτουργίες κοινής βάσης δεδομένων για τη δημιουργία ενός πίνακα και την εισαγωγή και την ανάκτηση δεδομένων από έναν πίνακα . 2

Κάντε κλικ στο μενού Insert για "ενότητα " εντολή για να κάνει ένα νέο παράθυρο για την είσοδο κώδικα μακροεντολής σας . Επικολλήστε την ακόλουθη υπορουτίνα στο παράθυρο . Αυτή η υπορουτίνα δημιουργεί έναν ορισμό ερώτημα με το " CreateQueryDef " κλήση της συνάρτησης . Το ερώτημα "Δημιουργία πίνακα " ο κώδικας ορίζει χρησιμοποιεί την ίδια σύνταξη SQL διαθέσιμα σε πλέγμα σχεδίασης ερωτήματος πρόσβαση του . Οι δήλωση " dbase.QueryDefs ( 1 ) . Εκτελέστε " εκτελεί το ερώτημα δημιουργίας πίνακα .

Public Sub createTable ( )

Dim qdef Όπως DAO.QueryDef

Dim dbase Όπως DAO.Database

Dim s Όπως String

Set dbase = CurrentDb

s = "δημιουργία τραπεζιού KidsBooks ( Bookname κείμενο ( 50 ) , Συγγραφέας κείμενο (50 ) ) "

Set qdef = dbase.CreateQueryDef ( " qCreateTable " , s )

dbase.QueryDefs ( 1 ) . Εκτελέστε

End Sub
εικόνων 3

Κάντε κλικ σε μια δήλωση στην υπορουτίνα , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να εκτελέσετε " createTable . " Πατήστε το πλήκτρο " Alt " + " F11 " για να επιστρέψετε στην κανονική διεπαφή χρήστη της Access .
Η 4

Κλείστε και ανοίξτε πάλι το παράθυρο περιήγησης , κάνοντας κλικ εικονίδια βέλους γραμμή τίτλου του . Το παράθυρο θα εμφανίσει τον πίνακα KidsBooks υπορουτίνα σας δημιουργήθηκε .
5

Πατήστε το πλήκτρο " Alt " + " F11 " για να επιστρέψετε στην ρουτίνα σας στο IDE . Επικολλήστε τον ακόλουθο νέο υποπρόγραμμα στο πλαίσιο της createTable υπορουτίνα . Η υπο addTableRow εισάγει μια σειρά από δεδομένα στον πίνακα createTable πρόγραμμα σας έκανε . Το νέο αυτό πρόγραμμα λειτουργεί από το άνοιγμα ενός αντικειμένου RecordSet και καλώντας τη μέθοδο AddNew αυτού του αντικειμένου.

AddTableRow Public Sub ( )

Dim dbase Όπως DAO.Database

Dim rst Όπως DAO.Recordset

Set dbase = CurrentDb

Set RST = dbase.OpenRecordset ( " KidsBooks " )

rst.AddNew

rst ! Bookname = " ο Μάγος του Οζ "

rst ! Συγγραφέας = " Φρανκ Μπάουμ "

rst.Update

End Sub
Η 6

Εκτελέστε το νέο πρόγραμμα όπως κάνατε το προηγούμενο . Επιστροφή στην πρόσβαση , στη συνέχεια, κλείστε τον πίνακα KidsBooks κάνοντας δεξί κλικ στην καρτέλα του και κάνοντας κλικ στο "Close ". Κάντε διπλό κλικ στο " KidsBooks " στο παράθυρο πλοήγησης για να ανοίξει εκ νέου το τραπέζι και να δούμε τη νέα λογιστική πρόγραμμά σας πρόσθεσε.
Η 7

Επικόλληση , στο IDE , το ακόλουθο νέο πρόγραμμα κάτω από τα δύο προηγούμενα. Αυτό το πρόγραμμα θα εμφανίσει όλα τα στοιχεία που περιέχονται στον πίνακα KidsBooks . Το πρόγραμμα ανοίγει ένα αντικείμενο RecordSet , όπως έκανε το προηγούμενο πρόγραμμα . Αυτή τη φορά , ωστόσο , η λειτουργία MoveNext καλείται . Η λειτουργία αυτή μετακινεί ένα εσωτερικό δείκτη μέσα από κάθε μία από τις σειρές του πίνακα KidsBooks .

Public Sub showData ( )

Dim dbase Όπως DAO.Database

Dim rst Όπως DAO . Recordset

Set dbase = CurrentDb

Set RST = dbase.OpenRecordset ( " KidsBooks " )

Dim s As String

Do While Not rst.EOF

s = " τίτλος βιβλίου: " & ΤΥ [ BookName ] & " Συγγραφέας : . " ! & ΤΥ [ Συγγραφέας ] Ξενοδοχεία

MsgBox ( ες )

rst.MoveNext !

Loop

rst.Close

dbase.Close

End Sub
8

Εκτελέστε το πρόγραμμα που εκτελέσατε το άλλα δύο. Το πρόγραμμα θα εμφανίσει ένα πλαίσιο μηνύματος που δείχνει την " Μάγος του Οζ " εισόδου .
Η
εικόνων