Πώς να αποκτήσετε πρόσβαση Υποφόρμα δεδομένων

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

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

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

Κάντε δεξί κλικ στη δευτερεύουσα φόρμα για να εμφανιστεί το " Φύλλο ιδιοτήτων ". Κάντε κλικ στην καρτέλα "Δεδομένα" και δίπλα στο αντικείμενο προέλευσης , επιλέξτε " Table.Suppliers . "
Η

4 Κάντε δεξί κλικ στη δευτερεύουσα φόρμα για να εμφανίσετε το φύλλο ιδιοτήτων . Κάντε κλικ στην καρτέλα " Event " , και δίπλα Με κλικ , επιλέξτε " [ Διαδικασία συμβάντος ] " για να ανοίξετε το Microsoft Visual Basic παράθυρο .
5

Πληκτρολογήστε το παρακάτω, για να έχουν πρόσβαση στα δεδομένα δευτερεύουσα φόρμα και να εμφανίσετε τα αποτελέσματα από τις τρεις πρώτες στήλες , μέσω της άμεσης Window :

Private Sub Command2_Click ( )

Dim tmpString Όπως String

Dim rst Όπως DAO.Recordset

Set RST = Me.Child0.Form.Recordset

rst.MoveFirst

Ενώ δεν rst.EOF

tmpString = rst.Fields ( 1 ) Value & . "