Πώς να δημιουργήσετε μια λειτουργία προγραμματισμού Microsoft Access

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

1

Ανοίξτε το Microsoft Access και να ξεκινήσει μια νέα κενή βάση δεδομένων . 2

Κάντε κλικ στο " Έντυπα " αντικείμενο στη γραμμή εργαλείων Βάση δεδομένων . Αυτό βρίσκεται στην αριστερή πλευρά της σελίδας υπό τον τίτλο των « αντικειμένων » .
Εικόνων 3

Κάντε διπλό κλικ στο " Δημιουργία φόρμας σε προβολή σχεδίασης " .
Η 4

Προσθέστε ένα πλαίσιο λίστας στη φόρμα σε προβολή σχεδίασης. Όταν σας ζητηθεί , καθορίστε ότι θα πληκτρολογήσετε τις τιμές αυτόματα κατά τη διάρκεια του οδηγού πλαίσιο λίστας . Πληκτρολογήστε " Μήλα " , " πορτοκάλια " , " Λεμόνια " και " Bananas" για τη λίστα τα στοιχεία σας . Ονομάστε το πλαίσιο λίστας " lstFruit " . Ολοκληρώστε τα βήματα για τον οδηγό και να παρατηρήσετε πλαίσιο λίστας σας με τις τιμές στη φόρμα. Κάντε το πλαίσιο λίστας είναι σε θέση να κάνει πολλαπλές επιλογές από το παράθυρο των ιδιοτήτων .
5

Προσθέστε ένα κουμπί εντολής . Κάντε κλικ στο κουμπί "Άκυρο " , όταν ξεκινήσει ο οδηγός . Το κουμπί σας θα εξακολουθεί να είναι στην πρώτη σελίδα . Ονομάστε το κουμπί εντολής " cmdClear » και ορίστε την ιδιότητα του « Λεζάντα » για να "Clear" .
Η 6

Ανοίξτε το Visual Basic παράθυρο κάνοντας κλικ στο εικονίδιο « Κώδικα » στην εργαλειοθήκη του « σχεδιασμού φόρμας » .
Η 7

Πληκτρολογήστε την ακόλουθη συνάρτηση στο παράθυρο κώδικα : ClearList λειτουργία ( LST as πλαίσιο λίστας ) Όπως Boolean Dim varItem Όπως Variant ? Αν lst.MultiSelect = 0 τότε lst = Null Else For Each varItem Σε lst.ItemsSelected lst.Selected ( varItem ) = False Επόμενο End If ClearList = True End Function Αυτή η λειτουργία καθαρίζει τις επιλογές από το πλαίσιο λίστας , όταν του ζητείται . Για να λειτουργήσει η λειτουργία , θα πρέπει να το καλέσετε και να περάσει ένα πλαίσιο λίστας για να
8

Καλέστε τη λειτουργία από τη διαδικασία cmdClear_Click ως εξής : . Private Sub cmd_Clear & # xD ? ClearList ( lstClear ) End Sub Όπως μπορείτε να δείτε , καλέσαμε τη λειτουργία του « ClearList » και πέρασε πλαίσιο λίστας μας lstClear » σε αυτό? λέγοντας τη λειτουργία ότι αυτή είναι η πλαίσιο λίστας που θέλετε να χρησιμοποιήσετε .
Η 9

Δοκιμή λειτουργίας σας, κάνοντας κλικ στο κουμπί " CmdClear » ενόψει «Μορφή» .
εικόνων
Η