Lære å program i Microsoft Office Access kan gi deg en fordel å utnytte fordelene av Access. Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere oppgaver som å opprette, redigere og oppdatere tabeller. Du kan lage brukergrensesnitt ( UI) og program funksjoner for å gi brukeren en vennlig måte å manipulere databasen informasjon. Ved hjelp av programmering i Access sparer tid ved å automatisere rutinemessige prosesser . Instruksjoner
en

Launch tilgang , klikk "Blank Database " og klikk på "Create" -knappen for å opprette en ny database . Klikk på " Database Tools " og klikk " Visual Basic " for å åpne Microsoft Visual Basic Window . Klikk på " Insert"-menyen og klikk " Module" for å sette inn en ny kode modul
2

Skriv inn følgende for å opprette en ny lagret prosedyre: .

Private Sub ProgramInAccess ( )

Trykk " Enter".
3

Skriv inn følgende for å opprette variabler : en

Dim strSQL As String

Dim dataString As String

Dim myRst Som RecordSet

Dim myDbs Som Database

Dim rowCnt As Integer

Set myDbs = CurrentDb
4

Skriv inn følgende for å opprette en ny tabell i databasen : en

strSQL = " CREATE tABLE tableWithData (Customer TEKST ( 25 ) , Product TEKST ( 25 ) ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )
5

Skriv inn følgende for å legge til en ny rad med data ved hjelp av " DoCmd " objekt : en

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )
6

Skriv inn følgende for å legge til en ekstra rad med data i tabellen ved hjelp av en Recordset objekt : en

Set myRst = myDbs.OpenRecordset ( " tableWithData ")

myRst.AddNew

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

myRst.Fields ( " Produkt " ) . Verdi = " laptop "

myRst.Update

myRst.Close
7

Skriv inn følgende spørring den nye tabellen : en

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

Skriv inn følgende for å åpne spørringen ved hjelp av en Recordset objektet og loop gjennom innholdet i tabellen : en

Set myRst = myDbs.OpenRecordset ( strSQL )

myRst.MoveFirst

For rowCnt = 0 For å myRst.RecordCount

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