Weten hoe snel een query in Microsoft Access en vervolgens gebruiken met Visual Basic for Applications ( VBA ) kunt u tijd besparen . Access is een relationele database management systeem dat is opgenomen in de Microsoft Office suite . Een query wordt gebruikt om gegevens uit een database tabel te halen . VBA is een programmeertaal die wordt gebruikt om routinematige taken in Access en andere Microsoft Office-toepassingen te automatiseren . In een paar stappen kunt u een subroutine met behulp van VBA op te vragen gegevens uit de tabel Werknemers in de Noordenwind- database te maken . Wat je nodig hebt
Microsoft Office Access
Toon Meer Aanwijzingen
1 Open de Noordenwind Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite . Kopen van 2 Klik op " Create" en selecteer " Query-ontwerp . " Selecteer het tabblad " Tables " , selecteer " Werknemers " en klik vervolgens op " Toevoegen . " Kies " Close ".
3 Dubbelklik op " Company ", "Achternaam " en "Voornaam " om velden toe te voegen . Selecteer " SQL View " in de " resultaten" venster . Druk op " Ctrl " en " C " om de Select-query kopiëren .
4 Klik op " Database Tools" en selecteer vervolgens " Visual Basic . " Typ het volgende om een nieuwe subroutine maken: " . Enter" Private Sub createVBAQuery
( ) Pers
5 Typ het volgende om uw variabelen op te geven : < br Dim strSQL > As String Dim rst
als Recordset
Dim dbs Als Database Set
dbs = CurrentDb
Press 6 " Ctrl " en " V " om de Select-query in de subroutine plakken . Voeg " strSQL = " aan het begin van de query en voeg einde citaten aan het einde van de query als volgt : . . StrSQL
= " SELECT Employees.Company , Werknemers [ achternaam ] , Werknemers [ voornaam ] FROM Werknemers ; . "
Type 7 de volgende om uw Select-query openen en de resultaten Set
rst = dbs.OpenRecordset ( strSQL ) rst
. MoveLast rst.MoveFirst
Verlanglijstje Terwijl Niet rst.EOF Debug.Print rst.Fields
( 0 ) Value & . " | " & _
rst.Fields ( 1 ) Waarde _
& . " | " . & rst.Fields ( 2 ) Waarde
rst.MoveNext
Loop
< br >
|
