Πώς να χρησιμοποιήσετε την Access 2007 VBA στο βήμα Μέσα & Έλεγχος Πεδία

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

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

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

Private stepThroughFields Sub ( )

On Error GoTo Err_stepThroughFields :
3

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

Δημ. dbs Όπως Database

Dim rst Όπως Recordset

Dim rcrdCnt As Integer

Dim fldCnt As Integer
Η 4

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

Set dbs = CurrentDb
5

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

Set RST = dbs.OpenRecordset ( " Παραγγελίες")
Η 6

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

για fldCnt = 0 Για να rst.Fields.Count - 1

Debug.Print rst.Fields ( fldCnt ) . Όνομα

Επόμενο fldCnt
Η 7

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

rst.MoveFirst

Για rcrdCnt = 0 Για να rst.RecordCount - 1

Για fldCnt = 0 Για να rst.Fields.Count - . 1

Debug.Print rst.Fields ( fldCnt ) Αξία

Επόμενο fldCnt

rst.MoveNext

Επόμενο rcrdCnt
8

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

rst.Close

dbs.Close
Η 9

Πληκτρολογήστε το ακόλουθα για να τερματίσετε τη διαδικασία σας και να συλλάβει τυχόν λάθη :

Exit_stepThroughFields :

Exit Sub

Err_stepThroughFields :

MsgBox Err.Description

Resume ' Exit_stepThroughFields :

End Sub

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας και να εμφανίσει τις πληροφορίες πεδίου .
Η
εικόνων