Att veta hur man programmerar i Microsoft Office Access 2007 kan du spara tid när du behöver utföra rutinuppgifter som att skapa tabeller och lägga till data manuellt . Access är en relationsdatabas management system används ofta för mindre lokala databaser . Det ger förutsättningar för att skriva Visual Basic for Applications ( VBA ) för att automatisera manuella processer . VBA är en dator programmeringsspråk som erbjuds av Microsoft . I några få steg , kan du skriva VBA-kod för att skapa en tabell , lägga till data i det och visa dess innehåll genom en listruta kontroll . Instruktioner
1
Öppna Microsoft Office Access 2007 och välj sedan " Tom databas . " Klicka på " Skapa ".
2
Klicka på " Skapa " -fliken och välj " Form Design " för att skapa en ny form . Välj " Button " kontroll under " Controls " rutan . Klicka på Formulär och skapa den nya knappen samtidigt som du håller den vänstra knappen på musen . Lägg en " Listruta " kontrollen i formuläret på samma sätt som du lagt till på knappen .
3
Högerklicka på kontrollen listrutan och välj " Egenskaper . " På " Egenskapsblad , " klicka på " Data "-fliken och välj rullgardinsmenyn på " radkällan Type " och välj " Value List . "
4
Högerklicka på den nya knappen och välj " Egenskaper . " På " Egenskapsblad " klicka på "Event " fliken och välj listrutan bredvid " On Click " och välj " [Event Procedure ] . " Klicka på punkter (... ) , en ny Microsoft Visual Basic fönster öppnas där du ska skriva din VBA-kod
5
Kopiera och klistra in följande kod i din " Private Sub Command1_Click ( ) " . subrutin för att skapa en tabell , tillsätt två register över uppgifterna , loop igenom posterna och visa resultatet i en listruta kontroll på din nya 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 = " CREATE tABELL newTable ( Förnamn TEXT ( 25 ) , Efternamn TEXT ( 25 ) ), "
DoCmd.RunSQL ( stringSQL ) katalog
stringSQL =" INSERT INTO newTable ( [Förnamn ], [ Efternamn ] ) "
stringSQL = stringSQL & " VALUES ( ' John ' , ' Smith ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( stringSQL ) katalog < p> stringSQL = " INSERT INTO newTable ( [ Förnamn] , [ Efternamn ]) "
stringSQL = stringSQL & " VALUES ( ' Jaime ' , ' Avelar ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( stringSQL ) katalog
Set recordSt = DBase.OpenRecordset ( " newTable " ) katalog
recordSt.MoveFirst
För X = 0 Till recordSt.RecordCount - 1
strgVar = Trim ( . recordSt.Fields ( "Efternamn " ) Value ) & " " & Trim ( recordSt.Fields ( " . Förnamn " ) Value ) katalog
List0 . addItem strgVar
recordSt.MoveNext
Nästa X Review
