Makros für die Datenbank-Anwendung Zugriff sind Programme, die Aufgaben wie die Suche nach Datensätzen oder Schließen von Fenstern automatisieren. Access-Benutzer können diese Programme zu entwickeln mit Visual Basic für Applikationen oder VBA -Entwicklungsumgebung. Ein wichtiger Schritt in das Schreiben von Makros für Access wird der Gegenstand Sie wollen, dass es zu erreichen, wie das Löschen von Datensätzen , die bestimmte Kriterien . Erstellen von Access- Makros können Sie Ihre Arbeit Team die Daten - Management- Aufgaben schneller und mit weniger Fehlern als mit manuellen Methoden . Anleitung
1
Open Access und erstellen Sie eine neue Datenbank , indem Sie "Strg" + " N. " Klicken Sie auf " Leere Datenbank " aus und drücken "Alt" + " F11 ", um die integrierte Entwicklungsumgebung VBA eingeben oder IDE . Hier finden Sie Makros erstellen , die die gemeinsamen Datenbank-Operationen zum Erstellen einer Tabelle und das Einfügen und Abrufen von Daten aus einer Tabelle zu demonstrieren.
2
Klicken Sie im Menü Einfügen den "Modul "-Befehl um ein neues Fenster für die Eingabe machen Ihr Makro den Code . Fügen Sie den folgenden Subroutine in das Fenster . Diese Subroutine erstellt eine Abfrage mit der Definition " CreateQueryDef " Funktionsaufruf. Die "CREATE TABLE" Abfrage der Code definiert verwendet die gleiche SQL-Syntax in Abfrageentwurfsbereich Zugang des Gitters. Die Aussage " dbase.QueryDefs (1). Execute" führt die Tabelle - Erstellungs-Abfrage .
Public Sub createTable () Dim
qdef Wie DAO.QueryDef
Dim dbase wie DAO.Database
Dim s As String Set
dbase = CurrentDb
s = " create table KidsBooks ( bookname Text (50 ), Autor Text (50) ) "
Set qdef = dbase.CreateQueryDef ( " qCreateTable " , en) von
dbase.QueryDefs (1). Execute
End Sub
3 Klicken
eine Erklärung in der Unterroutine , und drücken Sie "F5" zu laufen " createTable . " Drücken Sie die " Alt" + " F11 ", um die Standard- Access-Benutzeroberfläche zurückzukehren.
4
Schließen und öffnen Sie den Navigationsbereich , indem Sie auf die Titelleiste der Pfeilsymbole . Die Scheibe zeigt die Tabelle KidsBooks Ihr Unterprogramm erstellt .
5
Presse "Alt" + " F11 ", um die Unterroutine in der IDE zurückzukehren. Fügen Sie den folgenden neuen Unterprogramm unter dem createTable Unterprogramm . Die addTableRow sub fügt eine Zeile von Daten in der Tabelle Ihre createTable Programm gemacht . Dieses neue Programm funktioniert durch Öffnen eines Recordset-Objekts und Aufruf der AddNew Methode dieses Objekts .
Public Sub addTableRow ()
Dim dbase Wie DAO.Database
Dim rst als DAO.Recordset
Set dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " KidsBooks " )
rst.AddNew
rst ! bookname = " der Zauberer von Oz "
rst ! Autor =" Frank Baum "
rst.Update
End Sub
6
Führen Sie das neue Programm wie Sie den vorherigen tat. Zurück zum Greifen , schließen Sie dann das KidsBooks Tabelle mit der rechten Maustaste auf die entsprechende Registerkarte und klicken Sie auf " Schließen". Doppelklicken Sie auf " KidsBooks " im Navigationsbereich auf die Tabelle öffnen und sehen das neue Buch Eintrag Ihr Programm aufgenommen.
7
Paste, in der IDE , die folgenden neuen Programm unter dem bisherigen zwei . Das Programm zeigt alle Daten in der Tabelle enthalten KidsBooks . Dieses Programm öffnet ein Recordset-Objekt , ebenso wie das vorherige Programm . Dieses Mal jedoch wird die MoveNext aufgerufen. Diese Funktion verschiebt einen internen Index durch jede der Zeilen in der Tabelle KidsBooks .
Public Sub showData ()
Dim dbase Wie DAO.Database
Dim rst als DAO . Recordset
Set dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " KidsBooks " )
Dim s As String
Do While Not rst.EOF
s = " Buchtitel :" & rst [ BookName ] & " Autor : ". ! & rst [ Autor ]
MsgBox ( en) von
rst.MoveNext !
Schleife
rst.Close
dbase.Close
End Sub
8
Führen Sie das Programm , wie Sie das lief beiden anderen. Das Programm wird eine Meldung angezeigt , die den "Wizard of Oz "-Eintrag .
