Πώς να εκτυπώσετε τα περιεχόμενα ενός πλαισίου λίστας σε VBA

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

Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση της Microsoft Access , κάντε κλικ στην καρτέλα "Δημιουργία " και κάντε κλικ στο " Σχεδίαση φόρμας " για να δημιουργήσετε μια νέα φόρμα . Κάντε κλικ στο " Λίστα Box " από το " ελέγχου " παράθυρο και κάντε κλικ στη φόρμα για να προσθέσετε ένα νέο στοιχείο ελέγχου σύνθετου πλαισίου . Κάντε κλικ στο " Command Button " για να προσθέσετε ένα νέο κουμπί . Προσθέστε ένα δεύτερο κουμπί με την ίδια διαδικασία . 2

Κάντε δεξί κλικ στο πρώτο κουμπί εντολής και κάντε κλικ στο "Ιδιότητες". Κάντε κλικ στην καρτέλα " Event " , επιλέξτε " [ Διαδικασία συμβάντος ] , " και κάντε κλικ στο ελλειπτικό για να δημιουργήσετε ένα συμβάν click για αυτό το κουμπί .
Εικόνων 3

Προσθέστε τον ακόλουθο κώδικα στο εσωτερικό του κλικ το κουμπί εκδήλωση να συμπληρώσετε τη λίστα με τέσσερα στοιχεία :

Me.List0.RowSourceType = " Λίστα τιμών "

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

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

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

Me.List0.AddItem ( « σημείο 4 " )
Η 4

Επιστρέψτε στην Microsoft Access και κάντε δεξί κλικ στο πρώτο κουμπί εντολής . Κάντε κλικ στο " Ιδιότητες" και κάντε κλικ στην καρτέλα " Event" , στη συνέχεια, επιλέξτε " [ Διαδικασία συμβάντος ] " και κάντε κλικ στο ελλειπτικό για να δημιουργήσετε ένα συμβάν click για αυτό το κουμπί .
5

Προσθέστε τον ακόλουθο κώδικα για να εκτυπώσετε το περιεχόμενα στο " πλαίσιο λίστας " ελέγχου στο παράθυρο Immediate :

Δημ. X

για Χ = 0 έως 3

Debug.Print ( Me.List0.ItemData ( X ) )

Επόμενο X
Η

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