Πώς να αντιγράψει από ένα σύνολο εγγραφών σε έναν πίνακα της Access 2007

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

1 Ανοίξτε τη βάση δεδομένων σας στην Microsoft Access 2007 και να ανοίξει το Visual Basic Editor. Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " και στη συνέχεια " Visual Basic" από την ομάδα " Μακροεντολές & Κώδικας» . 2

Κάντε κλικ στο " Εισαγωγή" μενού στο Visual Basic Editor και στη συνέχεια κάντε κλικ στο « Ενότητα ». Ή , εάν έχετε μια φόρμα ή την προηγούμενη ενότητα που θέλετε να χρησιμοποιήσετε αυτήν τη διαδικασία για , ανοιχτό ότι αντί κάνοντας διπλό κλικ πάνω του από το παράθυρο Εξερεύνηση έργου στην αριστερή πλευρά της οθόνης .
Εικόνων 3

Γράψτε τη διαδικασία που θα τραβήξει το σύνολο εγγραφών από τη βάση δεδομένων :

" Sub RecordsetExample ( )

Δημ. dbTest ως βάση δεδομένων « η μεταβλητή που θα κρατήσει τη βάση δεδομένων σας

Δημ. rsRecordset ως εγγραφών « Η μεταβλητή που θα κρατήσει εγγραφών σας

Set dbTest = OpenDatabase ( " MyDatabase.mbd » )« Αλλάξτε αυτό στο όνομα της βάσης δεδομένων σας

με dbTest

που rsRecordset = . OpenRecordset ( « πίνακας 1 » , dbOpenTable ) 'Αλλαγή πίνακας 1 με το όνομα του πίνακα σας

End With "
Η 4

Γράψτε τον κωδικό για να αντιγράψετε το σύνολο εγγραφών σε άλλο πίνακα . Ο κώδικας μοιάζει με αυτό :

"Dim sqlStatement ως String

« Το ερώτημα για την εισαγωγή στο στο τραπέζι Αλλαγή Table2 με το όνομα του πίνακα σας

sqlStatement = . " INSERT INTO Πίνακας 2 ΑΞΙΕΣ " & rsRecordset

Με Ενώ δεν rsRecordset.EOF

End With "
5

Κάντε κλικ στο εικονίδιο" Αποθήκευση "στο Visual Basic Editor. Κάντε κλικ στο κουμπί " Run ( ! ) " Αν θέλετε να εκτελέσετε τη διαδικασία και να αντιγράψετε το σύνολο εγγραφών στο τραπέζι τώρα . Αν όχι , κλείστε το Visual Basic Editor και κάντε κλικ στο κουμπί " Office " και στη συνέχεια "Save " για να αποθηκεύσετε τις αλλαγές στη βάση δεδομένων .
Η
εικόνων