Πώς να Μετακίνηση όλων των αντικειμένων από το ένα πλαίσιο λίστας στο άλλο σε Access

Τεκμήρια Χειρισμός πλαίσιο λίστας σε μια εφαρμογή βάσης δεδομένων της Microsoft Access δεν είναι τόσο περίπλοκη διαδικασία , όπως θα νόμιζε κανείς. Στην Access , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications - ή VBA - να σας βοηθήσει να αυτοματοποιήσουν τις διαδικασίες , όπως η μετακίνηση στοιχείων από ένα πλαίσιο λίστας στην άλλη . Η μέθοδος " AddItem " χρησιμοποιείται για να προσθέσει νέα στοιχεία σε ένα στοιχείο ελέγχου πλαισίου λίστας . Η " ListCount « ιδιοκτησία καθορίζει τον αριθμό των γραμμών σε ένα πλαίσιο λίστας , και η μέθοδος " RemoveItem " αφαιρεί ένα στοιχείο από τη λίστα των τιμών που εμφανίζονται σε ένα πλαίσιο λίστας . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Δημιουργία " και κάντε κλικ στο " Σχεδίαση φόρμας . " Κάντε κλικ στο " Λίστα θυρίδας " στο παράθυρο εργασιών Στοιχεία ελέγχου , κάντε κλικ στην επιλογή και τη φόρμα για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας . Δημιουργήστε ένα δεύτερο πλαίσιο λίστας και ένα κουμπί με την ίδια τεχνική . 2

δεξί κλικ στο πρώτο πλαίσιο λίστας , κάντε κλικ στο κουμπί "Ιδιότητες " και κάντε κλικ στην καρτέλα "Δεδομένα" . Επιλέξτε το " Λίστα τιμών " δίπλα στο Row Source Type. Κάντε το ίδιο για το δεύτερο πλαίσιο λίστας .
Εικόνων 3

δεξί κλικ στη φόρμα , κάντε κλικ στο κουμπί "Ιδιότητες " και επιλέξτε " Form" στο " Επιλογή τύπου . " Κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε " [ Διαδικασία συμβάντος ] " δίπλα στο On Load . Κάντε κλικ στο ελλειπτικό να δημιουργήσει συμβάν φόρτωσης της φόρμας
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να προσθέσει τέσσερα στοιχεία στο στοιχείο ελέγχου πλαισίου λίστας : .

Me.List1.AddItem ( " σημείο 1 " )

Me.List1.AddItem ( « σημείο 2 " )

Me.List1.AddItem ( " σημείο 3 " )

Me.List1.AddItem ( " στοιχείο 4 " )
5

δεξιό κλικ στο κουμπί εντολής , κάντε κλικ στο κουμπί " Build Event , "και επιλέξτε " δόμησης κώδικα " για να δημιουργήσετε ένα συμβάν κλικ κουμπί .
Η 6

Αντιγραφή και επικόλληση του παρακάτω κώδικα για να μετακινήσετε όλα τα στοιχεία από το πρώτο πλαίσιο λίστας στο δεύτερο πλαίσιο λίστας , όταν κάνετε κλικ στο κουμπί :

Dim xCntr As Integer

Me.List4.SetFocus

Για xCntr = 0 Για να Me.List1.ListCount - 1

Me.List4.AddItem ( Me.List1.ItemData ( xCntr ) )

Επόμενο xCntr

Για xCntr = 0 Για να Me.List1.ListCount - 1

Me.List1.RemoveItem ( 0 )

Επόμενο xCntr
Η 7

Επιστρέψτε στη βάση δεδομένων της Microsoft Access παράθυρο , και κάντε κλικ στο εικονίδιο "Προβολή" στο παράθυρο Προβολές . Κάντε κλικ στο κουμπί εντολής για να μετακινήσετε τα στοιχεία από το πρώτο πλαίσιο λίστας στην άλλη .
Η
εικόνων