Globale Suche

Eine der bekanntesten Tastenkombinationen dürfte Strg + F zum Aktivieren der Suchfunktion sein. Der Windows Explorer hat sie, die Internet Browser verwenden sie einheitlich und die Office-Anwendungen greifen darauf zurück. Haben Sie Ihre Anwendungen auch schon damit ausgestattet Nein Na, dann wird es aber höchste Zeit! Spendieren Sie den Benutzern diesen Shortcut und zeigen Sie die richtige Suche für den aktuellen Kontext an.

Ziel dieser Lösung

In einer Access-Anwendung braucht man, wie in anderen Anwendungen auch, hier und da eine Suchfunktion. Normalerweise bezieht sich diese Suche auf die in einem Formular angezeigten Daten und soll das Durchsuchen der enthaltenen Felder ermöglichen.

Die für die Suche notwendigen Elemente sind dabei meist Teil des Formulars selbst; manchmal öffnet sich auch ein extra Formular mit den Feldern zur Eingabe der Suchkriterien und gegebenenfalls einer Ergebnisliste.

Dieser Beitrag stellt eine Suchfunktion vor, die Sie von beliebigen Formularen aus aufrufen können und deren Inhalt Sie größtenteil selbst konfigurieren können. Der Aufruf soll über die bekannte Tastenkombination Strg + F erfolgen und einen Suchdialog anzeigen, der die zu durchsuchenden Felder des zum Zeitpunkt des Aufrufs geöffneten Formulars anzeigt.

Es soll aber auch möglich sein, nach anderen Elementen zu suchen, als nach solchen, die das aktuelle Formular anzeigt – also beispielsweise nach Artikeln -, während das Kundenformular sichtbar ist. Und für alle Fälle liefert die Lösung auch die Möglichkeit, in allen festgelegten Tabellen nach Elementen zu suchen.

Wichtig ist hier natürlich eine hohe Konfigurierbarkeit. Dies bezieht sich vor allem auf die folgenden Punkte:

  • Sie legen die Tabellen fest, in denen gesucht werden soll.
  • Sie definieren die Felder, die in die Suche einbezogen werden.
  • Sie stellen die Formulare ein, die beim Anklicken eines der Suchergebnisse geöffnet werden und das ausgewählte Ergebnis anzeigen sollen.
  • Außerdem soll die Suche verschiedene Tabellen oder auch alle Tabellen durchforsten können – je nachdem, von wo sie aufgerufen wurde. Geschieht dies beispielsweise vom Kundenformular aus, soll sie standardmäßig die Kunden durchsuchen; ist gerade kein Formular geöffnet, durchsucht sie alle angegebenen Tabellen oder der Benutzer stellt selbst ein, welche Daten für die Suche verwendet werden sollen.

Der Benutzer sieht von diesen Konfigurationsmöglichkeiten nichts – er soll lediglich die Suche nutzen können.

Suche vorbereiten

Die Suche bereiten Sie als Entwickler mit dem Formular frmGlobalSearchOptions vor. Dieses sieht wie in Abb. 1 aus und zeigt jeweils die Definition einer Suche in einem Datensatz an. Gleichzeitig können Sie hier auch festlegen, wie die Daten der Datenherkunft dieser Suche in einer Suche über alle Daten angezeigt werden sollen.

pic010.png

Abb. 1: Konfigurationsformular für die globale Suche

Schauen wir uns die Suchdefinition aus Abb. 1 genauer an. Die im Konfigurationsformular angezeigte Suche wird in fünf Bereichen definiert. Der erste Bereich erwartet die Eingabe eines Titels, der das gesuchte Element umschreibt (hier Artikel), die Tabelle oder Abfrage, aus der die Daten stammen (tblArtikel) und das Primärschlüsselfeld dieser Tabelle (ArtikelID).

Die nächsten sechs Felder im zweiten Bereich enthalten sämtliche Parameter der DoCmd.OpenForm-Methode. Damit können Sie genau festlegen, welches Formular angezeigt wird, wenn der Benutzer die Details zu einem Suchergebnis des Typs Artikel sehen möchte und wie dieses geöffnet werden soll. Interessant ist die Möglichkeit, etwa für den Parameter WhereCondition Platzhalter wie [PKID], [PKIDValue] und [Title] einzufügen. Diese werden zur Laufzeit durch den Primärschlüsselnamen, den Primärschlüsselwert und den weiter oben im Formular angegebenen Titel ersetzt. Anders wäre es auch kaum denkbar, ein Formular zu öffnen, das den in der globalen Suche ausgewählten Datensatz anzeigt.

