Makroprogrammierung Zugriff auf
Makros für die Access-Datenbankanwendung sind Programme, die Automatisierung von Aufgaben wie das Suchen von Datensätzen oder Schließen der Fenster. Access-Benutzer können diese Programme mit Visual Basic für Applikationen oder VBA Entwicklungsumgebung entwickeln. Ein wichtiger Schritt beim Schreiben von Makros für den Zugang ist das Ziel angeben zu erreichen wie z. B. das Löschen von Datensätzen, die bestimmte Kriterien erfüllen, soll. Erstellen von Access-Makros können Sie Ihre Arbeitsteam-Daten-Management-Aufgaben schneller und mit weniger Fehlern als mit manuellen Methoden durchführen.
Anweisungen
1 Öffnen Sie Access und erstellen Sie eine neue Datenbank durch Drücken der Taste "Strg" + "n". Klicken Sie "Leere Datenbank", und drücken Sie "Alt" + "F11", um die integrierte Entwicklungsumgebung von VBA eingeben oder IDE. Hier erstellen Sie Makros, die die gängige Datenbankoperationen Erstellen einer Tabelle und einfügen und Abrufen von Daten aus einer Tabelle zu veranschaulichen.
2 Klicken Sie das Menü Einfügen "Modul" Befehl, ein neues Fenster für die Eingabe Ihrer Makrocode zu machen. Fügen Sie die folgende Subroutine in das Fenster. Diese Unterroutine erstellt eine Abfragedefinition mit den Funktionsaufruf "CreateQueryDef". Die "Tabelle erstellen"-Abfrage, die der Code definiert verwendet die gleiche SQL-Syntax in Access des Abfrageentwurfsbereichs erhältlich. Die Anweisung "Dbase. QueryDefs(1). Läuft der Tabellenerstellung Abfrage ausführen".
Public Sub createTable()
Dim Qdef als DAO. QueryDef
Dim Dbase als DAO. Datenbank
Dim s As String
Legen Sie Dbase = CurrentDb
s = "erstellen Tabelle KidsBooks (Bookname text(50), Autor-text(50))"
Set Qdef = Dbase. CreateQueryDef ("qCreateTable", s)
dBASE. QueryDefs(1). Ausführen
EndSub
3 Klicken Sie auf eine Anweisung im Unterprogramm, dann drücken Sie "F5" zum laufen "CreateTable." Drücken Sie "Alt" + "F11", um wieder die standard Access-Benutzeroberfläche.
4 Schließen und öffnen Sie im Navigationsbereich klicken Sie auf den Titel Bar die Pfeil-Symbole. Im Bereich wird der KidsBooks-Tabelle Unterroutine erstellt angezeigt.
5 Drücken Sie "Alt" + "F11" Rückkehr nach Unterroutine in der IDE. Fügen Sie die folgende neue Unterroutine unter die CreateTable-Unterroutine. Die AddTableRow-Sub fügt eine Zeile von Daten in der Tabelle Ihre CreateTable-Programm gemacht. Dieses neue Programm funktioniert indem Sie öffnen ein RecordSet-Objekt und Aufrufen der AddNew-Methode dieses Objekts.
Public Sub addTableRow()
Dim Dbase als DAO. Datenbank
Dim Rst als DAO. Recordset
Legen Sie Dbase = CurrentDb
Festlegen von Rst = Dbase. OpenRecordset("KidsBooks")
RST. AddNew
RST! BookName = "Der Zauberer von Oz"
RST! Autor = "Frank Baum"
RST. Update
EndSub
6 Führen Sie das neue Programm aus, wie Sie vorher getan haben. Zurück zu Access, dann schließen Sie die KidsBooks-Tabelle durch Rechtsklick auf die entsprechende Registerkarte und klicken auf "Schließen." Doppelklicken Sie auf "KidsBooks" im Navigationsbereich, öffnen die Tabelle und sehen dem neuen Bucheintrag Ihr Programm hinzugefügt.
7 Fügen Sie in der IDE, das folgende neue Programm unterhalb der beiden vorangegangenen. Dieses Programm zeigt alle Daten in der Tabelle KidsBooks. Dieses Programm öffnet ein RecordSet-Objekt wie das vorherige Programm. Diesmal ist allerdings die MoveNext-Funktion aufgerufen. Diese Funktion verschiebt einen internen Index durch jede Zeile in der Tabelle KidsBooks.
Public Sub showData()
Dim Dbase als DAO. Datenbank
Dim Rst als DAO. Recordset
Legen Sie Dbase = CurrentDb
Festlegen von Rst = Dbase. OpenRecordset("KidsBooks")
Dim s As String
Während nicht Rst zu tun. EOF
s = "Buch-Titel:" & Rst! [BookName] & ". Autor: "& Rst! [Autor]
MsgBox (s)
RST. MoveNext
Loop
RST. Schließen
dBASE. Schließen
EndSub
8 Führen Sie das Programm, da Sie die anderen beiden lief. Das Programm zeigt ein Meldungsfeld mit der "Zauberer von Oz"-Eintrag.