programmering i MS Access 2007

Indlæg af Jannik Riis     opdateret: 2011-11-06

Vide hvordan man programmerer 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 ofte anvendes til mindre lokale databaser . Det giver værktøjer til at skrive Visual Basic for Applications ( VBA ) til at automatisere manuelle processer . VBA er et computer-programmeringssprog , der tilbydes af Microsoft . I et par trin , kan du skrive VBA -kode til at oprette en tabel , føje data til den og vise dens indhold gennem en liste kontrol .
1 .
Åbn Microsoft Office Access 2007 og derefter vælge " Tom database ". Klik på " Create ".
2 .
Klik på " Opret "-fanen og vælg " Form Design " for at oprette en ny formular . Vælg " knappen " kontrol under " Controls " rude. Klik på Form og oprette den nye knap , mens du holder den venstre knap på musen . Tilføj en " Liste "kontrol til formularen på samme måde, du har tilføjet knappen .
3 .
Højreklik på listen kontrol og vælg " Egenskaber . " På " Egenskabsark , " klik på " Data " fanen og vælg drop -down boksen " Rækkekilde Type " og vælg " Value List ".
4 .
Højre på den nye knap og vælg " Egenskaber . "On " Property Sheet " klik på " Event "-fanen og vælg drop -down feltet ud for " Ved klik "og vælg " [ Event procedure] . "Klik på ellipse ( . . ), en ny Microsoft Visual Basic vindue åbnes , hvor du vil skrive din VBA -kode
5
Kopier og indsæt følgende kode i din " Private Sub Command1_Click () " underrutinen til. oprette en tabel , tilføje to registre over de oplysninger , loop gennem posterne og vise resultaterne i en Liste kontrol på din nye form .

Dim DBase som database
Dim recordSt Som Recordset
Dim X As Integer

Dim stringSQL As String
Dim strgVar As String

Set DBase=CurrentDb
stringSQL="Opret TABEL newTable ( Fornavn TEKST (25) , Efternavn TEKST ( 25 ));"

DoCmd. RunSQL ( stringSQL )

stringSQL=" INSERT INTO newTable ( [ Fornavn ] , [ Efternavn ] ) "
stringSQL=stringSQL " VALUES ( ' John ', ' Smith ');"

DoCmd. SetWarnings Falsk
DoCmd . RunSQL ( stringSQL )
stringSQL=" INSERT INTO newTable ( [ Fornavn ] , [ Efternavn ] ) "
stringSQL=stringSQL " VALUES ( ' Jaime ', ' Avelar ');"

DoCmd. SetWarnings False
DoCmd. RunSQL ( stringSQL )

Set recordSt=DBase . OpenRecordset ( " newTable " )

recordSt. MoveFirst
For X=0 Til recordSt. RecordCount-1


strgVar=Trim ( recordSt. Fields ( " Efternavn " ) . Value ) " " Trim ( recordSt. Fields ( " Fornavn " ) . Værdi )
List0. AddItem strgVar

recordSt. MoveNext
Næste X


Previous:hvad er en arv konflikt ? Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change