Der untere Bereich enthält nur ein Feld, das einen Ausdruck für die Ausgabe im Suchergebnis der globalen Suche erwartet. Wie erwähnt, können Sie, wenn das Suchformular nicht in einem bestimmten Kontext geöffnet wurde, eine globale Suche über alle in der Suchkonfiguration angegebenen Tabellen durchführen. Nun bestehen die Suchergebnisse der einzelnen Suchen, wie etwa nach Artikeln oder Kunden, aus verschiedenen Feldern, die auch noch eine unterschiedliche Anzahl aufweisen können. Damit das Suchergebnis einer globalen Suche dennoch aussagekräftig ist, soll es nur zwei Spalten enthalten, von denen die erste den weiter oben angegebenen Titel liefert und damit einen Hinweis auf die Tabelle, aus der die Datensätze stammen, und die zweite einen Ausdruck einblendet, der die wichtigsten Informationen des gefundenen Datensatzes enthält:

  • Artikelname & ", " & Liefereinheit etwa liefert Einträge der Tabelle tblArtikel wie Chai, 10 Kartons x 20 Beutel.
  • KundenCode & " – " & Firma zeigt Daten aus tblKunden wie ALFKI – Alfreds Futterkiste an.

Beachten Sie, dass diese Ausdrücke gleichzeitig als Grundlage für die Suchabfrage dienen – bei der Suche in allen konfigurierten Tabellen werden also nur die so festgelegten Ausdrücke durchsucht!

Der Bereich oben rechts legt die Felder fest, die für die Anzeige des Suchergebnisses und für die Suche herangezogen werden. Die Unterscheidung erfolgt über die beiden Ja/Nein-Felder auf der rechten Seite.

Der letzte Bereich unten rechts ist ebenfalls wichtig: Dort können Sie die Formulare auswählen, welche beim Anwenden der Tastenkombination Strg + F zum Anzeigen des im aktuellen Datensatz des Konfigurationsformulars definierten Suchformulars führen. Betätigt der Benutzer Strg + F, wenn kein Formular geöffnet ist oder eines, für das keine Suche konfiguriert wurde, dann öffnet sich das Suchformular und bietet die globale Suche über alle festgelegten Tabellen an.

Globale Suche im Einsatz

Wie genau funktioniert nun die eigentliche globale Suche Diese bietet ein einziges Suchformular, das dynamisch den Gegebenheiten angepasst wird. Das Formular sieht wie in Abb. 2 aus. Über das oberste Kombinationsfeld wählt der Benutzer aus, wonach er suchen möchte – entweder nach allen Daten, welche die Suche abdeckt, oder nach etwas Speziellem wie Artikel oder Kunden.

pic014.png

Abb. 2: Die globale Suche in Aktion

Hat er sich für Letzteres entschieden, kann er mit dem zweiten Kombinationsfeld eines der Felder auswählen, die in der Konfiguration als Suchkriterien festgelegt wurden. Das Feld Suchbegriff schließlich nimmt den Suchbegriff auf und filtert die in der Ergebnisliste angezeigten Einträge nach jedem Tastenanschlag. Das oberste Kombinationsfeld zur Auswahl der zu durchsuchenden Objekte wird dabei automatisch vorbelegt, wenn der Benutzer Strg + F drückt, während eines der unter Aufrufende Formulare in der Konfiguration angegebenen Formulare den Fokus hat.

Einsatz der globalen Suche in eigenen Anwendungen

Wenn Sie diese Suche in einer eigenen Anwendung verwenden möchten, brauchen Sie nur ein paar Objekte zu importieren, das Suchformular optisch den übrigen Objekten Ihrer Datenbank anzupassen und die Suche wie oben beschrieben zu konfigurieren. Sie benötigen die folgenden Elemente:

  • Tabellen tblGlobalSearchOptionsFields, tblGlobalSearchOptionsForms und tblGlobalSearchOptionsTables
  • Formulare frmGlobalSearch und frmGlobalSearchOptions
  • Makros AutoExec und AutoKeys
  • Modul mdlGlobalSearch

