Ξεκινήστε το Microsoft Office Access και επιλέξτε "Blank Database " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Επιλέξτε από το μενού " Εργαλεία βάσης δεδομένων " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Επιλέξτε το μενού "Εισαγωγή " και στη συνέχεια κάντε κλικ στο κουμπί " Ενότητα ". 2
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα υπορουτίνα :
Sub renameColumns ( )
Πληκτρολογήστε " Enter ".
εικόνων 3
Πληκτρολογήστε τα παρακάτω για να κηρύξει νέες μεταβλητές :
Dim stringSQL Όπως String
Dim db Όπως Database
Set db = CurrentDb
Η 4
Πληκτρολογήστε τα ακόλουθα για να δημιουργήσετε έναν νέο πίνακα με δύο πεδία :
stringSQL = " CREATE TABLE renameFieldsTbl ( ID TEXT ( 25 ) , ΚΕΙΜΕΝΟ προϊόντων ( 25 ) ) ? "
DoCmd.RunSQL ( stringSQL )
MsgBox" το τραπέζι σας έχει δημιουργηθεί "
5
Πληκτρολογήστε το παρακάτω για να μετονομάσετε τα πεδία σας , αφού είστε ! δημιουργήθηκε: . . .
db.TableDefs ( " renameFieldsTbl " ) πεδία ( « ID » ) Το όνομα = " ID_Key "
db.TableDefs ( " renameFieldsTbl " ) πεδία ( "Προϊόν" ) . Όνομα = " Product_Description "
Η
6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε την υπορουτίνα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα