Πώς να αποκτήσετε πρόσβαση Ερωτήματος Πλαίσιο λίστας

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

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . 2

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

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

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο " Private Sub Command0_Click ( ) " : .

Dim strSQL As String

strSQL = "SELECT Παραγγελίες . [Υπάλληλος ID ] , "

strSQL = strSQL & " Παραγγελίες . [ID πελάτη] , παραγγελίες . [ αποσταλεί Ημερομηνία] , "

strSQL = strSQL & " Παραγγελίες . [ Όνομα πλοίου ] , παραγγελίες . [ Ship Διεύθυνση ] "

strSQL = strSQL & " ΑΠΟ Παραγγελίες "

strSQL = strSQL & "WHERE ( ( ( Orders. [ Διεύθυνση Ship ] ) = '123 8th Street » ) ) ? "

Me.List0.RowSource = strSQL

Αυτός ο κώδικας θα θέσει ερώτημα στο πίνακα "Παραγγελίες" και ορίστε το " RowSource " ιδιότητα του στοιχείου ελέγχου πλαισίου λίστας .
5

Επιστρέψτε στο παράθυρο της Microsoft Access και κάντε δεξί κλικ " List0 , "και στη συνέχεια επιλέξτε" Ιδιότητες ". Κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε " [ Διαδικασία συμβάντος ] " δίπλα στο " Μετά την ενημέρωση . " Κάντε κλικ στο αποσιωπητικά ( ... ) για να ανοίξετε το παράθυρο "Microsoft Visual Basic"
Η 6

αντιγραφή και επικόλληση τον παρακάτω κωδικό στο " Private Sub List0_Click ( ) " : .

Dim dbs Όπως Database

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

Dim SQLstr Όπως String Dim

I As Integer

Set dbs = CurrentDb

Για I = 0 To Me ! List0.ListCount

Αν Me ! List0.Selected ( Ι) Στη συνέχεια

SQLstr = " . [ αποσταλεί Ημερομηνία] SELECT Παραγγελίες ΑΠΟ Παραγγελίες "

SQLstr = SQLstr & "WHERE Παραγγελίες [Υπάλληλος ID ] = ". & ( Me! List0.ItemData (Ι ) ) & " ? "

Set RST = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

Debug.Print " Αποστολή ημερομηνία για επιλεγμένο στοιχείο : " & rst.Fields ( 0 ) Αξία

rst.Close
.

End If

Επόμενος

dbs.Close

Αυτός ο κωδικός θα εμφανιστεί το " Αποστέλλεται Date" για στοιχεία που έχουν επιλεγεί στο πλαίσιο λίστας . Τα αποτελέσματα θα εμφανιστούν στο παράθυρο " Άμεση " .
Η

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