Macro's voor de database-applicatie Access zijn programma's die taken zoals het zoeken van records of sluiten van vensters te automatiseren . Toegang gebruikers kunnen deze programma's met behulp van de Visual Basic for Applications , of VBA , ontwikkelomgeving ontwikkelen. Een belangrijke stap in het schrijven van macro's voor Access is waarin het doel je wilt bereiken , zoals het verwijderen van records die voldoen aan bepaalde criteria . Het creëren van Access macro's kunt u gegevens - beheertaken uw werk team sneller en met minder fouten dan bij handmatige methoden voeren . Instructies
1 Open Access en maak een nieuwe database door op " Ctrl " + " N. " Klik op " Lege database , " en druk op " Alt " + " F11 " om de VBA geïntegreerde ontwikkelomgeving in te voeren , of IDE . Hier vindt u macro's die de gemeenschappelijke databank activiteiten van het maken van een tafel en het plaatsen en ophalen van gegevens uit een tabel te tonen te creëren . Kopen van 2 Klik op " Module " commando van het menu Invoegen om een nieuw venster te maken voor het invoeren van code van uw macro . Plak de volgende subroutine in het venster . Deze subroutine zorgt voor een query definitie met de " CreateQueryDef ' functie oproep . De "create table " query- de code definieert gebruikt dezelfde SQL syntax beschikbaar in queryontwerpraster Access 's . De verklaring " dbase.QueryDefs ( 1 ) . Uitvoeren " loopt de tafel - creatie query. Public Sub createTable
( ) Dim qdef
Zoals DAO.QueryDef Dim dbase
zoals DAO.Database Dim s
als Koord
Stel dbase = CurrentDb
s = " create table Kidsbooks ( BookName tekst ( 50 ) , auteur tekst ( 50 ) ) "
Set qdef = dbase.CreateQueryDef ( " qCreateTable " , s ) dbase.QueryDefs
( 1 ) . Uitvoeren End Sub
3 Klik op een verklaring in de subroutine , druk daarna op " F5 " om te draaien " createTable . " Druk op ' Alt ' + " F11 " om terug te keren naar de standaard Access- gebruikersinterface .
4 sluiten en heropenen het navigatievenster door te klikken op de titelbalk van pijl pictogrammen . De ruit zal de tafel Kidsbooks uw subroutine gemaakt weer te geven .
Druk " Alt " 5 + " F11 " om terug te keren naar uw subroutine in de IDE . Plak de volgende nieuwe subroutine onder de createTable subroutine . De addTableRow sub voegt een rij van gegevens in de tabel uw createTable programma gemaakt . Dit nieuwe programma werkt door het openen van een Recordset-object en het aanroepen van de methode AddNew van dat object . Public Sub addTableRow ( ) op Dim dbase
Zoals DAO.Database Dim rst
als DAO.Recordset
Stel dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " Kidsbooks " ) rst.AddNew rst
! BookName = " The Wizard of Oz " rst
! Author = " Frank Baum " rst.Update End Sub
6
Start het nieuwe programma als je de vorige deed . Keer terug naar Access , sluit de tabel Kidsbooks door met de rechtermuisknop te klikken op de tab en klik op " Close ". Dubbelklik op " Kidsbooks " in het navigatievenster aan de tafel te heropenen en zie de nieuwe girale uw programma toegevoegd .
Plak 7 , in de IDE , het volgende nieuwe programma onder de vorige twee . Dit programma zal alle data in de Kidsbooks tabel weergegeven . Dit programma opent een RecordSet object , net als het vorige programma . Deze keer, echter , de MoveNext functie wordt aangeroepen . Deze functie verplaatst een interne index door elk van de rijen in de Kidsbooks tafel. Public Sub showData ( )
Dim dbase als DAO.Database Dim rst
als DAO . recordset
Stel dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " Kidsbooks " ) Dim s
als Koord
Do While Not rst.EOF
s = " titel van het boek : " & rst [ BookName ] & " Auteur : . " ! & rst [ Auteur ] MsgBox ( s ) rst.MoveNext
! Loop rst.Close dbase.Close End Sub
8
Voer het programma uit als je liep de andere twee . Het programma zal een message box met de " Wizard of Oz " entry geven .
|
