Come utilizzare Access 2007 VBA per scorrere e controllare i campi

Saper utilizzare Visual Basic, Applications Edition (VBA ), quando si lavora con Microsoft Access consente di risparmiare tempo quando si ha bisogno di visualizzare contenuti in una tabella di database . È possibile recuperare il contenuto di una tabella di database utilizzando un oggetto Recordset. Recordsets consistono in record (righe ) e campi (colonne ) . Ti danno la possibilità di visualizzare o manipolare i dati in una tabella. A " Per Loop" può essere utilizzato per eseguire il ciclo ogni campo e record in una tabella di database . Cose che ti serviranno
Northwind di Access database di
Mostra più istruzioni
1

lanciare il database Northwind 2007 e fare clic su " Strumenti database . " Fare clic su " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fai clic sul menu "Inserisci" e fare clic su
2

Digitare quanto segue per creare una nuova procedura per eseguire "Modulo ". :

StepThroughFields Private Sub ()

on Error GoTo Err_stepThroughFields :
3

digitare quanto segue per creare variabili utilizzate per leggere la tabella Ordini :

Dim dbs As Database Dim rst

come recordset

Dim rcrdCnt As Integer Dim

fldCnt As Integer
4

digitare quanto segue per definire il database da usare :

Set dbs = CurrentDb
5

digitare quanto segue per aprire un nuovo recordset utilizzando la tabella Ordini :

Set rst = dbs.OpenRecordset ( " ordini " ) economici 6

Digitare quanto segue per un ciclo ogni campo della tabella e visualizzare il nome :

fldCnt = 0 per rst.Fields.Count - 1

Debug.Print rst.Fields ( fldCnt ) . Nome

Avanti fldCnt
7

digitare quanto segue per scorrere tutti i campi in ogni riga della tabella e di visualizzarne il contenuto :

rst.MoveFirst

rcrdCnt = 0 Per rst.RecordCount - 1

fldCnt = 0 Per rst.Fields.Count - . 1

Debug.Print rst.Fields ( fldCnt ) Valore

Avanti fldCnt

rst.MoveNext

Avanti rcrdCnt
8

digitare quanto segue per rilasciare le variabili dalla memoria :

rst.Close

dbs.Close
9

digitare quanto segue per terminare la procedura e catturare eventuali errori :

Exit_stepThroughFields :

Exit Sub

Err_stepThroughFields : Exit_stepThroughFields

MsgBox Err.Description

Riprendi ' :

End Sub

Premere " F5 " per eseguire il procedimento e le informazioni di campo di visualizzazione.

• Come estrarre WinZip mediante Visual Basic 
• Come inviare sequenze ESC con VB.NET