Leren hoe te programmeren in Microsoft Office Access kunt u het voordeel om de voordelen van Access ten volle te benutten . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt voor taken zoals het maken, bewerken en bijwerken tafels te automatiseren . U kunt User Interfaces ( UI ) en de functies van het programma te creëren om de gebruiker een vriendelijke manier om databasegegevens te manipuleren geven . Met behulp van programmeren in Access bespaart tijd door het automatiseren van routinematige processen . Instructies
1 Launch Access , klikt u op " Lege database " en klik op de knop "Create " om een nieuwe database te maken . Klik op het tabblad " Database Tools" en klik op " Visual Basic " om de Microsoft Visual Basic venster te openen . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe code -module plaatsen
Type 2 het volgende om een nieuwe opgeslagen procedure te maken: . Private Sub ProgramInAccess ( ) op < br Pers > ' Enter '.
Type 3 het volgende om uw variabelen te maken: Dim strSQL As String Dim dataString
Zoals
String Dim myRst
als Recordset Dim myDbs
Als Database Dim rowCnt
als Geheel Set
myDbs = CurrentDb
4 Typ het volgende om een nieuwe tabel in uw database te maken : strSQL
= " CREATE tABLE tableWithData ( Customer TEXT ( 25 ) , product TEXT ( 25 ) ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL )
5 Typ
de volgende opties om een nieuwe rij van gegevens met behulp van de " DoCmd " object toe te voegen :
sqlstr = " INSERT INTO tableWithData ( [ Klant ] , [ product ] ) "
sqlstr = sqlstr & " VALUES ( ' John ' , ' Desktop ' ) ; " DoCmd.SetWarnings
False
DoCmd.RunSQL ( sqlstr )
Type 6 de volgende opties om een tweede rij van gegevens aan de tabel toe te voegen met behulp van een Recordset Object :
Set myRst = myDbs.OpenRecordset ( " tableWithData " ) myRst.AddNew myRst.Fields (
" Klant " ) . Value = " Susan " myRst.Fields
( " Product " ) . Value = " Laptop " myRst.Update
myRst.Close
Type
7 de volgende query de nieuwe tabel : strSQL = Nieuws" . SELECT tableWithData * FROM tableWithData ; "
Type 8 het volgende aan de query met behulp van een Recordset-object en lus door de inhoud van de tabel te openen :
Set myRst = myDbs.OpenRecordset ( strSQL ) < myRst.MoveFirst
rowCnt > = 0 Om
myRst.RecordCount dataString = " Klant : " br . & myRst.Fields ( 0 ) Value & " | "
= dataString & " Product : " dataString . & myRst.Fields ( 1 ) Waarde Debug.Print dataString myRst.MoveNext
Volgende rowCnt
Druk op " F5 " 9 naar uw nieuwe procedure uitvoeren en druk " Ctrl " en " G " aan de " Immediate " venster te openen en bekijk de resultaten .
< br > |
