Saper creare rapidamente una query in Microsoft Access e quindi utilizzarlo con Visual Basic, Applications Edition (VBA) consente di risparmiare tempo. Access è un sistema di gestione di database relazionale che è incluso nella suite Microsoft Office. Una query viene utilizzato per recuperare i dati da una tabella del database. VBA è un linguaggio di programmazione che viene utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Microsoft Office. In pochi passi è possibile creare una subroutine utilizzando VBA per interrogare i dati dalla tabella Employees del database Northwind.

istruzione

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

2 Fai clic su "Crea" e selezionare "query". Selezionare la scheda "Tabelle", selezionare "Dipendenti" e poi cliccare su "Aggiungi". Selezionare "Chiudi".

3 Fare doppio clic su "Società", "Cognome" e "Nome" per aggiungere i campi. Selezionare "SQL View" nel riquadro "Risultati". Premere il tasto "Ctrl" e "C" per copiare la query di selezione.

4 Fai clic su "Strumenti database" e quindi selezionare "Visual Basic". Digitare la seguente per creare una nuova subroutine:

Private Sub createVBAQuery ()

Premere Invio."

5 Digitare la seguente per dichiarare le variabili:

Dim strSQL As String

Dim rst come Recordset

DBS fiochi come database

Set dbs = CurrentDb

6 Premere il tasto "Ctrl" e "V" per incollare la query di selezione all'interno della subroutine. Aggiungere "strSQL =" all'inizio della query e aggiungere le citazioni finali alla fine della query come segue:

strSQL = "SELECT Employees.Company, Lavoratori [Cognome], Lavoratori [Nome] dai dipendenti;.".

7 Digitare la seguente per aprire la query di selezione e visualizzare i risultati.

Set rst = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

Do While Non rst.EOF

Debug.Print rst.Fields(0).Value & "|" & _

rst.Fields (1) .Value & _

"|" & Rst.Fields (2) .Value

rst.MoveNext

Ciclo continuo