Ξεκινήστε το Microsoft Office Access 2007 , επιλέξτε "Blank Database " και κάντε κλικ στο κουμπί " Δημιουργία ". Επιλέξτε " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic ". 2
Επιλέξτε από το μενού "Εισαγωγή" και κάντε κλικ στο "ενότητα ".
Εικόνων 3
Αντιγραφή και επικόλληση το παρακάτω κώδικα στο νέο module σας για να δημιουργήσετε μια νέα υπορουτίνα :
Private accessQueryParameters Sub ( )
Dim db Όπως Database
Dim rst Όπως εγγραφών
dim strSQL As String
Set db = CurrentDb
strSQL = " CREATE TABLE tmpTable ( ΑΡΙΘΜΟΣ NumField , EmployeeName ΚΕΙΜΕΝΟ , Θέση TEXT) ? "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO tmpTable ( NumField , EmployeeName , Θέση ) "
strSQL = strSQL & " ΑΞΙΕΣ ( 1 , « Άννα »,« δάσκαλος » ) ? "
DoCmd.SetWarnings Λάθος
DoCmd.RunSQL ( strSQL )
strSQL = " Επιλέξτε tmpTable * από tmpTable ? . "
Set RST = db.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
Do While Not rst.EOF
Debug.Print rst.Fields ( " EmployeeName " ) . Value & " είναι ένα « & Υπο
Η υπορουτίνα θα δημιουργήσετε έναν νέο πίνακα και να προσθέσετε αρχεία σε αυτό . Ένα ερώτημα στη συνέχεια θα εξάγει τα περιεχόμενα του πίνακα στο Παράθυρο εξόδου . Αυτό είναι ένα παράδειγμα για το πώς μπορείτε να δημιουργήσετε και να καταρτίσει ένα πρόγραμμα χρησιμοποιώντας VBA . Μπορείτε να γράψετε και να δημιουργήσετε τον δικό σας κώδικα VBA για να εκτελέσει μια λειτουργία που θέλετε .
Η
4 Κάντε κλικ στο μενού " Debug " και επιλέξτε " name> Compile
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα