Ako používať aplikáciu Access 2007 VBA krokovať a skontrolujte Pole

Vedieť , ako používať Visual Basic for Applications ( VBA ) , pri práci s aplikáciou Microsoft Access vám môže ušetriť čas , kedy budete potrebovať na zobrazenie obsahu v databázovej tabuľke . Môžete načítať obsah z databázovej tabuľky pomocou objektu Recordset . Sady záznamov sa skladajú záznamov ( riadkov ) a polí ( stĺpcov ) . Dávajú vám flexibilitu , aby zobrazoval alebo manipulovať s dátami v tabuľke . " Pre Loop " môžu byť použité k prechádzať každej oblasti a záznam v databázovej tabuľke . Veci , ktoré budete potrebovať
Access Northwind databázy
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite databáze Northwind 2007 a ​​kliknite na tlačidlo " Databázové nástroje . " Kliknite na " Visual Basic " , otvorte Visual Basic okno Microsoft . " . Modul " Kliknite na " Vložiť " menu a kliknite
2

Zadajte nasledujúci vytvoriť nový postup na vykonanie :

Private Sub stepThroughFields ( )

on Error GoTo Err_stepThroughFields :
3

Zadajte nasledujúci vytvoriť premenné použité čítať tabuľku objednávky :

Dim dbs ako databáza

Dim rst ako Recordset

Dim rcrdCnt As Integer

Dim fldCnt As Integer
4

Zadajte nasledujúce definovať databázu používať :

Set dbs = CurrentDb
5

Zadajte nasledujúce otvoriť nové Recordset pomocou tabuľky objednávky :

Set rst = dbs.OpenRecordset ( " objednávky " )
6

Zadajte nasledujúce prechádzať všetky polia v tabuľke a zobrazí meno :

fldCnt = 0 rst.Fields.Count - 1

Debug.Print rst.Fields ( fldCnt ) . Meno

Ďalšie fldCnt
7

zadajte nasledujúce slučku cez všetky polia v každom riadku tabuľky a zobrazí jeho obsah :

rst.MoveFirst

rcrdCnt = 0 To rst.RecordCount - 1

fldCnt = 0 rst.Fields.Count - . 1

Debug.Print rst.Fields ( fldCnt ) Hodnota

Ďalšie fldCnt

rst.MoveNext

Ďalšie rcrdCnt
8

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

rst.Close

dbs.Close
9

Zadajte nasledujúci na koniec svojho postupu a zachytiť prípadné chyby :

Exit_stepThroughFields :

Exit Sub

Err_stepThroughFields :

MsgBox Err.Description

Resume " Exit_stepThroughFields :

End Sub

Stlačte " F5 " na spustenie procedúry a zobrazenie informácií v teréne .

• Predchádzajúca strana: Ako extrahovať WinZip pomocou jazyka Visual Basic 
• Ďalšia strana: Ako poslať ESC sekvencie s VB.NET