Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Access a zvoľte " Prázdna databáza " kliknite na tlačidlo " Vytvoriť " . Zvoľte menu " Database Tools " , potom kliknite na " Visual Basic " . Zvoľte menu " Vložiť " a potom kliknite na " modul " .
2
Zadajte nasledujúci vytvoriť nový podprogram :
Sub renameColumns ( )
Typ " Enter . "
3
Zadajte nasledujúce vyhlásiť nové premenné :
Dim stringSQL As String
Dim db Ako databáza
Set db = CurrentDb
4
Zadajte nasledujúci vytvoriť novú tabuľku s dve polia :
stringSQL = " CREATE TABLE renameFieldsTbl ( ID TEXT ( 25 ) , TEXT produktu ( 25 ) ) ; "
DoCmd.RunSQL ( stringSQL )
MsgBox " Váš stôl je vytvorený "
5
zadajte nasledujúce premenovať poľa potom , čo sa to ! vytvorené : ...
db.TableDefs ( " renameFieldsTbl " ) Fields ( " ID " ) Name = " ID_Key "
db.TableDefs ( " renameFieldsTbl " ) Fields ( " Produkt " ) . Name = " Product_Description "
6
Stlačte " F5 " spustiť podprogram .