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 .