Πώς να προσθέσει πολλαπλών στήλη δεδομένων στο πλαίσιο λίστας Access

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

Ξεκινήστε το Microsoft Office Access 2007 και επιλέξτε "Blank Database " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". 2

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

δεξί κλικ στο " List0 " , επιλέξτε "Ιδιότητες" και κάντε κλικ στην καρτέλα "All " . Πληκτρολογήστε " 2 " δίπλα στο " Στήλη Count" . Επιλέξτε την καρτέλα "Δεδομένα" και πληκτρολογήστε "Value List" δίπλα στο " Row Τύπος Πηγή ».
Η 4

δεξί κλικ στο " Command0 " και επιλέξτε " Ιδιότητες" . Κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε " [ Διαδικασία συμβάντος ] " δίπλα στο " On Click " . Κάντε κλικ στο αποσιωπητικά ( ... ) για να ανοίξετε το "Microsoft Visual Basic" παράθυρο .

Πατήστε το " Ctrl " και "A " και πιέστε "Διαγραφή " για να αφαιρέσετε τα υπάρχοντα κώδικα .
5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη μονάδα σας . Ο κωδικός αυτός θα προσθέσετε δεδομένα σε δύο στήλες στο στοιχείο ελέγχου πλαισίου λίστας σας .

Option Compare Database

Private Sub Command0_Click ( )

Dim dataToWrite As String

dataToWrite = " Στήλη 1 - Σειρά 1 ? Στήλη 2 - Σειρά 1 ? "

dataToWrite = dataToWrite & " Στήλη 1 - Σειρά 2 ? Στήλη 2 - Σειρά 2 "

Me.List0.RowSource = dataToWrite

End Sub
Η

6 Κλείστε το "Microsoft Visual Basic" Παράθυρο και κάντε δεξί κλικ " Form1 " και στη συνέχεια επιλέξτε " Προβολή φόρμας " . Κάντε κλικ στο " Command0 " να εκτελέσει τον κώδικά σας .
Η
εικόνων