Avviare Microsoft Office Access e selezionare " Database vuoto ", quindi fare clic su "Crea ". Selezionare il menu "Database Tools " poi su " Visual Basic ". Selezionare il menu "Inserisci" quindi su
2
Digitare quanto segue per creare un nuovo sottoprogramma "Modulo ". :
RenameColumns Sub ( ) per
Tipo "Enter . "
3
digitare quanto segue per dichiarare nuove variabili :
Dim stringSQL As String
Dim db As Database
db = CurrentDb
4
Digitare quanto segue per creare una nuova tabella con due campi :
stringSQL = " CREATE TABLE renameFieldsTbl ( ID TESTO ( 25 ) , TESTO del prodotto ( 25 ) ) , "
DoCmd.RunSQL ( stringSQL ) per
MsgBox" la tabella è stata creata "
5
digitare quanto segue per rinominare i campi dopo che sono ! creato : . . .
db.TableDefs ( " renameFieldsTbl " ) campi ( " ID " ) name = " ID_Key "
db.TableDefs ( " renameFieldsTbl " ) campi ( "Prodotto" ) . Name = " Product_Description "
6
Premere " F5 " per eseguire la subroutine .
Programmazione © www.354353.com