Vide, hvordan man program i Microsoft Office Access 2007 kan du spare tid, når du har brug for at udføre rutineopgaver såsom at oprette tabeller og tilføje data manuelt. Access er en relationel database management system anvendes ofte til mindre lokale databaser. Det giver værktøjer til at skrive Visual Basic for Applications ( VBA ) til at automatisere manuelle processer . VBA er en computer programmeringssprog , der tilbydes af Microsoft. I et par trin , du kan skrive VBA-kode til at oprette en tabel , føje data til den og vise dens indhold gennem en liste kontrol. Instruktioner
1

Åbn Microsoft Office Access 2007 , og derefter vælge " Tom database ". Klik på "Opret ".
2

Klik på " Opret" -fanen og vælg " Form Design " for at oprette en ny formular . Vælg " Button " kontrol under " Controls " ruden . Klik på Formular og oprette den nye knap , mens du holder den venstre knap på musen . Tilføj en "List Box" kontrol til formularen på samme måde, du har tilføjet knappen.
3

Højreklik på listen , og vælg " Egenskaber". På " Property Sheet ", klik på "Data" fanen og vælg drop- down boksen " Rækkekilde Type" og vælg " Value List ".
4

Højreklik på den nye knap og vælg " Egenskaber". On " Property Sheet " klik på " Event" -fanen og vælg drop- down feltet ud for " On Klik på" og vælg " [ Hændelsesprocedure ] . " Klik på ellipsen (...) , en ny Microsoft Visual Basic vindue åbnes, hvor du vil skrive din VBA-kode
5

Kopier og indsæt følgende kode inde i din "Private Sub Command1_Click ()" . subrutine til at oprette en tabel , tilføje to registreringer af data , loop gennem posterne og vise resultaterne i en liste kontrol på din nye form .

Dim DBase som database

Dim recordSt Som Recordset Salg

Dim X As Integer

Dim stringSQL As String

Dim strgVar As String

Set DBase = CurrentDb

stringSQL = " CREATE TABEL newTable ( Fornavn TEXT ( 25) , Efternavn TEXT ( 25 )), "

DoCmd.RunSQL ( stringSQL )

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

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

DoCmd.SetWarnings False

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )

Set recordSt = DBase.OpenRecordset ( " newTable " )

recordSt.MoveFirst

X = 0 Til recordSt.RecordCount - 1

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

List0 . AddItem strgVar

recordSt.MoveNext

Næste X