Πώς να έχει πρόσβαση και διαγραφής των στοιχείων, με Macro

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

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

1 Ανοίξτε το Microsoft Access και δημιουργήστε μια νέα βάση δεδομένων πατώντας το πλήκτρο " Control- N , " και στη συνέχεια κάνοντας κλικ στο " Blank βάση δεδομένων. " Θα δημιουργήσετε ένα μικρό πίνακα για αυτή τη βάση δεδομένων , στη συνέχεια, χρησιμοποιήστε μακροεντολές για να διαγράψετε τα δεδομένα από αυτό . 2

Κάντε κλικ στο " τραπέζι" κάτω από το μενού "Δημιουργία " , στη συνέχεια, πληκτρολογήστε " Όνομα_προϊόντος " στην πρώτη γραμμή της δεύτερης στήλης του πλέγματος πίνακα . Τύπος " Τιμή " στο κελί άμεσα με το δικαίωμα των " ProductName . "
Εικόνων 3

Πληκτρολογήστε μία ή δύο σειρές των στοιχείων του δείγματος στα παρακάτω τα ονόματα των στηλών που μόλις πληκτρολογήσατε κύτταρα . Για παράδειγμα, πληκτρολογήστε " Compressed κάρβουνο , " και " 1,98 " για έναν πίνακα ανεφοδιασμού τέχνης .
Η

4 Πιέστε το πλήκτρο " Control- S" και πατήστε "OK " για να αποθηκεύσετε τον πίνακα με το προεπιλεγμένο όνομα " Πίνακας 1 . "
5

Πιέστε το πλήκτρο" Alt - F11 "για να εισάγετε ολοκληρωμένο περιβάλλον ανάπτυξης της VBA ( IDE ) , στη συνέχεια κάντε κλικ στο κουμπί " Module " στο μενού" Εισαγωγή "για να κάνει ένα νέο παράθυρο για την εισαγωγή πρόγραμμα μακροοικονομικής σας κώδικα .
Η 6

Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο . Αυτό το πρόγραμμα λειτουργεί από το άνοιγμα ενός αντικειμένου RecordSet της τρέχουσας βάσης δεδομένων . Η RecordSet βασίζεται στον πίνακα " Πίνακας 1 " σας ολοκληρώνεται στο βήμα 4 . Η μέθοδος MoveFirst ( δηλαδή της λειτουργίας ) του RecordSet μετακινεί το δείκτη τρέχουσας εγγραφής στην πρώτη εγγραφή του πίνακα ? Η μέθοδο Delete διαγράφει ότι πρώτη εγγραφή

Public Sub DeleteRecord ( )

Dim db Όπως DAO . . Database

Dim rcset Όπως DAO.Recordset

Dim str Όπως String

Set db = CurrentDb

Set rcset = Υπο
Η 7

Εκτελέστε τη διαγραφή μακροεντολής , κάνοντας κλικ τις δηλώσεις της , στη συνέχεια, πατώντας το πλήκτρο " F5 ". Πιέστε το πλήκτρο " Alt - F11 " για να επιστρέψετε στην κανονική διεπαφή χρήστη της Access και, στη συνέχεια , κάντε διπλό κλικ στο εικονίδιο " Πίνακας 1 " στο παράθυρο περιήγησης Access , η οποία είναι στα αριστερά της οθόνης . Access θα ανοίξει " Πίνακας 1 " για να αποκαλύψει ότι ο πρώτος δίσκος που έχετε εισάγει στο βήμα 3 διαγράφεται .
8

Press " Alt - F11 " για να επιστρέψετε στην μακροοικονομική κωδικό σας στο IDE , στη συνέχεια, επικολλήστε τον παρακάτω νέο πρόγραμμα κάτω από το προηγούμενο αυτό που έγραψε . Το πρόγραμμα αυτό διαγράφει την " Τιμή " πεδίο από τον πίνακα με την κλήση της μεθόδου " Διαγραφή" " Πίνακας 1 ".

Public Sub DeleteField ( )

Dim db Όπως DAO.Database

Dim rcset Όπως DAO.Recordset

Dim myTab Όπως TableDef

Set db = CurrentDb

Set myTab = db.TableDefs ( " Πίνακας 1 " )

myTab.Fields.Delete ( « Τιμή Διάθεσης»)

db.Close

End Sub
Η 9

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