Å vite hvordan å programmere i Microsoft Office Access 2007 kan du spare tid når du må utføre rutinemessige oppgaver som å lage tabeller og legge data manuelt . Access er en relasjonsdatabase styringssystem ofte brukt for mindre lokale databaser. Det gir verktøy for å skrive Visual Basic for Applications ( VBA ) til å automatisere manuelle prosesser . VBA er et programmeringsspråk som tilbys av Microsoft. I noen få skritt , kan du skrive VBA -kode for å opprette en tabell , legge til data i det og vise innholdet gjennom en liste kontroll. Instruksjoner
en

Åpne Microsoft Office Access 2007 og deretter velge "Blank Database. " Klikk på " Create ".
2

Klikk på " Create "-fanen og velg " Form Design " for å opprette et nytt skjema . Velg " Button" kontroll under " Controls " -panelet . Klikk på Form og opprette den nye knappen mens du holder venstre knapp på musen. Legge til en " List Box" kontrollen til skjemaet på samme måte som du har lagt på knappen .
3

Høyreklikk listeboksen kontroll og velg " Properties". På "Property skjema ", klikk på "Data "-fanen og velg drop- down boks på " Row Kilde Type " og velg "Value List . "
4

Høyreklikk den nye knappen og velg " Properties". På "Property ark" klikk "Event "-fanen og velg drop- down boksen ved siden av " Ved klikk " og velg " [ Hendelsesprosedyre ] . " Klikk på ellipse ( ... ) , en ny Microsoft Visual Basic vindu åpnes der du vil skrive VBA-kode
5

Kopier og lim inn følgende kode inni "Private Sub Command1_Click ( )" . subrutine for å lage en tabell , legge til to registreringer av data , loop gjennom postene og vise resultatene i en liste kontroll på det nye skjemaet .

Dim DBase Som Database

Dim recordSt Som Recordset

Dim x As Integer

Dim stringSQL As String

Dim strgVar As String

Sett DBase = CurrentDb

stringSQL = "CREATE TABELL newTable ( Fornavn TEKST ( 25 ) , Etternavn TEKST ( 25 )); "

DoCmd.RunSQL ( stringSQL )

stringSQL =" INSERT INTO newTable ( [Fornavn ] , [Etternavn ] ) "

stringSQL = stringSQL &" VALUES ( ' John ', ' Smith '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )
< p> stringSQL = " INSERT INTO newTable ( [ Fornavn] , [ etternavn] ) "

stringSQL = stringSQL & " VALUES ( ' Jaime ', ' Avelar ') ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )

Sett recordSt = DBase.OpenRecordset ( " newTable ")

recordSt.MoveFirst

For X = 0 For å recordSt.RecordCount - en

strgVar = Trim ( . recordSt.Fields ( "Etternavn" ) Value) & " " & Trim ( recordSt.Fields ( " . Fornavn" ) Value)

List0 . AddItem strgVar

recordSt.MoveNext

Neste X