Modalità di accesso a VBA incrementale Record Cerca

Sapere come effettuare la ricerca tra i record di una tabella di database utilizzando una query in Microsoft Office Access consente di risparmiare tempo durante la ricerca di testo specifico in una colonna . Visual Basic for Applications , noto anche come VBA , è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Microsoft Access e altre applicazioni di MS Office . Access è un sistema di gestione di database relazionale utilizzato per la progettazione di database di piccole dimensioni . Una query viene utilizzato per recuperare informazioni da una tabella di database . Istruzioni
1

Aprire il database di Access Northwind di Microsoft Office . Il database Northwind è incluso nella suite Microsoft Office .
2

Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fare clic sul campo "Inserisci" e selezionare "Modulo ".
3

Digitare quanto segue per creare un nuovo sottoprogramma :

searchRecords Private Sub ( ) per

Premere il tasto " Enter ".
4

digitare quanto segue per creare la variabile " rst" , si intende utilizzare per aprire un nuovo Recordset :

Dim rst Come
Recordset

digitare quanto segue per creare la variabile " DBS " , si intende utilizzare per identificare il database corrente :

Dim dbs As Database

digitare quanto segue per creare la variabile " stringaDaCercare " , si intende utilizzare per contenere i caratteri che si cercherà nella ricerca di record:

Dim stringaDaCercare As String

digitare quanto segue per impostare il database corrente come il database da utilizzare in questa subroutine :

Set dbs = CurrentDb
5

digitare quanto segue per definire la stringa che verrà utilizzato per cercare i record restituiti dalla query , utilizzando il nome di " Daniel " come esempio :

stringaDaCercare = " Daniele "
6

Digitare quanto segue per aprire un nuovo Recordset e interrogare la tabella "Clienti" :

Set rst = dbs.OpenRecordset ( "SELECT * FROM clienti clienti . " ) per

Modificare la seguente riga di codice per interrogare un altro tavolo :

Set rst = dbs.OpenRecordset ( "SELECT * FROM " ) per

digitare quanto segue per passare al primo record dei risultati della query :

rst.MoveFirst
7

digitare quanto segue per ciclo attraverso il Recordset incrementando la posizione Recordset e cercare " Daniel" nel campo "Nome First" colonna :

Do While Not rst.EOF

rst.Fields ( "Nome" ) . Valore = stringaDaCercare Poi

MsgBox " trovato " & stringaDaCercare & " in numero record : " & rst.AbsolutePosition

rst.MoveLast