Come eseguire una query in Access VBA

Microsoft Access , parte della suite di Microsoft Office , è un programma per la creazione e la gestione dei dati . Visual Basic, Applications Edition (VBA ) è un linguaggio di scripting che gli sviluppatori di Office utilizzano per eseguire operazioni su tali dati , tra cui le query che richiedono poco o nessun intervento da parte dell'utente . Esecuzione di query in VBA consente agli sviluppatori di scrivere programmi in grado di produrre i dati dei programmi devono funzionare . Ad esempio , si può scrivere un programma VBA che genera automaticamente un report mensile che mostra fondi erogati ai dipendenti. Istruzioni
1

Aprire un database esistente in Access . Fare clic sull'icona " query " nel menu "Crea " per iniziare una nuova query .

Doppio clic sulla voce in alto nella " Mostra tabella " finestra di dialogo che viene visualizzata 2 per specificare la tabella da che si vuole fare una query .
3

doppio clic il carattere "*" nella piccola finestra che visualizza i nomi di tutti i campi della tabella si è scelto di eseguire una query . Questa azione crea una query che recupera i dati da tutti i campi della tabella in una sola volta . Annotare il nome di uno qualsiasi dei campi della tabella ( tranne l'asterisco ) . La query VBA riporterà i dati per questo campo .
4

Premere " Ctrl + S" per visualizzare la finestra di dialogo che richiede il nome della query. Tipo " Query1 " e quindi fare clic su "OK" per salvare la query .
5

Premere " Alt + F11 " per entrare nell'ambiente di sviluppo integrato di Visual Basic ( IDE ) e quindi fare clic sulla voce "Modulo " sotto il menu "Inserisci" . Questo produce una nuova finestra del codice in cui è possibile inserire il vostro programma .
6 Tipo

o incollare il programma che segue ovunque nella finestra del nuovo modulo di codice . Tipo sul testo " YOUR_FIELD_NAME " con il nome del campo che si annotò nel passaggio 3.

Pubblico RunQuery Sub ( ) per

Const cstrQueryName = " Query1 "

Dim dbs Come DAO.Database

Dim rst Come DAO.Recordset

Set dbs = CurrentDb

'Open recordset esistente interrogazione

Set rst = DBS . OpenRecordset ( cstrQueryName ) per

' il ciclo di tutti i record

Do While Not rst.EOF

Debug.Print rst ! [ YOUR_FIELD_NAME ]

rst.MoveNext

loop