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 < p > 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.