vide hvordan man bruger Visual Basic i Access 2007 kan give dig stor fleksibilitet , når de udvikler database applikationer. Access 2007 giver dig mulighed for at forbedre din udvikling og giver dig mulighed for at skrive Visual Basic-kode for de formularer og kontroller du har oprettet. Visual Basic er et programmeringssprog skabt af Microsoft , og det er nemt at bruge. Du kan nemt programmere i Visual Basic skabe rapporter i en Access-database eller udfører gentagne manuelle opgaver . Instruktioner
1
Klik på "Opret " fanen i Access og vælg " Form Design ". Programmet vil oprette en ny formular . Vælg " Button " kontrol under " Controls " ruden og flytte musen over den nye form . Venstre-klik og oprette den nye knap . Tilføj en "List Box" kontrol til formularen på samme måde, du har tilføjet knappen.
2
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 ".
3
Højreklik på den nye knap, og vælg " Egenskaber". På " Property Sheet " klik på " Event" -fanen og vælg drop down boksen "On Klik på" og vælg " [ Hændelsesprocedure ] . " . Klik på ellipsen ( ... ) og en ny Microsoft Visual Basic vindue vil åbne
4
Skriv følgende : Hej
Dim dbs som database
Dim rst Som Recordset
Dim X As Integer
Dim strSQL As String
Dim lastFirst As String
at erklære variabler, du vil bruge.
< br > 5
Type : Hej
Set dbs = CurrentDb
at indstille den aktuelle database
Type: .
strSQL = " CREATE TABLE Tabel1 ( Fornavn TEXT ( 25) , Efternavn TEXT ( 25 )), . "
DoCmd.RunSQL ( strSQL )
at oprette en ny tabel i databasen med navnet" Tabel1 "
< br > 6
Type : Hej
strSQL = " INSERT INTO Tabel1 ( [Fornavn ], [ Efternavn] ) "
strSQL = strSQL & " VALUES ( 'John ', ' Smith ' ) . "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
at indsætte den første række data
7
Type : Hej
strSQL = " INSERT INTO Tabel1 ( [Fornavn ], [ Efternavn] ) "
strSQL = strSQL & " VALUES ( ' Jaime ', ' Avelar '); "
< . p > DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
at indsætte en anden række data
8
Type : Hej
Set rst = dbs.OpenRecordset ( " Tabel1 " )
at sætte rekord indstillede
Type: .
rst.MoveFirst
X = 0 at rst.RecordCount - 1
lastFirst = Trim ( . rst.Fields ( "Efternavn " ) Value) & " " & Trim ( rst.Fields ( " . Fornavn" ) Value)
List1.AddItem lastFirst
rst.MoveNext
Næste X
at sløjfe gennem de poster, du lige har oprettet , og vise dem på listen på din formular.
9
Type : Hej
MsgBox "Du har vist alle rekorder i Tabel1 til listen kassen successfully" , vbInformation
at vise en meddelelse. Skift vinduer tilbage til Access 2007 og klik på "Vis" for at køre formularen. Klik på " Command0 " knappen og du vil se listen kontrol viser navnene .