• 
  

  hur man använder Visual Basic for Access 2007

  
  

Att veta hur man använder Visual Basic i Access 2007 kan ge dig stor flexibilitet vid utveckling av 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 du har skapat . Visual Basic är ett programmeringsspråk som skapats 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ör repetitiva uppgifter manuellt
1 .
Klicka på " Skapa "-fliken i Access och välj " Form Design . " Programmet kommer att skapa en ny form . Välj " -knappen " kontroll under " Kontroller " rutan och flyttar musen över den nya formen . Vänsterklicka och skapa den nya knappen . Lägg till ett " Listruta kontroll i formuläret på samma sätt som du har lagt till knappen .
2 .
Högerklicka på listrutan och välj " Egenskaper ". På " Egenskapsblad , " klicka på " Data " fliken och välj den nedrullningsbara rutan " Row Källa Typ "och välj" värdelista. "
3 .
Högerklicka på den nya knappen och välj " Egenskaper ". På " Egenskapsblad " klicka på " Event "fliken och välj rullgardinsmenyn på " On Klicka på " och välj " [Händelseprocedur] "Klicka på ellips (. . . ) 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 du vill använda .
5
Typ : .



Set DBS=CurrentDb



för att ställa in den aktuella databasen



Typ : .



strSQL=" CREATE TABLE Tabell1 ( Förnamn TEXT (25 ) , Efternamn TEXT ( 25 ));"

DoCmd. RunSQL ( strSQL )



att skapa en ny tabell i databas som heter
6
Typ " Tabell1 ".



strSQL=" INSERT INTO Tabell1 ( [ Förnamn ] , [ Efternamn ] ) "

strSQL=strSQL " VALUES ( ' John ', ' Smith ');"

DoCmd . SetWarnings Falska

DoCmd. RunSQL ( strSQL )



sätta in den första raden med data .
7 .

Typ :



strSQL=" INSERT INTO Tabell1 ( [Förnamn ] , [Efternamn ] ) "

strSQL=strSQL , " VALUES ( ' Jaime ', ' Avelar ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



att mata in en andra rad med data
8
Typ : .



Set rst=dbs . OpenRecordset ( " Tabell1 " )



att sätta rekord som



Typ : .



RST . MoveFirst

för x=0 Till rst. RecordCount-1



lastFirst=Trim ( rst. Fields ( "Efternamn " ) värdet. ) "" Trim ( rst. Fields ( " Förnamn " ) . Value )

List1. AddItem lastFirst



rst. MoveNext

Nästa X



att slinga genom de poster du precis har skapat och visa dem i listrutan i formuläret .
<. br > 9
Typ :



MsgBox " ! Du har visat alla poster i tabell 1 till listrutan 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 kontrollen listrutan visas namnen


tips och varningar




Visual Basic- koden ska se ut så här : .

Private Sub Command0_Click ()

Dim DBS som databas

Dim rst Som Recordset

Dim x As Integer

Dim strSQL As String

Dim lastFirst As String

Set DBS=CurrentDb

strSQL=" CREATE TABLE Tabell1 ( Förnamn TEXT (25 ) , Efternamn TEXT ( 25 ));"

DoCmd . RunSQL ( strSQL )

strSQL=" INSERT INTO Tabell1 ( [Förnamn ] , [Efternamn ] ) "

strSQL=strSQL " VALUES ( ' John ', ' Svensson ') , "

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO Tabell1 ( [Förnamn ] , [Efternamn ] ) "

strSQL=strSQL " VALUES ( ' Jaime ', ' Avelar ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )

Set rst=dbs. OpenRecordset ( " Tabell1 " )

rst. MoveFirst

för x=0 Till rst. RecordCount-1

lastFirst=Trim ( rst. Fält ( "Efternamn " ) . Value ) "" Trim ( rst. Fields ( " Förnamn " ) . Value )

List1. AddItem lastFirst

rst. MoveNext

Nästa X

MsgBox " Du har visat alla poster i tabell 1 till listrutor framgångsrikt ! " , vbInformation

End Sub

Previous：nothing Next：hur man använder oxiclean som diskare tvål

Relaterade artiklar