Βοήθημα για MS Access Σύνθετη Έντυπα

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

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

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

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

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

Option Compare Database

Private Sub Command2_Click ( )

Dim sqlStr As String

Dim prductSelected Όπως String

Me.Combo3.SetFocus

prductSelected = Me.Combo3.Text

sqlStr = "SELECT Προϊόντα . [ Ονομασία προϊόντος ] , Προϊόντα . [ Τιμοκατάλογος ] "

sqlStr = sqlStr & " ΑΠΟ Προϊόντα "

sqlStr = sqlStr & " WHERE ( ( ( Products. [ Όνομα προϊόντος] ) = " " & ( prductSelected ) &" " ) ) ? "

Me.List0.RowSourceType = " Πίνακας /Ερώτημα "

Me.List0.RowSource = sqlStr

End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo3.RowSourceType = " Πίνακας /Ερώτημα "
<" . ΕΠΙΛΟΓΗ Προϊόντα [ Όνομα προϊόντος] ΑΠΟ Προϊόντα? " p> Me.Combo3.RowSource =

End Sub
5

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