Πώς να Δείτε το σύνθετο πλαίσιο σε ένα ερώτημα

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

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

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

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

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

Dim strSQL As String

strSQL = " CREATE TABLE datatable ( ΑΡΙΘΜΟΣ ComboIndx , rowData TEXT) ? "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO datatable ( ComboIndx , rowData ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 1 , ' ROW1 ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO datatable ( ComboIndx , rowData ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 2 , ' ROW2 ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO datatable ( ComboIndx , rowData ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 3 , ' ROW2 ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " Επιλογή datatable . * από datatable "

strSQL = strSQL & "WHERE dataTable.rowData = ' ROW2 ' ? "

Me.Combo0.RowSource = strSQL
5

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

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

Δημ. dbs Όπως Database

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

Dim comboString As Integer

Dim SQLstr Όπως String

Ορισμός dbs = CurrentDb

comboString = Me.Combo10.Text

SQLstr = " SELECT dataTable.rowData ΑΠΟ datatable "

SQLstr = SQLstr & "WHERE dataTable.ComboIndx = " & ( comboString ) & " ? "

Set RST = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

MsgBox " τα στοιχεία για το δείκτη combo είναι : " . & rst.Fields ( 0 ) Αξία

rst.Close

dbs.Close
Η

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

Επιλέξτε μια τιμή από το σύνθετο πλαίσιο . Θα « θα δείτε τα δεδομένα για το δείκτη σε ένα πλαίσιο μηνύματος .
Η
εικόνων