Πώς να εξαγάγετε τα δεδομένα από ένα πεδίο στο άλλο σε Access 2007

Εξαγωγή δεδομένων από το ένα πεδίο πίνακα σε έναν άλλο δεν είναι τόσο περίπλοκο όπως μπορείτε να σκεφτείτε . Στην Access , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications για να αυτοματοποιήσει τη διαδικασία αυτή . Το αντικείμενο εγγραφών αντιπροσωπεύει τις εγγραφές σε έναν πίνακα ή τις εγγραφές επιστρέφονται από ένα ερώτημα . Αυτό το αντικείμενο χρησιμοποιείται σε VBA για να χειριστούν αυτά τα δεδομένα σε επίπεδο ρεκόρ . Μπορείτε να εξάγετε δεδομένα από looping μέσω των αρχείων και την προσθήκη των τιμών των πεδίων σε άλλα πεδία στον ίδιο πίνακα ή ένα διαφορετικό πίνακα . Οδηγίες
Η

1 Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας της Visual Basic . Ξεκινήστε τη δημιουργία ενός νέου υπο- διαδικασία με την προσθήκη του παρακάτω κώδικα :

Private Sub copyFieldData ( ) 2

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

Dim SQLstr Όπως String Dim

sourceRst Όπως εγγραφών

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

Dim rCntr As Integer

Dim dbs Όπως Database

Set dbs = CurrentDb
εικόνων 3

Δημιουργήστε ένα κενό πίνακα με ένα πεδίο .

strSQL = " CREATE TABLE emptyTable "

strSQL = strSQL & " ( FirstName TEXT) "

DoCmd.RunSQL ( strSQL )
Η 4

Ανοίξτε τους πίνακες προέλευσης και προορισμού , χρησιμοποιώντας ένα σύνολο εγγραφών.

Set targetRst = dbs.OpenRecordset ( " emptyTable " )

Set sourceRst = dbs.OpenRecordset ( "SELECT * FROM εργαζόμενοι εργαζόμενοι ? . " )
5

Δημιουργία «Για ... Loop " για να βρόχο μέσω όλες οι γραμμές στο πεδίο " Όνομα " από τον πίνακα Employees και την εξαγωγή τους στο πεδίο " FirstName " στο emptyTable .

sourceRst.MoveLast

sourceRst.MoveFirst

Για rCntr = 0 Για να sourceRst.RecordCount - . 1.

targetRst.AddNew

targetRst.Fields ( " FirstName " ) Value = sourceRst.Fields ( " Όνομα " ) Value

targetRst.Update

sourceRst.MoveNext

Επόμενο rCntr
Η 6

οθόνης ένα πλαίσιο μηνύματος , όταν έχει ολοκληρωθεί ο εξαγωγέας .

MsgBox ( "Δεδομένα από Όνομα τομέα έχει εξαχθεί » )
Η

7 Ολοκληρώστε τη διαδικασία, πληκτρολογώντας " End Sub ". Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων