1 Ανοίξτε τη βάση δεδομένων Northwind , κάντε κλικ στο μενού "Δημιουργία " και κάντε κλικ στο " Form Design " στο " Έντυπα « παράθυρο . Κάντε κλικ στην καρτέλα " Σχεδίαση " και επιλέξτε " Box List" στο " ελέγχου " παράθυρο . Κάντε κλικ στο "Form" στο " Detail" περιοχή και σύρετε το ποντίκι σας , ενώ κρατώντας πατημένο το κουμπί του ποντικιού για να σχεδιάσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας . Κάντε κλικ στο " κουμπί" και να χρησιμοποιούν την ίδια τεχνική για να συντάξει ένα νέο κουμπί στη φόρμα . 2
δεξιό κλικ στο νέο στοιχείο ελέγχου πλαισίου λίστας σας και κάντε κλικ στο "Ιδιότητες". Κάντε κλικ στην καρτέλα "Μορφή " και πληκτρολογήστε " 5 " δίπλα στο " Πλήθος στηλών . "
Εικόνων 3
Κάντε κλικ στην καρτέλα "Δεδομένα" , και να αντιγράψετε και να επικολλήσετε τον κώδικα SQL που αναφέρονται παρακάτω δίπλα στο " Προέλευση γραμμής " :
SELECT Customers.Company , πελάτες [ Επώνυμο ] , Πελάτες [ Όνομα ] , Πελάτες [ Διεύθυνση E - mail] , Πελάτες [ Job Title] ΑΠΟ πελάτες ?
. . . . Φτηνές 4
δεξιό κλικ στο νέο κουμπί στη φόρμα και κάντε κλικ στο "Ιδιότητες". Κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε " [ Διαδικασία συμβάντος ] " δίπλα στο " Με κλικ . " Κάντε κλικ στο ελλειπτικό για να δημιουργήσετε μια νέα διαδικασία " button_click " και ανοίξτε το Microsoft Visual Basic Παράθυρο
5
αντιγραφή και επικόλληση του κώδικα που αναφέρονται παρακάτω στο εσωτερικό της διαδικασίας κουμπί για να δημιουργήσετε δύο μεταβλητές : .
Dim dbs όπως Database
Dim strSQL όπως String
Η 6
αντιγραφή και επικόλληση του κώδικα που αναφέρονται παρακάτω για να καθορίσει την τρέχουσα βάση δεδομένων , όπως η βάση δεδομένων για χρήση :
Set dbs = CurrentDb
Η 7
Αντιγράψτε και επικολλήστε τον κώδικα που αναφέρονται παρακάτω για να εισάγετε ένα νέο πελάτη στην " Πελάτες " πίνακα:
strSQL = " INSERT INTO πελάτες ( Company, [ Επώνυμο ] , [ Όνομα ] , [ E-mail ] , [ Τίτλος εργασίας ] ) "
strSQL = strSQL & " ΑΞΙΕΣ ( « Compnay 1 », « Smith », « John », « johnsmith @ yahoo . com »,« Διαχειριστής » ) ? "
dbs.Execute ( strSQL )
8
Αντιγράψτε και επικολλήστε την ακόλουθη γραμμή κώδικα για να ανανεώσετε το ερώτημα στο στοιχείο ελέγχου πλαισίου λίστας και εμφανιστεί ο νέος πελάτης πρόσθεσε :
List0.Requery
Η 9
Επιστρέψτε στην Microsoft Access παράθυρο και κάντε κλικ στο εικονίδιο "Προβολή" . Κάντε κλικ στο κουμπί για να εκτελέσετε τον κωδικό σας . Μετακινηθείτε προς τα κάτω το πλαίσιο λίστας , και θα δείτε το νέο πελάτη πρόσθεσε.
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα