Lernen, wie man Programm in Microsoft Office Access kann Ihnen den Vorteil, in vollem Umfang die Vorteile von Access. Visual Basic für Applikationen (VBA ) ist eine Programmiersprache verwendet, um Aufgaben wie das Erstellen, Bearbeiten und Aktualisieren von Tabellen automatisieren. Sie können User Interfaces (UI) und Programm-Funktionen , um dem Benutzer eine freundliche Art und Weise zur Datenbank Informationen zu manipulieren. Mit Programmierung in Access spart Zeit durch die Automatisierung von Routine-Prozesse . Anleitung
1

Start -Zugang, klicken Sie auf " Leere Datenbank " und klicken Sie auf die Schaltfläche "Erstellen" , um eine neue Datenbank zu erstellen. Klicken Sie auf " Database Tools " und klicken Sie auf " Visual Basic ", um den Microsoft Visual Basic -Fenster zu öffnen. Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" , um einen neuen Code-Modul einfügen
2

Geben Sie den folgenden , um eine neue gespeicherte Prozedur zu erstellen : .

Private Sub ProgramInAccess ()

Press "Enter".
3

Geben Sie den folgenden Ihre Variablen zu erstellen :

Dim strSQL As String Dim

DataString Wie String

Dim myRst Als Recordset

Dim myDbs As Database Dim

rowcnt As Integer

Set myDbs = CurrentDb
4

Geben Sie den folgenden , um eine neue Tabelle in der Datenbank erstellen :

strSQL = " CREATE TABLE tableWithData (Customer TEXT (25 ), Product TEXT ( 25) ); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )
5

Geben Sie den folgenden , um eine neue Reihe von Daten unter Verwendung des " DoCmd " Objekt hinzufügen :

sqlstr = " INSERT INTO tableWithData ( [ Kunden ], [ Product] ) "

sqlstr = sqlstr & " VALUES ( 'John' , "Desktop" ); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( sqlstr )
6

Geben Sie den folgenden , um eine zweite Reihe von Daten in die Tabelle hinzufügen, indem Sie ein Recordset- Objekt:

Set myRst = myDbs.OpenRecordset ( " tableWithData " )

myRst.AddNew

myRst.Fields (" Kunde " ) . Value =" Susan "

myRst.Fields ( " Produkt ") . Value =" Laptop "

myRst.Update

myRst.Close
7

Geben Sie die folgende Abfrage die neue Tabelle :

strSQL =" . SELECT * tableWithData vON tableWithData ; "
8

Geben Sie den folgenden , um die Abfrage mit einem Recordset-Objekt und eine Schleife durch die Inhalte der Tabelle zu öffnen:

Set myRst = myDbs.OpenRecordset ( strSQL )

myRst.MoveFirst

rowcnt = 0 To

myRst.RecordCount DataString = " Kunde: " . & myRst.Fields (0) Value & "