Πώς να σώσει τα φιλτραρισμένα δεδομένα σε άλλη πίνακα στην Access

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

Ξεκινήστε το Microsoft Office Access 2007 και επιλέξτε "Blank Database , " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " και στη συνέχεια επιλέξτε " Visual Basic ". 2

Κάντε κλικ στο " Εισαγωγή" πεδίο και επιλέξτε " Ενότητα ".

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο module σας :

Private Sub createNewTable ( )

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

Dim db Όπως Database

Dim SQLstr Όπως String

SQLstr = " CREATE TABLE CustomerInfo ( FirstName TEXT ( 25 ) , Επώνυμο TEXT ( 25 ) ) ? "

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO CustomerInfo ( [ Όνομα] , [Επώνυμο ] ) "

SQLstr = SQLstr & " ΑΞΙΕΣ ( «Ιωάννης» , «Williams ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO CustomerInfo ( [ Όνομα] , [ Επώνυμο] ) "

SQLstr = SQLstr & " ΑΞΙΕΣ ( « Charles » , « Gonzalez ') ? "

DoCmd . SetWarnings Λάθος

DoCmd.RunSQL ( SQLstr )

SQLstr = "SELECT CustomerInfo.FirstName , "

SQLstr = SQLstr & " CustomerInfo.LastName ΣΕ CharlesInfo "

SQLstr = SQLstr & "ΑΠΟ CustomerInfo "

SQLstr = SQLstr & "WHERE ( ( ( CustomerInfo.FirstName ) = « Charles » ) ) ? "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )

End Sub
εικόνων 3

Πατήστε το " F5 " για να εκτελέσετε υπορουτίνα σας . Ο κώδικας θα δημιουργήσει έναν νέο πίνακα και να προσθέσει δύο νέα αρχεία με τα δεδομένα . Ένας νέος πίνακας θα δημιουργηθεί όπου " FirstName " είναι ίσο με " Charles ".
Η
εικόνων