Προγραμματισμός σε MS Access 2007

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

1 Ανοίξτε το Microsoft Office Access 2007 και , στη συνέχεια, επιλέξτε " Κενή βάση δεδομένων . " Κάντε κλικ στο κουμπί "Δημιουργία ". 2

Κάντε κλικ στην καρτέλα "Δημιουργία " και επιλέξτε " Σχεδίαση φόρμας " για να δημιουργήσετε μια νέα φόρμα . Επιλέξτε το " κουμπί" ελέγχου στο πλαίσιο του " ελέγχου " παράθυρο . Κάντε κλικ στο Μορφή και να δημιουργήσετε το νέο κουμπί , ενώ κρατώντας πατημένο το αριστερό κουμπί του ποντικιού σας . Προσθέστε ένα " πλαίσιο λίστας " ελέγχου στη φόρμα με τον ίδιο τρόπο που προσθέσατε το κουμπί .
Εικόνων 3

δεξιό κλικ στο στοιχείο ελέγχου πλαισίου λίστας και επιλέξτε " Ιδιότητες". Σχετικά με το " Φύλλο ιδιοτήτων ", κάντε κλικ στην καρτέλα "Δεδομένα" και επιλέξτε το αναπτυσσόμενο πλαίσιο για την "Σειρά Τύπος Πηγή " και επιλέξτε " Λίστα τιμών . "
Η

4 Κάντε δεξί κλικ στο νέο κουμπί και επιλέξτε " Ιδιότητες". On " Φύλλο ιδιοτήτων ", κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε το αναπτυσσόμενο πλαίσιο δίπλα στο "On Click " και επιλέξτε " [ Διαδικασία συμβάντος ] . " Κάντε κλικ στο αποσιωπητικά ( ... ) ? . Ένα νέο Microsoft Visual Basic παράθυρο θα ανοίξει , όπου θα γράψετε τον κωδικό σας VBA
5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μέσα σας " Private Sub Command1_Click ( ) " υπορουτίνα για να δημιουργήσετε έναν πίνακα , προσθέστε δύο αρχεία με τα δεδομένα , βρόχος μέσα από τα αρχεία και εμφανίζει τα αποτελέσματα σε ένα στοιχείο ελέγχου πλαισίου λίστας σε νέα φόρμα σας .

Dim DBase Όπως Database

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

Dim X As Integer

Dim stringSQL Όπως String Dim

strgVar Όπως String

Set DBase = CurrentDb

stringSQL = " ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΑΣ newTable ( FirstName TEXT ( 25 ) , Επώνυμο TEXT ( 25 ) ) ? "

DoCmd.RunSQL ( stringSQL )

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

stringSQL = stringSQL & " ΑΞΙΕΣ ( «Ιωάννης» , « Smith ») ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( stringSQL )

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

stringSQL = stringSQL & " ΑΞΙΕΣ ( « Jaime » , « Avelar ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( stringSQL )

Set recordSt = DBase.OpenRecordset ( " newTable " )

recordSt.MoveFirst

Για Χ = 0 Για να recordSt.RecordCount - " ( . FirstName " ) Αξία 1

strgVar = Trim ( . recordSt.Fields ( "Επώνυμο" ) Value) & " recordSt.Fields ( ) & Trim "

List0 . AddItem strgVar

recordSt.MoveNext

Επόμενο X
Η
εικόνων