Veta hur man använder Visual Basic i Access 2007 kan ge dig stor flexibilitet när du utvecklar databasapplikationer . Access 2007 ger dig möjlighet att förbättra din utveckling som ger dig möjlighet att skriva Visual Basic-kod för formulär och kontroller som du har skapat . Visual Basic är ett programmeringsspråk skapat av Microsoft och det är lätt att använda . Du kan enkelt programmera i Visual Basic skapa rapporter i en Access-databas eller utföra repetitiva manuella arbetsuppgifter . Instruktioner
1
Klicka på " Skapa "-fliken i Access och välj " Form Design . " Programmet kommer att skapa en ny form . Välj " Button " kontroll under " Controls " rutan och flytta musen över den nya formen . Vänster - klicka och skapa den nya knappen . Lägg en " Listruta " kontrollen i formuläret på samma sätt som du lagt till på knappen .
2
Högerklicka på listrutan och välj "Egenskaper . " På " Egenskapsblad , " klicka på " Data "-fliken och välj rullgardinsmenyn på " radkällan Type " och välj " Value List . " Addera 3
Högerklicka på den nya knappen och välj " Egenskaper . " På " Egenskapsblad " klicka på " Event" fliken och välj rullgardinsmenyn på " On Click " och välj " [Event Procedure ] . " . Klicka på de tre punkterna ( ... ) och en ny Microsoft Visual Basic öppnas
4
Skriv följande :
Dim dbs som databas
Dim rst som Recordset
Dim x As Integer
Dim strSQL As String
Dim lastFirst As String
att deklarera variabler som du kommer att använda .
5
Typ :
Set dbs = CurrentDb
att ställa den aktuella databasen
Typ : .
strSQL = " CREATE TABLE Tabell1 ( Förnamn TEXT ( 25 ) , Efternamn TEXT ( 25 ) ) , . "
DoCmd.RunSQL ( strSQL ) katalog
att skapa en ny tabell i databasen som heter " Tabell1 "
6
Typ :
strSQL = " INSERT INTO Tabell1 ( [ Förnamn] , [ Efternamn ] ) "
strSQL = strSQL & " VALUES ( ' John ' , ' Smith ' ) . "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
sätta i den första raden med data
7
Type :
strSQL = " INSERT INTO Tabell1 ( [ Förnamn] , [ Efternamn ] ) "
strSQL = strSQL & " VALUES ( ' Jaime ' , ' Avelar ' ) ; "
< . p > DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
att infoga en andra rad med data
8
Typ :
set rst = dbs.OpenRecordset ( " Tabell1 " ) katalog
att sätta rekordet uppsättningen
Typ : .
rst.MoveFirst
för X = 0 att rst.RecordCount - 1
lastFirst = Trim ( . rst.Fields ( "Efternamn " ) Value ) & " " & Trim ( rst.Fields ( " . Förnamn " ) Value ) katalog
List1.AddItem lastFirst
rst.MoveNext
Nästa X Review
att loopa igenom posterna du har just skapat och visa dem i listrutan i formuläret .
9
Typ :
MsgBox " Du har visat alla rekord i Tabell1 till listan rutan framgångsrikt " , vbInformation
att visa ett meddelande . Växla fönster tillbaka till Access 2007 och klicka på " Visa " för att köra formuläret . Klicka på " Command0 " -knappen och du kommer att se kontroll listrutan visas namnen .
