Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte databázu Northwind aplikácie Microsoft Office Access . Databáza Northwind je súčasťou balíka Microsoft Office . 
 2 
 Kliknite na " Databázové nástroje " , potom vyberte " Visual Basic " , otvorte okno Basic Visual Microsoft . Kliknite na " Vložiť " poľa a vyberte 
 3 
 Zadajte nasledujúci vytvoriť nový podprogram " modul " . : 
 
 Sub DAORecordsetUpdate ( ) 
 
 Zadajte " . Enter " 
 4 
 Zadajte nasledujúce vytvárať premenné , ktoré budete používať na aktualizáciu záznamu : 
 
 Dim db Ako DAO.Database 
 
 Dim RST ako DAO.Recordset 
 5 
 Zadajte nasledujúce definovať aktuálnu databázu : 
 
 Set db = CurrentDb 
 
 Zadajte nasledujúci dotaz tabuľka " zamestnanci " : 
 
 Set rst = db.OpenRecordset ( " Vyberte zamestnancov * Od zamestnancov ; . " ) 
 6 
 Zadajte nasledujúci presunúť Recordset na posledný záznam a aktualizovať " Poznámky " stĺpec : . 
 
 rst.MoveLast 
 
 rst.Edit 
 
 rst.Fields ( " Poznámky " ) Value = " Tento zamestnanec už pracuje tu . " 
 
 7 
 Zadajte nasledujúce aktualizovať Recordset zatvorte ho : 
 
 rst.Update 
 
 rst.Close 
 
 Stlačte " F5 " na spustenie podprogram .