lära sig att programmet i Microsoft Office Access kan ge dig fördelen att till fullo utnyttja fördelarna med Access. Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera uppgifter som att skapa , redigera och uppdatera tabeller . Du kan skapa användargränssnitt ( UI ) och programmering av funktioner för att ge användaren ett vänligt sätt att manipulera databasen information. Använda programmering i Access sparar tid genom att automatisera rutinmässiga processer . Instruktioner
1
Launch Access klickar " Tom databas " och klicka på " Skapa " -knappen för att skapa en ny databas . Klicka på " Database Tools " -fliken och klicka på " Visual Basic " för att öppna Microsoft Visual Basic Window . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny kodmodul
2
Skriv följande för att skapa en ny lagrad procedur : .
Private Sub ProgramInAccess ( )
Tryck " Enter ".
3
Skriv följande för att skapa dina variabler :
Dim strSQL As String
Dim dataString som String
Dim myRst Som Recordset
Dim myDbs Som Database
Dim rowCnt As Integer
Set myDbs = CurrentDb
4
Skriv följande för att skapa en ny tabell i databasen :
strSQL = " CREATE TABLE tableWithData ( Customer TEXT ( 25 ) , Produkt TEXT ( 25 ) ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
5
Skriv följande för att lägga till en ny rad av data med " DoCmd " objekt :
sqlstr = " INSERT INTO tableWithData ( [ Kund ] , [ Product ] ) "
sqlstr = sqlstr & " VALUES ( ' John ' , 'Skrivbord ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr )
6
Skriv följande för att lägga till en andra rad med data till tabellen med ett Recordset-objekt :
Set myRst = myDbs.OpenRecordset ( " tableWithData " ) katalog
myRst.AddNew
myRst.Fields ( " Kunden " ) . Value = " Susan "
myRst.Fields ( " Produkten " ) . Value = " Laptop "
myRst.Update
myRst.Close
7
Skriv följande fråga den nya tabellen :
strSQL = " . SELECT tableWithData * fRÅN tableWithData ; "
8
Skriv följande för att öppna frågan med ett Recordset-objekt och slinga genom innehållet i tabellen :
Set myRst = myDbs.OpenRecordset ( strSQL )
myRst.MoveFirst
För rowCnt = 0 att myRst.RecordCount
dataString = " Kund : " . & myRst.Fields ( 0 ) Value & "
