Visual Basic für Applikationen ( VBA) ist eine Programmiersprache, in Standalone-Anwendungen verwendet wird, und auch , um die Funktionalität von Microsoft Office-Programme erweitern , einschließlich der Erstellung der Datenbank -Programm Access. Einige Aufgaben in Access eignen sich natürlich für die Automatisierung mit VBA-Code , wie die Berechnung von Werten für Benutzer hinzugefügte Steuerelemente in Berichten . Im Gegensatz dazu hat die Access- Abfrage Design-Ansicht nicht ohne weiteres aussetzen Möglichkeiten des Enhancements mit VBA . Dennoch wird ein Anwendungsbeispiel einer bestimmten VBA -Funktion zeigt Ihnen, wie VBA kann Ihnen helfen, mit Abfrage Entwurfsansicht arbeiten. Anleitung
1
Open Access und erstellen Sie eine kleine Tabelle von E-Mail -Adressen. Verwenden Sie die folgende Tabelle, wenn Sie nicht über eine vorhandene. Geben Sie die erste Zeile der folgenden Daten als Überschrift der Tabelle einzelne Spalte .
Emaildsk@yahoo.comIndianaJones @ @ Hollywood.comHarryBelafonte Caribbean.com
2
Speichern Sie die Tabelle durch Drücken von " Strg- S ", und geben Sie " EmailAddresses " für den Namen der Tabelle . Speichern Sie die Datenbank selbst durch Drücken der " Alt- F ", dann wählen Sie " Datenbank speichern . " Type " VBAFromAccessQuery " für den Namen der Datenbank .
3
Beginn der Schaffung einer benutzerdefinierte Funktion für die Verwendung in einer Abfrage nach ersten Aktivieren von Makros in Ihrer Datenbank. Drücken Sie die " Alt- F ", um das Menü "Optionen" Artikel aufzudecken, klicken Sie dann auf das Element .
4
Drücken Sie die " Trust Center " Artikel in der " Access-Optionen " Dialogfeld klicken Sie dann auf den " Trust Center Settings" -Taste. Drücken Sie die " Einstellungen für Makros " Artikel in der " Trust Center " im Dialogfeld klicken Sie auf die Option, die lautet: " Alle Makros aktivieren ". ( Achten Sie darauf, zu diesem Dialogfeld zurückkehren , Makros zu deaktivieren , wenn Sie die fertig sind Schritte in diesem Artikel . )
Drücken Sie "OK " auf allen geöffneten Dialogfelder zurückkehren zu Access.
5
Drücken Sie die " Database Tools " Symbolleiste auswählen, dann auf " ; Visual Basic " . , um den Visual Basic integrierten Entwicklungsumgebung ( IDE) , die in dem Sie benutzerdefinierte Funktionen zu erstellen , ist geben
6
Presse " Insert ", gefolgt von " Modul " auf der IDE Symbolleiste , einen neuen Raum zu geben Programmcode erstellen in. Fügen Sie den folgenden Programmcode überall in diesem neuen Raum :
Public Function getdomainname ( emailAddress ) Dim mm = Len ( emailAddress ) - InStr ( emailAddress " @ " ) getdomainname = Right ( emailAddress , m) End Function
7
Presse " Strg + S ", um das Programm zu speichern , und nennen Sie das Modul " CustomFunctions ", wenn von Access aufgefordert . Zurück entweder durch Drücken von " Alt + F11 " oder auf das kleine Icon Zugang im linken Teil der IDE- Symbolleiste zuzugreifen.
8
Erstellen Sie eine neue Abfrage für die E-Mail- Adress-Tabelle , indem Sie zuerst die Tabelle den Namen ( " EmailAddresses ") in der Navigations-Fenster auf der linken Seite des Haupt- Access-Fenster . Dann klicken Sie auf " Erstellen ", gefolgt von "Query Design" auf der Symbolleiste . Wenn Sie mit Access 2003 , erstellen Sie die Abfrage mit " Objekten", dann "Query ", dann " New ".
9
Doppelklicken Sie auf das " EmailAddresses " ; Artikel in der " Tabelle anzeigen " im Dialogfeld ein kleines Fenster, das alle Felder der E-Mail- Adress-Tabelle erstellen. Drücken Sie auf " Schließen" im Dialogfeld
10
der rechten Maustaste auf die Zeile mit der Aufschrift " Field: " . In einem der Abfrage den Spalten . Wählen Sie den Punkt " Build" , um die "Expression Builder "-Dialog , mit dem Sie Abfragen erstellen , die Formeln verwenden können .
11
Doppelklicken Sie auf die "Funktionen" Artikel in der Anzeige " Expression Elements " Fenster, um diesen Knoten zu erweitern , klicken Sie einmal auf den Namen der Datenbank ( " VBAFromAccessQuery " ), um die Funktion, die Sie für diese Datenbank erstellt freizulegen.
12
Hinweis , dass die" Expression Values " -Bereich zeigt den " getdomainname " Funktion, die Sie in der Visual Basic- IDE früher eingefügt. Doppelklicken Sie auf diesen Artikel , dann geben Sie " [email] " anstelle des "<< >> emailAddress " Text im oberen Bereich des Dialogfelds .
13
Drücken Sie auf " OK", um "Expression Builder ", dann mit der rechten Maustaste auf die Abfrage auf die Registerkarte , und wählen Sie " Datenblatt anzeigen ", um die Abfrage ausführen zu schließen. ( Oder drücken Sie " Design" und wählen Sie " Run" in der Symbolleiste. )
Beachten Sie, dass die Ergebnisse der Abfrage nur die Domain-Namen der E-Mail -Adressen, die ein Ergebnis der erfolgreichen Anwendung Ihren VBA -Code ist zeigen für den Zugriff auf den Abfrage- Design-Ansicht .
