Ako získať prístup k vyhľadávaniu VBA Inkrementálny záznam

Vedieť , ako prehľadávať záznamy z databázovej tabuľky pomocou dotazu v programe Microsoft Office Access vám môže ušetriť čas pri hľadaní konkrétneho textu v stĺpci . Visual Basic for Applications , tiež známy ako VBA je programovací jazyk používaný pre automatizáciu rutinných úloh v aplikácii Microsoft Access a ďalších aplikácií MS Office . Access je relačný databázový systém slúži k navrhovaniu malých databáz . Otázka sa používa na načítanie informácií z databázovej tabuľky . Pokyny dovolená 1

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 " . :

Private Sub searchRecords ( )

Stlačte tlačidlo " ENTER " .
4

Zadajte nasledujúci vytvoriť " rst " premenné , budete používať na otvorenie novej Recordset :

Dim rst ako Recordset

Zadajte nasledujúci vytvoriť " DBS " , premenná , budete používať na identifikáciu aktuálnej databáze :

Dim dbs ako databáza

Zadajte nasledujúci vytvoriť " stringToSearch " premenné , ho budete používať držať znaky , ktoré budete hľadať v hľadaní záznamu :

Dim stringToSearch As String

Zadajte nasledujúce nastaviť aktuálnu databázu ako databázu , ktorú chcete použiť v tomto podprograme :

Set DBS = CurrentDb
5

Zadajte nasledujúce definovať reťazec , ktorý sa bude používať pre vyhľadávanie záznamov vrátených dotazom , pomocou názvu " Daniel " ako príklad :

stringToSearch = " Daniel "
6

Zadajte nasledujúce otvoriť nové Recordset a otázka " klientov " tabuľka :

Set rst = dbs.OpenRecordset ( " SELECT * FROM Zákazníci Zákazníci . " )

Upraviť nasledujúci riadok kódu dotazu inú tabuľku : klipart

Set rst = dbs.OpenRecordset ( " SELECT * FROM

< . ; názov table > " )

Zadajte nasledujúce presunúť na prvý záznam výsledkov dotazu :

rst.MoveFirst
7

zadajte nasledujúce slučky cez Recordset pomocou zvyšovaní pozíciu Recordset a hľadajte " Daniel " v " Meno " stĺpci :

robiť , keď nie je rst.EOF

Ak rst.Fields ( " Krstné meno " ) . Value = stringToSearch Potom

MsgBox " Našiel " a stringToSearch & " v rekordnom počte : " & rst.AbsolutePosition

rst.MoveLast

Else

rst.MoveNext

End If

Loop

Ak chcete hľadať iné sady znakov v inom stĺpci , upravte nasledujúce riadky kódu :

stringToSearch = " "

Ak rst.Fields ( " " ) . Value = stringToSearch Potom
8

zadajte nasledujúce uvoľniť premenné z pamäte :

rst.Close

dbs.Close

Stlačte " F5 " spustiť podprogram
< . br >

• Predchádzajúca strana: Aké sú rôzne udalosti v jazyku Visual Basic ? 
• Ďalšia strana: Aké sú Visual Basic terminológia