<\/p>\n
Lernen Sie, wie Sie per VBA Suchkriterien auf Basis von Formularsteuerelementen zusammenstellen.<\/p>\n
Formulare, VBA<\/p>\n
Access 97 und höher<\/p>\n
SQLPerVBA97.mdb, SQLPerVBA00.mdb<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Fast immer, wenn man den Benutzer einer Anwendung Suchkriterien zusammenstellen lässt, baut im Hintergrund eine VBA-Routine eine passende SQL-Anweisung zusammen, die dann die gewünschten Datensätze ermittelt. Der vorliegende Beitrag stellt gängige Konfigurationen vor und zeigt, wie man aus der Eingabe in verschiedenen Steuerelementen passende SQL-Anweisungen erzeugt.<\/b><\/p>\n
Die erste Frage, die man sich vor dem Erstellen eines Suchformulars in einer Datenbank stellt, dreht sich um den Umfang und die Erweiterbarkeit der gewünschten Suchfunktion.<\/p>\n
Wenn das Suchformular nur die Einträge einer Adressenliste mit bestimmten Vor- oder Nachnamen heraussuchen soll, reichen zwei Textfelder zur Eingabe der Suchbegriffe wohl aus.<\/p>\n
Wenn die zu durchsuchende Datenherkunft aber viele Felder enthält, die als Suchkriterien herhalten können – wäre dann nicht ein Suchformular angebracht, mit dem der Benutzer sich die passenden Suchkriterien per Kombinationsfeld zusammenklicken kann – wie in Bild 1<\/p>\n
Prinzipiell ist eine solche Lösung sicher übersichtlicher, aber nicht alle potenziellen Benutzer werden diese Lösung ohne Anleitung einsetzen können (das ist leider wirklich so).<\/p>\n
Auch die Konfiguration einer solchen Lösung ist nicht besonders einfach; immerhin können die Suchfelder unterschiedliche Datentypen aufweisen, denen man etwa die zur Verfügung stehenden Vergleichsoperatoren anpassen muss.<\/p>\n
Der vorliegende Beitrag konzentriert sich daher auf „statische“ Suchformulare, die feste Suchfelder enthalten.<\/p>\n
Der Beitrag zeigt das Zusammenstellen von SQL-Ausdrücken auf Basis der für die Suche zur Verfügung stehenden Steuerelemente. Das Ergebnis aller nachfolgenden Beispiele ist demnach ein SQL-Ausdruck, der im Folgenden als Datenherkunft eines Formulars mit der Ergebnisliste oder als Datensatzherkunft eines Steuerelements wie etwa eines Listenfeldes verwendet werden kann. Dies ist auch das Ziel, das Sie beim Bau eines Suchformulars zunächst im Auge haben sollten: Den SQL-Ausdruck können Sie einfach im Abfragefenster testen; erst wenn dieser das gewünschte Ergebnis liefert, brauchen Sie sich um dessen Ausgabe in einer Liste zu kümmern. Deshalb enthalten die nachfolgend vorgestellten Routinen auch eine Anweisung, die den ermittelten SQL-Ausdruck im Direktfenster ausgibt – von dort können Sie ihn direkt in die SQL-Ansicht einer neuen Abfrage kopieren und diese testen. <\/p>\n
![](\"..\/fileadmin\/_temp_\/{B4B17D5A-1E58-4614-B1EB-A9EFF5EE05EC}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Ein Suchformular mit dynamischen Suchfeldern<\/span><\/b><\/p>\n Die einfachste denkbare Suche enthält lediglich ein Feld, in das man den gesuchten Inhalt eines Feldes der Datenherkunft einträgt und alle Datensätze anzeigt, die dem angegebenen Suchkriterium entsprechen.<\/p>\n Bild 2 zeigt ein einfaches Beispiel für ein solches Formular: Es enthält lediglich ein Feld zur Eingabe des gesuchten Artikelnamens und eine Schaltfläche zum Starten des Suchvorgangs.<\/p>\n <\/b><\/p>\n Bild 2: Entwurfsansicht eines einfachen Suchformulars<\/span><\/b><\/p>\n Am einfachsten für den Programmierer, aber am unflexibelsten für den Benutzer ist die Eingabe des exakten Artikelnamens als Suchbegriff.<\/p>\n Die von der passenden Routine aus Quellcode 1 ermittelte SQL-Anweisung sieht dann etwa so aus:<\/p>\n Da der Benutzer die genaue Bezeichnung des gesuchten Artikels in der Regel aber nicht kennt, vereinfachen Sie die Aufgabe durch den Einsatz von Platzhaltern.<\/p>\n Das kann auf zwei Arten erfolgen: Entweder Sie nehmen ihm diese Aufgabe ab und formulieren die Suchanfrage um in „Geben Sie einen Teil des gesuchten Artikelnamens ein“ oder Sie überlassen ihm selbst das Einfügen der Platzhalter.<\/p>\n Je nach dem Datentyp des zu durchsuchenden Feldes muss man den Suchbegriff „vorbehandeln“. So interpretiert Access Zeichenketten in Vergleichsausdrücken ohne Anführungszeichen als Parameter und fragt diese beim Ausführen der Abfrage ab – also packt man Zeichenketten wie in dem SQL-Ausdruck aus Quellcode 1 in Anführungszeichen. Da der SQL-Ausdruck selbst bereits in Anführungszeichen eingefasst ist, muss man entweder doppelte Anführungszeichen oder Hochkommata verwenden. Bei Datumsangaben gibt es wiederum spezielle Maßnahmen – diese finden Sie unter anderem im Beitrag Access-FAQ: Rund um Access (Shortlink 329) im Kapitel Datum an SQL-String übergeben. <\/p>\n <\/p>\n Die erste Lösung zieht ein Formular wie in Bild 3 und den Code aus Quellcode 2 nach sich. Der Suchbegriff wird dabei automatisch von Sternchen-Platzhaltern (*) eingerahmt. Als Ergebnis gibt die erzeugte Abfrage alle Artikel zurück, deren Artikelname die als Suchbegriff eingegebene Zeichenfolge enthält.<\/p>\n Die Suche nach dem Buchstaben „A“ gibt also etwa alle Artikel zurück, deren Name ein A beinhaltet. Das funktioniert im übrigen nur mit dem LIKE-Operator, nicht mit dem Gleichheitszeichen (=).<\/p>\n Quellcode 1: Ausgabe einer einfachen SQL-Anweisung<\/b><\/p>\n Quellcode 2: Diese Routine fügt dem Suchausdruck automatisch Platzhalter hinzu.<\/b><\/p>\n <\/b><\/p>\n Bild 3: Entwurf des Formulars frmSucheEinfachMitAutomatischemPlatzhalter<\/span><\/b><\/p>\n Die vorherige Lösung ist etwas unflexibel: Der Benutzer kann etwa nicht festlegen, dass der SQL-Ausdruck beispielsweise nur Datensätze zurückgibt, deren Artikelname mit „A“ beginnt.<\/p>\n Der folgende Ansatz überlässt dem Benutzer die Eingabe der Platzhalter. Wichtig ist hierbei, dass Sie den Benutzer über die Möglichkeiten und Funktionen der verfügbaren Platzhalter informieren.<\/p>\n Dies kann etwa durch ein Beschriftungsfeld oder durch einen SteuerelementTip-Text geschehen.<\/p>\n Erstere Variante ist aber eher als „idiotensicher“ anzusehen, hier kann sich kein Benutzer beschweren, er sei nicht über die Möglichkeiten aufgeklärt worden (siehe Bild 4).<\/p>\n In diesem Fall stellt der folgende Ausdruck die SQL-Anweisung zusammen (in einer Zeile):<\/p>\n <\/b><\/p>\n Bild 4: Suche mit benutzerdefinierten Platzhaltern<\/span><\/b><\/p>\n Als zusätzliche Hilfe kann man dem Benutzer Beispiele für den Einsatz der Platzhalter an die Hand geben:<\/p>\n <\/b><\/p>\n Bild 5: Suche per Kombinationsfeld<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Diese Abfrage fasst Felder aus mehreren Tabellen zusammen.<\/span><\/b><\/p>\n Sie können es dem Benutzer auch sehr einfach machen: Dazu verwenden Sie statt des Textfeldes zur Eingabe des Suchbegriffs einfach ein Kombinationsfeld, das alle möglichen Suchbegriffe enthält.<\/p>\n Das Kombinationsfeld aus Bild 5 heißt cboArtikelname und besitzt als Datensatzherkunft den folgenden Ausdruck:<\/p>\n Dieser liefert alle Artikelnamen in alphabetischer Reihenfolge.<\/p>\n Die Code-Zeile zum Ermitteln des resultierenden SQL-Ausdrucks sieht wie die aus dem ersten Beispiel aus – mit dem Unterschied, dass diese sich auf das Kombinationsfeld cboArtikelname bezieht:<\/p>\n Diese Variante sollten Sie nur einsetzen, wenn die Menge der Suchbegriffe überschaubar ist – immerhin muss Access das Kombinationsfeld mit den enthaltenen Daten füllen.<\/p>\n Die Artikel-Tabelle enthält zwei Fremdschlüsselfelder mit Verweisen auf die entsprechenden Felder der Kategorien- und die Lieferanten-Tabelle.<\/p>\n Die Verwendung der in diesen Tabellen enthaltenen Felder als Suchkriterium gestaltet sich ein wenig aufwändiger, als wenn die Felder in der Tabelle selbst enthalten sind.<\/p>\n Dabei sind zwei Szenarien denkbar: Im ersten verwendet man eine Abfrage mit den notwendigen Tabellen und Feldern wie in Bild 6 als Datenherkunft der SQL-Abfrage.<\/p>\n Die Felder einer solchen Abfrage kann man anschließend wie die Felder einer einzigen Tabelle behandeln – der Ablauf entspricht genau der Vorgehensweise aus Quellcode 1, mit dem Unterschied, dass eine Abfrage statt einer Tabelle verwendet wird.<\/p>\n Die zweite Variante verwendet wiederum ein Kombinationsfeld zur Auswahl des Suchbegriffs.<\/p>\n Das ist zumindest dann ratsam, wenn die verknüpfte Tabelle nicht allzu viele Datensätze enthält – was bei den Kategorien und Lieferanten von Artikeln der Fall ist.<\/p>\n Das Kombinationsfeld zur Auswahl von Suchbegriffen aus verknüpften Tabellen ist anders aufgebaut als im oben vorgestellten Beispiel, in dem sich das zu durchsuchende Feld in der Haupttabelle befindet.<\/p>\n Das Kombinationsfeld zeigt zwar auch alle vorhandenen Suchbegriffe an, ist allerdings an das Primärschlüsselfeld der verknüpften Tabelle gebunden.<\/p>\n <\/b><\/p>\n Bild 7: Datensatzherkunft des Kombinationsfelds zum Suchen nach Artikeln einer bestimmten Kategorie<\/span><\/b><\/p>\n Die Datensatzherkunft sieht dementsprechend wie in Bild 7 aus, die beiden Eigenschaften Spaltenanzahl und Spaltenbreite erhalten die Werte 0 und 2cm, damit das Kombinationsfeld nur den Kategorienamen, nicht aber den Primärschlüsselwert anzeigt. Die Codezeile zum Ermitteln der SQL-Anweisung sieht sehr einfach aus:<\/p>\n Der Grund dafür ist, dass man die gewünschten Datensätze der Artikel-Tabelle ja leicht über den Primärschlüsselwert der im Kombinationsfeld ausgewählten Kategorie ermitteln kann – die Werte des Fremdschlüsselfelds der Haupttabelle und des Primärschlüsselfelds der verknüpften Tabelle sind ja identisch.<\/p>\n Der Grundstein ist gelegt – das Erzeugen von SQL-Ausdrücken für einfache Suchfelder sollte man nach der Lektüre dieses Beitrags „blind“ erledigen können.<\/p>\n Das ist allerdings erst der Anfang: In den folgenden Ausgaben von Access im Unternehmen erfahren Sie, wie Sie umfangreichere Suchformulare mit mehr als einem Suchfeld ausstatten und per VBA die passenden SQL-Ausdrücke zusammenstellen.<\/p>\n Außerdem statten Sie die dort programmierten Formulare mit dem entscheidenden Element aus, das in diesem Beitrag bisher vernachlässigt wurde – nämlich einem Steuerelement wie einem Listenfeld oder einem Unterformular zur Anzeige der Suchergebnisse. Wenn Sie bis dahin keine Geduld haben, können Sie die von den Beispielen des vorliegenden Beitrags erzeugten SQL-Ausdrücke aus dem Direktfenster kopieren und in die SQL-Ansicht einer neuen, leeren Abfrage einfügen – durch einen Wechsel in die Datenblattansicht erhalten Sie dann das tatsächliche Ergebnis. Alternativ können Sie das Ergebnis natürlich auch einem Listenfeld als Datensatzherkunft zuweisen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n SQLPerVBA00.mdb<\/p>\n SQLPerVBA97.mdb<\/p>\nEinzelnes Suchfeld<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{B4B17D5A-1E58-4614-B1EB-A9EFF5EE05EC}\/pic002.png\")
<\/p>\nSELECT * FROM Artikel WHERE Artikelname = ''Chai''<\/pre>\n
Hinweis<\/h3>\n
Automatische Platzhalter<\/h3>\n
Private Sub cmdSuchen_Click()\r\n Dim strSQL As String\r\n strSQL = \"SELECT * FROM Artikel WHERE Artikelname = ''\" & Me!txtArtikelname & \"''\"\r\n Debug.Print strSQL\r\nEnd Sub<\/pre>\n
Private Sub cmdSuchen_Click()\r\n Dim strSQL As String\r\n strSQL = \"SELECT * FROM Artikel WHERE Artikelname LIKE ''*\" & Me!txtArtikelname & \"*''\"\r\n Debug.Print strSQL\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{B4B17D5A-1E58-4614-B1EB-A9EFF5EE05EC}\/pic003.png\")
<\/p>\nBenutzerdefinierte Platzhalter<\/h3>\n
strSQL = \"SELECT * FROM Artikel WHERE Artikelname LIKE ''\" & Me!txtArtikelname & \"''\"<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{B4B17D5A-1E58-4614-B1EB-A9EFF5EE05EC}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{B4B17D5A-1E58-4614-B1EB-A9EFF5EE05EC}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{B4B17D5A-1E58-4614-B1EB-A9EFF5EE05EC}\/pic006.png\")
<\/p>\nAuswahl der vorhandenen Einträge<\/h3>\n
SELECT Artikel.Artikelname FROM Artikel ORDER BY Artikel.Artikelname;<\/pre>\n
SQL-Ausdruck per Kombinationsfeld<\/h3>\n
strSQL = \"SELECT * FROM Artikel WHERE Artikelname LIKE ''\" & Me!txtArtikelname & \"''\"<\/pre>\n
Suche nach Daten aus verknüpften Tabellen<\/h3>\n
Suche nach Feldinhalten<\/h3>\n
Suche nach Fremdschlüsselwerten aus 1:n-Tabellen<\/h3>\n
Gebundenes Kombinationsfeld<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{B4B17D5A-1E58-4614-B1EB-A9EFF5EE05EC}\/pic007.png\")
<\/p>\nstrSQL = \r\n\"SELECT * FROM Artikel \r\nWHERE [Kategorie-Nr] = \" & Me!cboKategorien<\/pre>\n
Suche per Primärschlüssel<\/h3>\n
Downloads zu diesem Beitrag<\/h3>\n