Falls schon eines oder beide Makros vorhanden sind, fügen Sie die enthaltenen Befehle einfach hinzu. Für alle, die unsere globale Suche nicht nur einsetzen, sondern auch noch weiter anpassen oder um Funktionen erweitern möchten, beschreiben die folgenden Seiten detailliert den Aufbau der Lösung.

Tastenkombination

Beginnen wir doch gleich dort, wo auch der Benutzer Ihrer Anwendung wohl anfangen würde, wenn er kein Tastaturfeind ist und auch in anderen Anwendungen auf Strg + F als Allheilmittel für das Auffinden vermisster Informationen setzt: beim Füllen der Tastenkombination mit Leben.

Hier gibt es zwei Möglichkeiten: Entweder Sie legen eine solche Tastenkombination nur für bestimmte Elemente wie etwa Formulare fest, oder Sie definieren diese anwendungsweit. Im folgenden Fall wollen wir die zweite Variante wählen, da die Suche auch verfügbar sein soll, wenn gar kein Formular geöffnet ist.

Wie also öffnen wir das Suchformular durch pures Betätigen von Strg + F Dies geschieht ganz einfach mithilfe des für die Definition von globalen Tastenkombinationen vorgesehenen Makros namens Autokeys. Legen Sie also ein leeres Makro an und speichern Sie es unter diesem Namen.

Aktivieren Sie dann die Anzeige der Spalte Makroname und tragen Sie dort den Ausdruck ^f ein, was der Tastenkombination Strg + F entspricht. Als Aktion legen Sie AusführenCode mit dem Parameter =GlobalSearch() fest, was den Aufruf der gleichnamigen, öffentlich deklarierten Funktion auslöst (s. Abb. 3). Diese können Sie zunächst in dieser Form in ein Standardmodul eintragen und gleich testen, ob die Tastenkombination funktioniert:

pic001.png

Abb. 3: Das AutoKeys-Makro führt auf Tastendruck die gewünschte Funktion aus.

Public Function GlobalSearch()
    On Error Resume Next
    DoCmd.OpenForm "frmGlobalSearch", _
    OpenArgs:=Screen.ActiveForm.Name
    If Err.Number = 2475 Then
        DoCmd.OpenForm "frmGlobalSearch"
    End If
End Function

Die Routine ruft gleich das Formular frmGlobalSearch auf und übergibt, wenn gerade ein anderes Formular den Fokus hat, dessen Namen als Öffnungsargument. Dieses wird in frmGlobalSearch ausgewertet – dazu später mehr.

Unter einer speziellen Konstellation kann es vorkommen, dass das AutoKeys-Makro partout seinen Dienst verweigert – wenn Access einen anderen Namen für das Makro festgelegt hat, das auf Tastenkombinationen reagieren soll. Das prüfen Sie ganz einfach mit folgender Anweisung, die Sie im Direktfenster des VBA-Editors (Strg + G) absetzen:

Debug.Print Application.GetOption("Key assignment macro")

Liefert dies ein anderes Resultat als AutoKeys, beispielsweise Tastaturbelegung, haben Sie zwei Möglichkeiten: Entweder Sie legen auch noch ein zweites Makro für diesen Fall an (andere Namen als AutoKeys oder Tastaturbelegung sind eigentlich unüblich – aber nicht auszuschließen), oder Sie prüfen den Namen des AutoKeys-Makros und stellen diesen gegebenenfalls auf AutoKeys ein. Dies müssten Sie wiederum in einer VBA-Routine erledigen, die beim Start der Anwendung durch das Makro AutoExec aufgerufen wird (s. Abb. 4):

pic002.png

Abb. 4: Das AutoExec-Makro ruft eine Funktion auf, die den Namen des AutoKeys-Makros einstellt.

