Microsoft Access , onderdeel van de Microsoft Office suite , is een programma voor het maken en beheren van gegevens . Visual Basic for Applications ( VBA ) is een scripttaal die Office -ontwikkelaars gebruiken om bewerkingen op die gegevens , inclusief verzoeken die ingreep weinig of geen gebruiker vereisen . Query's in VBA stelt ontwikkelaars in staat om programma's in staat om de gegevens van de programma's moeten draaien produceren schrijven . Zo kunnen ze een VBA programma dat automatisch genereert een maandelijks rapport met fondsen uitbetaald aan werknemers te schrijven . Instructies
1 Open een bestaande database in Access . Klik op de " Query-ontwerp " icoon in het menu "Create " om een nieuwe query te beginnen .
Dubbelklik op het bovenste item in de ' Tabel weergeven ' dialoogvenster 2 dat verschijnt aan de tabel specificeren van die u wilt een query te maken .
3 Dubbelklik op het teken "*" in het kleine venster dat de namen van alle velden in de tabel die u koos om een query weergeeft . Deze actie zorgt voor een query die gegevens uit alle velden van de tabel in een keer haalt . Noteer de naam van een van de velden van de tabel ( met uitzondering van het sterretje ) . Uw VBA vraag zal de gegevens voor dit veld te rapporteren .
Press 4 "Ctrl + S " om het dialoogvenster de naam van de query vraagt weer . Type " Query1 " en klik op " OK " om de query op te slaan .
5 Druk " Alt + F11 " om de Visual Basic geïntegreerde ontwikkelomgeving ( IDE ) in te voeren en klik vervolgens op de "Module " punt onder het menu "Insert " . Dit levert een nieuwe code venster waarin u uw programma in te voeren .
6 Typ of plak het programma dat overal in het venster van de nieuwe code module volgt . Type over de tekst " YOUR_FIELD_NAME " met de naam van het veld dat u in stap 3 opgeschreven . Public Sub runQuery ( ) op Const cstrQueryName = " Query1 "
Dim dbs Zoals DAO.Database Dim rst
Zoals DAO.Recordset Set
dbs = CurrentDb
' Open recordset op bestaande query-
Set rst = dbs . OpenRecordset ( cstrQueryName ) op ' Loop door alle records
Do While Not rst.EOF Debug.Print rst
[ YOUR_FIELD_NAME ] rst.MoveNext
!
Loop
' Sluit de recordset en database rst.Close
dbs.Close End Sub
> de oproep aan de OpenRecordset functie loopt uw opgeslagen query , " Query1 . " De verklaringen tussen de " Do While " naar " Loop" verklaringen iterate ( in andere woorden , loop) door elk van de records in de tabel die u hebt geselecteerd op te vragen . De " Debug.Print " statement geeft de gegevens van de record voor het veld dat u hebt gekozen.
7 Klik ergens in de " runQuery " subroutine je net schreef en vervolgens op " F5 " om de subroutine uit te voeren. Druk op ' Ctrl + G " aan de IDE 's" Direct " -venster ( als het niet al zichtbaar ) weer te geven . Het venster zal alle records voor het veld dat u kiest weergeven.
|
