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 .