At lære at programmere i Microsoft Office Access kan give dig den fordel at udnytte fordelene ved Access. Visual Basic for Applications ( VBA ) er en computer programmeringssprog, der anvendes til at automatisere opgaver såsom at oprette, redigere og opdatere tabeller. Du kan oprette User Interfaces ( UI) og program -funktioner til at give brugeren en venlig måde at manipulere database information. Brug programmering i Access sparer tid ved at automatisere rutinemæssige processer . Instruktioner
1

Launch Adgang , klik på " Tom database " og klik på "Opret" -knappen for at oprette en ny database. Klik på " Database Tools " fanen og klik på " Visual Basic " for at åbne Microsoft Visual Basic vindue. Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte en ny kode modul
2

Skriv følgende for at oprette en ny lagret procedure : .

Private Sub ProgramInAccess () < br >

Tryk på " Enter".
3

Skriv følgende for at oprette dine variabler : Hej

Dim strSQL As String

Dim dataString Som String

Dim myRst Som Recordset

Dim myDbs Som Database

Dim rowCnt As Integer

Set myDbs = CurrentDb
4

Skriv følgende for at oprette en ny tabel i din database : Hej

strSQL = " CREATE TABLE tableWithData (Customer TEXT ( 25) , Product TEXT ( 25) ), "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )
5

Skriv følgende for at tilføje en ny række data ved hjælp af " DoCmd " objekt : Hej

SQLstr = " INSERT INTO tableWithData ( [ Kunden ], [ Product] ) "

SQLstr = SQLstr &" VALUES ( 'John ', ' Desktop '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )
6

Skriv følgende for at tilføje en anden række af data i tabellen ved hjælp af en Recordset objekt : Hej

Set myRst = myDbs.OpenRecordset ( " tableWithData " )

myRst.AddNew

myRst.Fields ( " Kunden "). value =" Susan "

myRst.Fields ( " Produktet ") . Value =" Laptop "

myRst.Update

myRst.Close
7

Type følgende forespørgsel den nye tabel : Hej

strSQL =" . SELECT tableWithData * fRA tableWithData ; "
8

Skriv følgende for at åbne forespørgslen ved hjælp af en Recordset objekt og loop gennem indholdet i tabellen : Hej

Set myRst = myDbs.OpenRecordset ( strSQL ) < br >

myRst.MoveFirst

rowCnt = 0 Til myRst.RecordCount

dataString = " Kunde: " . & myRst.Fields (0) Value & "