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

istruzione

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

2 Fai clic su "Strumenti di database", quindi selezionare "Visual Basic" per aprire la finestra di Microsoft Visual Basic. Fare clic su "inserire" e selezionare "Modulo".

3 Digitare la seguente per creare una nuova subroutine:

searchRecords Private Sub ()

Premere Invio."

4 Digitare quanto segue per creare la variabile "prima"; 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:

DBS fiochi come database

Digitare quanto segue per creare la variabile "stringaDaCercare"; si intende utilizzare per contenere caratteri che cercheranno nella ricerca di registrazione:

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 "Daniel" come esempio:

stringaDaCercare = "Daniel"

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

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

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

Set rst = dbs.OpenRecordset ( "SELECT <nome tabella>. * FROM <nome tabella>")

Digitare la seguente per passare al primo record dei risultati della query:

rst.MoveFirst

7 Digitare quanto segue al ciclo attraverso il Recordset incrementando la posizione Recordset e cercare "Daniel" nella colonna "Nome":

Do While Non rst.EOF

Se rst.Fields ( "Nome"). Value = stringaDaCercare Poi

MsgBox "Found " & stringToSearch & " in record number: " & rst.AbsolutePosition

rst.MoveLast

Altro

rst.MoveNext

Finisci se

Ciclo continuo

Per cercare altri insiemi di caratteri in una colonna diversa, modificare le seguenti righe di codice:

stringaDaCercare = "<il testo da ricercare>"

Se rst.Fields ( "<nome colonna>"). Value = stringaDaCercare Poi

8 Digitare la seguente per rilasciare le variabili dalla memoria:

rst.Close

dbs.Close

Premere il tasto "F5" per eseguire la subroutine.