Πώς να Δείτε το Ερώτημα ενημέρωσης μέσω VB

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

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

Open Access και δημιουργήστε το ακόλουθο δείγμα πίνακα , το οποίο πρόγραμμα της Visual Basic σας θα κάνει μια λειτουργία ενημέρωσης σχετικά με : Δημιουργήστε ένα πεδίο " Πεδίο1 " σε έναν πίνακα που ονομάζεται " πίνακας 1 ", στη συνέχεια, πληκτρολογήστε ένα ρεκόρ σε αυτό το πεδίο : " . xyz " 2

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

Κολλήστε ή πληκτρολογήστε τον ακόλουθο πρόγραμμα σε μονάδα κώδικα : .

Public Sub doUpdate ( )

Const tabname = " Πίνακας 1 "

Δημ. dbs Όπως DAO.Database

Dim rst Όπως DAO.Recordset

Set dbs = CurrentDb

Set RST = dbs.OpenRecordset ( tabname )

rst.MoveFirst

Κάντε Μέχρι rst.EOF

Αν rst ! Πεδίο1 = " zxy " Τότε

rst.Edit

rst ! Πεδίο1 = " abc "

rst.Update

rst.Close

dbs.Close

Exit Sub

End If

rst.MoveNext

Loop

End Sub

Το " OpenRecordset " δήλωση ανοίγει ο " Πίνακας 1 " τραπέζι για την τροποποίηση , και θέτει μια αναφορά σε αυτόν τον πίνακα με το " ΤΥ " μεταβλητή . Το μπλοκ των δηλώσεων που ξεκινά με το " Do Μέχρι " και τελειώνει με " Loop " κινείται μέσω των " ΤΥ " στοιχεία , που ψάχνουν για ένα αρχείο του οποίου η τιμή είναι " xyz ". Το πρόγραμμα χρησιμοποιεί την "Επεξεργασία" και "Ενημέρωση" μέθοδοι " ΤΥ " για να αλλάξετε την αξία της εγγραφής αυτής , τη στιγμή που βρίσκει το " xyz " ρεκόρ .
Η 4

Εκτελέστε το πρόγραμμα κάνοντας κλικ σε οποιοδήποτε από τα δηλώσεις , στη συνέχεια, πατώντας το πλήκτρο " F5 ". Πιέστε το πλήκτρο " Alt - F8" για να επιστρέψετε στην Access. Θα δείτε το " xyz " αξία δώσατε προηγουμένως , τώρα έγινε " abc ".
5

Πιέστε το πλήκτρο " Alt - F8" για να επιστρέψετε στο IDE . Πληκτρολογήστε τις ακόλουθες νέες δηλώσεις μετά το τελευταίο " Dim " δήλωση στη λίστα του προγράμματος : ( " ; Τι αξία θα θέλατε να αναζητούν " )

f = InputBox

v = InputBox ( " Τι αξία θα θέλατε να αλλάξετε ; " )

Οι δηλώσεις αυτές ερώτημα το χρήστη για την τιμή που ψάχνουν, και μια νέα τιμή για να αλλάξετε .
Η 6

Πληκτρολογήστε πάνω από τη δήλωση "Αν rst Πεδίο1 = ! " zxy " τότε " με αυτήν την νέα κατάσταση :

Αν rst Πεδίο1 = f στη συνέχεια

τη δήλωση αυτή και το ένα στο επόμενο βήμα θα χρησιμοποιήσει το νέο " f "και" κατά " μεταβλητές για να βρει και να ενημερώσει τη σωστή εγγραφή στον πίνακα
Η 7

Πληκτρολογήστε πάνω από τη δήλωση . " rst Πεδίο1 = " abc " " με αυτή τη δήλωση : !

ΤΥ ! Πεδίο1 = v
8

Εκτελέστε το πρόγραμμα , όπως κάνατε στο βήμα 4 . Απαντήστε όταν ο τότε εμφανίζονται , πληκτρολογώντας " abc " για την τιμή να αναζητήσουν , και το " xyz " για την τιμή να αλλάξετε . Το αναθεωρημένο πρόγραμμα θα αλλάξει το " αβγ" σε " xyz ".
Η
εικόνων