• 
  

  programmering i MS Access 2007

  
  

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 verktyg 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 .
1 .
Öppna Microsoft Office Access 2007 och sedan välja " tom databas . " Klicka på " Skapa ".
2 .
Klicka på " Skapa "-fliken och välj " Form Design "för att skapa en ny form . Välj " -knappen " kontroll under " Kontroller " rutan . Klicka på form och skapa den nya knappen medan du håller vänster knapp på musen . Lägg till ett " Listruta kontroll i formuläret på samma sätt som du har lagt till knappen .
3 .
Högerklicka på kontrollen 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 . "
4 .
Höger på den nya knappen och välj " Egenskaper ". På " Egenskapssida " klicka på " Event "fliken och välj rullgardinsmenyn bredvid " På Klicka på " och välj " [Händelseprocedur] . "Klicka på tre punkter ( . . ), en ny Microsoft Visual Basic fönster öppnas där du skriver din VBA -kod
5
Kopiera och klistra in följande kod i din " Sub Command1_Click () " subrutin till . skapa en tabell , lägga två skivor av data , loop igenom posterna och resultatet visas i en listruta kontroll på din nya form .



Dim DBase som databas

Dim recordSt Som Recordset

Dim x As Integer

Dim stringSQL As String

Dim strgVar As String



Set DBase=CurrentDb

stringSQL="Skapa TABELL newTable ( Förnamn TEXT (25 ) , Efternamn TEXT ( 25 ));"

DoCmd. RunSQL ( stringSQL )



stringSQL=" INSERT INTO newTable ( [Förnamn ] , [Efternamn ] ) "

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

DoCmd. SetWarnings Falska

DoCmd . RunSQL ( stringSQL )

stringSQL=" INSERT INTO newTable ( [Förnamn ] , [Efternamn ] ) "

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

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( stringSQL )



Set recordSt=DBase . OpenRecordset ( " newTable " )



recordSt. MoveFirst

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



strgVar=Trim ( recordSt. Fields ( "Efternamn " ) . Value ) "" Trim ( recordSt. Fields ( " Förnamn " ) . Value)

List0. AddItem strgVar



recordSt. MoveNext

Nästa X

Previous：nothing Next：Inaktivera Aktivitetshanteraren i C #

Relaterade artiklar