Public Function CheckAutokeys()
    If Not Application.GetOption("Key
    assignment macro") = "Autokeys" Then
    Application.SetOption "Key assignment
    macro", "Autokeys"
End If
End Function

Die Möglichkeit, dass ein Anwender andere Anwendungen einsetzt, deren AutoKeys-Makro anders als AutoKeys heißt, lassen wir hier außen vor – im wahren Leben sollten Sie aber den Ausgangszustand vor dem Schließen der Anwendung wieder herstellen.

Suche konfigurieren

Bevor der Benutzer die Suche einsetzen kann, müssen Sie einige Einstellungen vornehmen. Dies soll über entsprechende Formulare geschehen, wobei die Einstellungen in einer entsprechenden Tabelle gespeichert werden. Mögliche Einstellungen:

  • Angabe eines Titels, beispielsweise Kunden oder Artikel
  • Tabelle, aus der die Daten stammen
  • Felder, die durchsucht und angezeigt werden sollen
  • Formular, das geöffnet werden soll, wenn der Benutzer auf einen Eintrag des Suchergebnisses klickt
  • Formulare, in deren Zusammenhang bestimmte Suchen aktiviert werden sollen

Zum Speichern dienen drei Tabellen namens tblGlobalSearchOptionsTables, tblGlobalSearchOptionsFields und tblGlobalSearchOptionsForms. tblGlobalSearchOptionsTables enthält diese Felder:

  • ID: Primärschlüsselfeld
  • Title: Titel, der im Suchfenster angezeigt wird
  • TableOrQuery: Tabelle oder Abfrage, aus der die Suchfelder stammen
  • PrimaryKey: Primärschlüssel dieser Tabelle, mit der auch das später anzuzeigende Formular gefiltert werden soll
  • Formname: Name des zu öffnenden Formulars
  • View, Filtername, WhereCondition, DataMode, WindowMode und OpenArgs: Parameter für das Öffnen des Formulars per DoCmd.OpenArgs

Die Tabelle tblGlobalSearchOptionsFields enthält diese Felder:

  • ID: Primärschlüsselfeld
  • TableID: Fremdschlüsselfeld zum Festlegen eines Datensatzes aus tblGlobalSearchOptionsTables
  • Fieldname: Name des Feldes
  • ShowField: Gibt an, ob das Feld im Suchergebnis angezeigt werden soll.
  • SearchField: Gibt an, ob das Feld in die Suche einbezogen werden soll.
  • ColumnWidth: Breite der Spalte dieses Feldes im Listenfeld
  • OrderID: Repräsentiert die Reihenfolge-Position des Feldes.

Die Tabelle tblGlobalSearchOptionsForms ordnet den verschiedenen Suchen die Namen der Formulare zu, in deren Kontext eine Suche aufgerufen wird. Abb. 5 zeigt die drei Tabellen im Beziehungen-Fenster.

pic003.png

Abb. 5: Tabellen der globalen Suche im Beziehungen-Fenster

Konfigurationsformular

Die Konfiguration soll über ein Formular namens frmGlobalSearchOptions erfolgen, das jeweils einen Datensatz der Tabelle tblGlobalSearchOptionsTables anzeigt und die damit verknüpften Datensätze der Tabelle tblGlobalSearchOptionFields in einem Unterformular darstellt (sfmGlobalSearchOptions).

Beginnen Sie mit dem Unterformular: Dazu legen Sie ein neues leeres Unterformular an und stellen die Datenherkunft auf die Tabelle tblGlobalSearchOptionsFields ein.

Ziehen Sie alle Felder, die das Unterformular anzeigen soll, in den Detailbereich der Entwurfsansicht (s. Abb. 6). Wir wollen dort nur die Felder auswählen, deren Reihenfolge festlegen und einstellen, welche Felder angezeigt und/oder für die Suche verwendet werden.

pic004.png

Abb. 6: Entwurf des Unterformulars sfmGlobalSearchOptions

Später peppen wir das Formular noch auf, bis hierher reicht uns diese Fassung jedoch. Kommen wir zum Hauptformular, das auf der Tabelle tblGlobalSearchOptionsTables als Datenherkunft basiert.

Hier ziehen Sie einfach alle Felder außer dem Primärschlüsselfeld in den Detailbereich. Außerdem fügen Sie per Drag and Drop das Unterformular sfmGlobalSearchOptions zum Entwurf des Hauptformulars hinzu.

Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!
Hier geht es zur Bestellung des Jahresabonnements des Magazins Access im Unternehmen:
Zur Bestellung ...
Danach greifen Sie sofort auf alle rund 1.000 Artikel unseres Angebots zu - auch auf diesen hier!
Oder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:

Schreibe einen Kommentar