<\/p>\n
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.<\/b><\/p>\n
Ziel dieser Lösung<\/p>\n
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.<\/p>\n
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.<\/p>\n
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 <\/b>erfolgen und einen Suchdialog anzeigen, der die zu durchsuchenden Felder des zum Zeitpunkt des Aufrufs geöffneten Formulars anzeigt.<\/p>\n
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.<\/p>\n
Wichtig ist hier natürlich eine hohe Konfigurierbarkeit. Dies bezieht sich vor allem auf die folgenden Punkte:<\/p>\n
Der Benutzer sieht von diesen Konfigurationsmöglichkeiten nichts – er soll lediglich die Suche nutzen können.<\/p>\n
Suche vorbereiten<\/p>\n
Die Suche bereiten Sie als Entwickler mit dem Formular frmGlobalSearchOptions<\/b> vor. Dieses sieht wie in Bild 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.<\/p>\n
![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic010_opt.jpeg\")
<\/p>\n
Bild 1: Konfigurationsformular für die globale Suche<\/span><\/b><\/p>\n Schauen wir uns die Suchdefinition aus Bild 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<\/b>), die Tabelle oder Abfrage, aus der die Daten stammen (tblArtikel<\/b>) und das Primärschlüsselfeld dieser Tabelle (ArtikelID<\/b>).<\/p>\n Die nächsten sechs Felder im zweiten Bereich enthalten sämtliche Parameter der DoCmd.OpenForm<\/b>-Methode. Damit können Sie genau festlegen, welches Formular angezeigt wird, wenn der Benutzer die Details zu einem Suchergebnis des Typs Artikel <\/b>sehen möchte und wie dieses geöffnet werden soll. Interessant ist die Möglichkeit, etwa für den Parameter WhereCondition <\/b>Platzhalter wie [PKID]<\/b>, [PKIDValue]<\/b> und [Title]<\/b> 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.<\/p>\n 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:<\/p>\n 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!<\/p>\n 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<\/b>-Felder auf der rechten Seite.<\/p>\n Der letzte Bereich unten rechts ist ebenfalls wichtig: Dort können Sie die Formulare auswählen, welche beim Anwenden der Tastenkombination Strg + F <\/b>zum Anzeigen des im aktuellen Datensatz des Konfigurationsformulars definierten Suchformulars führen. Betätigt der Benutzer Strg + F<\/b>, 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.<\/p>\n Globale Suche im Einsatz<\/b><\/p>\n Wie genau funktioniert nun die eigentliche globale Suche Diese bietet ein einziges Suchformular, das dynamisch den Gegebenheiten angepasst wird. Das Formular sieht wie in Bild 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.<\/p>\n Bild 2: Die globale Suche in Aktion<\/span><\/b><\/p>\n 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 <\/b>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 <\/b>drückt, während eines der unter Aufrufende Formulare <\/b>in der Konfiguration angegebenen Formulare den Fokus hat.<\/p>\n Einsatz der globalen Suche in eigenen Anwendungen<\/b><\/p>\n 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:<\/p>\n 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.<\/p>\n Tastenkombination<\/b><\/p>\n 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 <\/b>als Allheilmittel für das Auffinden vermisster Informationen setzt: beim Füllen der Tastenkombination mit Leben.<\/p>\n 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.<\/p>\n Wie also öffnen wir das Suchformular durch pures Betätigen von Strg + F<\/b> Dies geschieht ganz einfach mithilfe des für die Definition von globalen Tastenkombinationen vorgesehenen Makros namens Autokeys<\/b>. Legen Sie also ein leeres Makro an und speichern Sie es unter diesem Namen.<\/p>\n Aktivieren Sie dann die Anzeige der Spalte Makroname <\/b>und tragen Sie dort den Ausdruck ^f <\/b>ein, was der Tastenkombination Strg + F <\/b>entspricht. Als Aktion legen Sie AusführenCode <\/b>mit dem Parameter =GlobalSearch() <\/b>fest, was den Aufruf der gleichnamigen, öffentlich deklarierten Funktion auslöst (siehe Bild 3). Diese können Sie zunächst in dieser Form in ein Standardmodul eintragen und gleich testen, ob die Tastenkombination funktioniert:<\/p>\n Bild 3: Das AutoKeys-Makro führt auf Tastendruck die gewünschte Funktion aus.<\/span><\/b><\/p>\n Die Routine ruft gleich das Formular frmGlobalSearch <\/b>auf und übergibt, wenn gerade ein anderes Formular den Fokus hat, dessen Namen als Öffnungsargument. Dieses wird in frmGlobalSearch <\/b>ausgewertet – dazu später mehr.<\/p>\n Unter einer speziellen Konstellation kann es vorkommen, dass das AutoKeys<\/b>-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<\/b>) absetzen:<\/p>\n Liefert dies ein anderes Resultat als AutoKeys<\/b>, beispielsweise Tastaturbelegung<\/b>, haben Sie zwei Möglichkeiten: Entweder Sie legen auch noch ein zweites Makro für diesen Fall an (andere Namen als AutoKeys <\/b>oder Tastaturbelegung <\/b>sind eigentlich unüblich – aber nicht auszuschließen), oder Sie prüfen den Namen des AutoKeys<\/b>-Makros und stellen diesen gegebenenfalls auf AutoKeys <\/b>ein. Dies müssten Sie wiederum in einer VBA-Routine erledigen, die beim Start der Anwendung durch das Makro AutoExec <\/b>aufgerufen wird (siehe Bild 4):<\/p>\n Bild 4: Das AutoExec-Makro ruft eine Funktion auf, die den Namen des AutoKeys-Makros einstellt.<\/span><\/b><\/p>\n Die Möglichkeit, dass ein Anwender andere Anwendungen einsetzt, deren AutoKeys<\/b>-Makro anders als AutoKeys <\/b>heißt, lassen wir hier außen vor – im wahren Leben sollten Sie aber den Ausgangszustand vor dem Schließen der Anwendung wieder herstellen.<\/p>\n Suche konfigurieren<\/p>\n 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:<\/p>\n Zum Speichern dienen drei Tabellen namens tblGlobalSearchOptionsTables<\/b>, tblGlobalSearchOptionsFields<\/b> und tblGlobalSearchOptionsForms<\/b>. tblGlobalSearchOptionsTables <\/b>enthält diese Felder:<\/p>\n Die Tabelle tblGlobalSearchOptionsFields <\/b>enthält diese Felder:<\/p>\n Die Tabelle tblGlobalSearchOptionsForms<\/b> ordnet den verschiedenen Suchen die Namen der Formulare zu, in deren Kontext eine Suche aufgerufen wird. Bild 5 zeigt die drei Tabellen im Beziehungen-Fenster.<\/p>\n Bild 5: Tabellen der globalen Suche im Beziehungen-Fenster<\/span><\/b><\/p>\n Konfigurationsformular<\/b><\/p>\n Die Konfiguration soll über ein Formular namens frmGlobalSearchOptions <\/b>erfolgen, das jeweils einen Datensatz der Tabelle tblGlobalSearchOptionsTables <\/b>anzeigt und die damit verknüpften Datensätze der Tabelle tblGlobalSearchOptionFields <\/b>in einem Unterformular darstellt (sfmGlobalSearchOptions<\/b>).<\/p>\n Beginnen Sie mit dem Unterformular: Dazu legen Sie ein neues leeres Unterformular an und stellen die Datenherkunft auf die Tabelle tblGlobalSearchOptionsFields <\/b>ein.<\/p>\n Ziehen Sie alle Felder, die das Unterformular anzeigen soll, in den Detailbereich der Entwurfsansicht (siehe Bild 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.<\/p>\n Bild 6: Entwurf des Unterformulars sfmGlobalSearchOptions<\/span><\/b><\/p>\n Später peppen wir das Formular noch auf, bis hierher reicht uns diese Fassung jedoch. Kommen wir zum Hauptformular, das auf der Tabelle tblGlobalSearchOptionsTables <\/b>als Datenherkunft basiert.<\/p>\n 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 <\/b>zum Entwurf des Hauptformulars hinzu.<\/p>\n <\/p>\n In der Datenblattansicht sieht das Unterformular dann etwa wie in Bild 7 aus.<\/p>\n Bild 7: Das Konfigurationsformular im Rohbau<\/span><\/b><\/p>\n Konfigurationsformular optimieren<\/b><\/p>\n Mit dem Formular frmGlobalSearchOptions <\/b>lassen sich zwar nun schon die benötigten Daten eintragen, aber jeder Wert muss von Hand eingetippt werden – hier gibt es also Optimierungspotenzial. Beginnen wir mit dem Feld zur Eingabe der Tabelle oder Abfrage: Diese sollen Sie natürlich nicht eintippen, sondern aus einer Liste auswählen.<\/p>\n Sie wandeln das Textfeld also in ein Kombinationsfeld um (Kontextmenü ändern zu|Kombinationsfeld<\/b>) und stellen die Datensatzherkunft auf den folgenden Ausdruck ein:<\/p>\n Das Kombinationsfeld erlaubt nun bereits das komfortable Auswählen der gewünschten Tabelle oder Abfrage (siehe Bild 8). Nach der Auswahl einer Tabelle oder Abfrage soll das Feld PrimaryKey<\/b>, ebenfalls als Kombinationsfeld ausgeführt, mit den Feldnamen der auswählten Tabelle gefüllt werden. Dazu legen Sie für das Steuerelement cboTableOrQuery <\/b>eine neue Ereignisprozedur an, indem Sie für die Eigenschaft Nach Aktualisierung <\/b>des Steuerelements den Wert [Ereignisprozedur] <\/b>auswählen und dann auf die Schaltfläche mit den drei Punkten (…) rechts neben dem Eigenschaftsfeld klicken. Im nun erscheinenden VBA-Editor finden Sie bereits den Prozedurrumpf vor, den Sie wie folgt ergänzen:<\/p>\n Bild 8: Einfache Tabellenauswahl<\/span><\/b><\/p>\n Dies stellt die Eigenschaft Herkunftsart <\/b>auf den Wert Feldliste <\/b>und die Eigenschaft Datensatzherkunft <\/b>auf den Namen der Tabelle ein, welche die Feldliste liefern soll – in diesem Fall die Tabelle, die der Benutzer im Kombinationsfeld cboTableOrQuery <\/b>ausgewählt hat. Nach Auswahl der Tabelle oder Abfrage bietet das Kombinationsfeld cboPrimaryKey <\/b>nun alle dort enthaltenen Felder an (siehe Bild 9).<\/p>\n Bild 9: Auswahl des Primärschlüsselfelds einer Tabelle oder Abfrage<\/span><\/b><\/p>\n Warum aber soll der Benutzer den Primärschlüssel überhaupt auswählen, wenn dieser ja meistens schon definiert ist Er sollte zumindest die Möglichkeit erhalten, dies zu tun. Das für PrimaryKey <\/b>angegebene Feld soll beim Öffnen des Detailformulars eines aus der Ergebnisliste ausgewählten Datensatzes als WhereCondition <\/b>zum Einsatz kommen. Es kann aber natürlich auch vorkommen, dass hier nicht das Primärschlüsselfeld, sondern ein anderes benötigt wird.<\/p>\n Einigen wir uns auf einen Kompromiss: Das Feld cboPrimaryKey <\/b>soll zwar alle Felder der Tabelle oder Abfrage zur Auswahl anbieten, aber der Primärschlüssel der Tabelle soll automatisch ermittelt und voreingestellt werden. Das spart dann in den meisten Fällen einen Maus-Klick ein.<\/p>\n Für das Ermitteln des Primärschlüssels verwenden wir die im Beitrag Tipps und Tricks <\/b>aus Ausgabe 3\/2009 (Shortlink 671) vorgestellte Funktion GetPrimaryKeyFields <\/b>und passen die durch das Ereignis Nach Aktualisierung <\/b>ausgelöste Prozedur wie in Listing 1 an.<\/p>\n Listing 1: Hinzufügen von History-Feldern zu einer Tabelle<\/p>\n Die Prozedur liest nun zusätzlich den Namen des Primärschlüsselfeldes aus und stellt diesen, soweit vorhanden, als Wert des Kombinationsfeldes cboPrimaryKey <\/b>ein. Wird kein Primärschlüssel gefunden, zeigt das Kombinationsfeld einfach das erste Feld der Feldliste an.<\/p>\n Die Auswahl des Formulars, das beim Auswählen eines Suchergebnisses zur Anzeige des betroffenen Datensatzes geöffnet werden soll, kann ebenfalls über ein Kombinationsfeld erfolgen. <\/p>\n Dieses heißt cboFormname<\/b> und besitzt den folgenden SQL-Ausdruck als Datensatzherkunft:<\/p>\n Die übrigen Felder dienen der Einstellung der Parameter beim Öffnen des Formulars für die Details des ausgewählten Suchergebnisses. Einige Parameter basieren auf Access-Konstanten, andere müssen Sie manuell eintragen.<\/p>\n Die Steuerelemente mit den Konstanten führen wir wiederum als Kombinationsfelder aus, diesmal allerdings mit einer Wertliste als Datensatzherkunft. Konkret betrifft dies die Felder View<\/b>, DataMode <\/b>und WindowMode<\/b>, die entsprechenden Kombinationsfelder sollen cboView<\/b>, cboDataMode <\/b>und cboWindowMode <\/b>heißen.<\/p>\n Die notwendigen Eigenschaften stellen Sie entweder direkt im Eigenschaftsfenster ein oder weisen die Werte per VBA zu.<\/p>\n Wir wählen letzteren Weg und benutzen die Ereigniseigenschaft Beim Laden<\/b>, um eine neue Ereignisprozedur zu erstellen.<\/p>\n Diese sieht wie folgt aus und stellt die Eigenschaften für alle drei Kombinationsfelder ein:<\/p>\n Anschließend lassen sich die Konstanten leicht per Kombinationsfeld auswählen (siehe Bild 10).<\/p>\n Bild 10: Auswählen von DoCmd.OpenForm-Konstanten<\/span><\/b><\/p>\n Für die drei Felder Filtername<\/b>, WhereCondition <\/b>und OpenArgs <\/b>können Sie beliebige Werte hinterlegen. Auch hier möchten wir es Ihnen aber noch ein wenig einfacher machen. Wir haben drei Platzhalter vorgesehen, die im laufenden Betrieb durch entsprechende Werte ersetzt werden:<\/p>\n Auf diese Weise können Sie etwa den folgenden Ausdruck für den Parameter WhereCondition <\/b>eintragen:<\/p>\n Zur Laufzeit wird dies dann beispielsweise wie folgt ersetzt:<\/p>\n Feldkonfiguration für die globale Suche<\/b><\/p>\n Kümmern wir uns nun um das Unterformular. Dieses dient zur Auswahl der Felder, die in der Ergebnisliste angezeigt werden sollen und die als Suchfelder dienen. Da wir uns auch hier das Leben leicht machen wollen, wandeln wir das Feld Fieldname <\/b>in ein Kombinationsfeld namens cboFieldname <\/b>um. Es soll in Abhängigkeit von der im Hauptformular für TableOrQuery <\/b>ausgewählten Tabelle oder Abfrage die entsprechenden Felder anzeigen. Das Einstellen der Datensatzherkunft erfolgt in der Nach Aktualisieren<\/b>-Ereignisprozedur des Kombinationsfeldes cboTableOrQuery <\/b>im Hauptformular, und zwar durch die folgenden Anweisungen, die Sie einfach hinter den bestehenden Codezeilen einfügen:<\/p>\n Das Ergebnis sieht wie in Bild 11 aus. Nach der Auswahl einer Tabelle oder Abfrage können Sie im Feld Fieldname<\/b> des Unterformulars auf die enthaltenen Felder zugreifen. Die ColumnWidth <\/b>der einzelnen Felder tragen Sie wiederum manuell ein, genau so wie Sie die Ja\/Nein<\/b>-Felder ShowField <\/b>und SearchField <\/b>selbst anklicken müssen. Sinnvollerweise werden deren Standardwerte aber auf Ja <\/b>eingestellt.<\/p>\n Bild 11: Auswahl von Feldern für die Suchfunktion und Ergebnisanzeige<\/span><\/b><\/p>\n Formulare, von denen die Suche aufgerufen werden soll<\/b><\/p>\n Fehlt noch das zweite Unterformular des Konfigurationsdialogs. Dieses soll alle Formulare der Anwendung zur Auswahl anbieten, um diese als Startpunkt für den Aufruf verschiedener in der Konfiguration gespeicherter Suchen per Strg + F <\/b>festzulegen. Das Unterformular heißt sfmGlobalSearchOptionsForms <\/b>und enthält die Tabelle tblGlobalSearchOptionsForms <\/b>als Datenherkunft. Daraus zeigt es lediglich das Feld Formname <\/b>an. ändern Sie das Textfeld in ein Kombinationsfeld namens cboFormname <\/b>um, sieht das Formular wie in Bild 12 aus. Damit das Kombinationsfeld die Liste aller in der Anwendung enthaltenen Formulare anzeigt, weisen Sie seiner Datensatzherkunft den folgenden Ausdruck zu:<\/p>\n Bild 12: Das Unterformular sfmGlobalSearchOptionsForms in der Entwurfsansicht<\/span><\/b><\/p>\n Das reicht, um die Formulare wie in Bild 13 zur Auswahl anzubieten, und vervollständigt unseren Konfigurationsdialog.<\/p>\n Bild 13: Auswahl von Formularen via Unterformular<\/span><\/b><\/p>\n Das Suchformular<\/b><\/p>\n Ein wenig mehr Technik steckt im eigentlichen Suchformular, dessen Aussehen weitgehend durch die mit dem Konfigurationsformular festgelegten Einstellungen bestimmt wird. Die Entwurfsansicht aus Bild 14 sieht unscheinbar aus und liefert folgende Steuerelemente:<\/p>\n Bild 14: Entwurfsansicht des globalen Suchformulars<\/span><\/b><\/p>\n Auswählen der Datenherkunft<\/b><\/p>\n Mit dem obersten Kombinationsfeld soll der Benutzer entweder den Eintrag <Alles durchsuchen> <\/b>oder einen der in der Konfiguration unter Titel <\/b>angegebenen Einträge auswählen, was zu diesem SQL-Ausdruck als Datensatzherkunft führt:<\/p>\n Das zweite Kombinationsfeld soll die durchsuchbaren Felder zur Auswahl anbieten. Solange das erste Kombinationsfeld den Wert 0 <\/b>besitzt, findet keine Feldauswahl statt, da in der Regel mehrere Tabellen gleichzeitig durchsucht werden und keine eindeutigen Suchfelder für alle Tabellen vorhanden sind. Die Suche erfolgt dann automatisch über alle in der Konfiguration festgelegten Felder, was dazu führt, dass das Kombinationsfeld cboSuchenIn<\/b> gleich beim Öffnen des Formulars deaktiviert sein soll.<\/p>\n Dies ändert sich erst nach der Auswahl eines Werts im Kombinationsfeld cboSuchenNach<\/b>, was das Ereignis Nach Aktualisierung <\/b>auslöst. Die dazugehörige Ereignisprozedur sieht so aus:<\/p>\n Die Routine prüft, ob der Benutzer <Alles durchsuchen> <\/b>oder einen anderen Eintrag ausgewählt hat, und aktiviert oder deaktiviert abhängig davon das Steuerelement cboSuchenIn<\/b>. Falls <Alles durchsuchen> <\/b>gewählt wurde, ruft die Routine außerdem eine weitere Routine namens InitializeFields <\/b>auf, die einfach nur das Kombinationsfeld cboSuchenIn <\/b>auf den Anfangszustand zurücksetzt:<\/p>\n Wählt der Benutzer einen anderen Eintrag wie etwa Artikel oder Kunden aus, aktiviert dies das zweite Kombinationsfeld cboSuchenIn <\/b>und löst außerdem die Routine UpdateFields <\/b>aus.<\/p>\n Diese setzt einen SQL-Ausdruck zusammen, der per UNION <\/b>zwei Elemente verbindet. Das erste enthält einen einen Eintrag mit dem Text <Alle Felder durchsuchen>. <\/b>Das zweite liefert die Feldnamen, die in der Konfiguration als Suchkriterium festgelegt wurden. Diesen Ausdruck weist die Routine der Datensatzherkunft des Kombinationsfeldes zu und markiert außerdem den ersten Eintrag:<\/p>\n Anschließend löst das Aktualisieren des ersten Kombinationsfelds cboSuchenNach <\/b>noch die Routine GlobalSearch <\/b>aus. Diese ist die wichtigste und umfangreichste Routine und sorgt für die Anzeige der Suchergebnisse. Weiter unten finden Sie eine detaillierte Beschreibung dieser Funktion. Schauen wir uns vorher noch an, was den übrigen Betrieb des Formulars sicherstellt. So wird beim Laden des Formulars die folgende Routine ausgelöst, welche die Routine InitializeTables<\/b> aktiviert und dann den Fokus auf das Suchfeld verschiebt:<\/p>\n InitializeTables <\/b>übernimmt die wichtige Aufgabe, die für den aktuellen Kontext gewünschte Suche zu definieren. Entscheidend ist hier, ob beim Aufruf des Formulars frmGlobalSearch <\/b>ein Öffnungsargument übergeben wurde oder nicht. Dieses enthält, wenn es vorliegt, den Namen des Formulars, das beim Aufruf per Strg + F <\/b>den Fokus hatte.<\/p>\n Beim Fehlen eines Öffnungsarguments wählt die Routine einfach den ersten Eintrag des Kombinationsfelds cboSuchenNach <\/b>aus (<Alles durchsuchen><\/b>) und ruft die weiter oben beschriebene Routine InitializeFields <\/b>auf. Ist ein Öffnungsargument vorhanden, durchsucht die Routine die Tabelle tblGlobalSearchOptionsForms <\/b>nach dem Eintrag, dessen Feld Formname <\/b>mit dem als Öffnungsargument übergebenen Eintrag übereinstimmt, und stellt das Kombinationsfeld cboSucheNach <\/b>so ein, dass dieses die entsprechende Suche anzeigt (also etwa Artikel <\/b>oder Kunden <\/b>wie in der Beispieldatenbank). Der Aufruf der Routine UpdateFields <\/b>sorgt dann dafür, dass das zweite Kombinationsfeld cboSuchenIn <\/b>alle Felder zur Auswahl bereitstellt, die für diese Suche in der Konfiguration festgelegt wurden (siehe weiter oben):<\/p>\n Die Suchroutine GlobalSearch<\/b><\/p>\n Kommen wir zur Kernaufgabe des globalen Suchformulars: zur Suche. Diese soll hauptsächlich nach änderung des Suchbegriffs durchgeführt werden, und zwar nach jeder Zeichenänderung. Nach dem Eingeben eines Zeichens löst Access das Ereignis Bei änderung <\/b>von Textfeldern aus, was wir mit folgender Ereignisprozedur abfangen:<\/p>\n Die Routine füllt zunächst das unsichtbare Textfeld txtSuchbegriffTemp <\/b>mit dem aktuell in txtSuchbegriff <\/b>enthaltenen Text und ruft dann die Routine GlobalSearch <\/b>auf, die Sie in Listing 2 finden. Die Routine unterscheidet im Wesentlichen zwei Fälle:<\/p>\n Listing 2: Die globale Suchfunktion<\/p>\n Diese Fallunterscheidung trifft die Routine mithilfe eines If…Then<\/b>-Konstrukts. Der If<\/b>-Abschnitt kümmert sich um die Suche in allen Tabellen. Dazu erstellt die Routine zunächst eine Datensatzgruppe, die alle Datensätze der Tabelle tblGlobalSearchOptionsTables <\/b>und somit die Konfiguration aller zu durchsuchenden Tabellen enthält. Beim Durchlaufen dieser Tabellen stellt die Routine eine SQL-Abfrage zusammen, die im Falle der beiden Tabellen tblArtikel <\/b>und tblKunden <\/b>unserer Beispielkonfiguration etwa so aussieht:<\/p>\n Anschließend stellt die Routine noch die Spaltenanzahl und -breiten entsprechend den Spalten dieser Abfrage ein.<\/p>\n Der Else<\/b>-Zweig kümmert sich um die Suche nach Daten aus einer konkreten Tabelle. Dazu öffnet die Routine ebenfalls eine Datensatzgruppe auf Basis der Tabelle tblGlobalSearchOptionsTables<\/b>, diesmal aber nur mit einem Datensatz – nämlich dem, der die im Kombinationsfeld aktivierte Suche repräsentiert.<\/p>\n Die Routine erzeugt danach noch ein zweites Recordset, das auf der Tabelle tblGlobalSearchOptionsFields <\/b>basiert und daraus genau die Datensätze einliest, welche die Felder für die aktuelle Suche enthält. Die Routine durchläuft die Datensätze und erledigt dabei gleich mehrere Dinge:<\/p>\n Danach prüft die Routine, ob intFieldCount <\/b>größer 0 <\/b>ist – falls nein, wurden keine Suchfelder für diese Suche festgelegt und die Routine wird beendet. Anderenfalls, und dies sollte der Regelfall sein, stellt die Routine die Eigenschaften ColumnCount <\/b>und ColumnWidths <\/b>des Listenfeldes lstSuchergebnis <\/b>entsprechend ein, stellt die komplette SQL-Abfrage zusammen und weist diese als Datensatzherkunft dem Listenfeld zu.<\/p>\n Suchergebnis anzeigen<\/b><\/p>\n Natürlich soll das Suchergebnis auch noch in entsprechenden Formularen angezeigt werden. Der Benutzer kann dies auf zwei Arten erreichen: Entweder durch einen Doppelklick auf den jeweiligen Eintrag oder durch Markieren des Datensatzes und anschließendes Betätigen der Schaltfläche Anzeigen<\/b>. Beide Aktionen lösen je eine Ereignisprozedur aus, die wie folgt aussehen kann:<\/p>\n Die Routine ShowItem <\/b>finden Sie in Listing 3. Auch sie unterscheidet wieder zwischen den zwei Fällen der globalen Suche und der Suche in einer bestimmten Tabelle. <\/p>\n Bei der globalen Suche enthält die zweite, unsichtbare Spalte des Listenfeldes mit dem Suchergebnis die ID <\/b>des Datensatzes aus der Tabelle tblGlobalSearchOptionsTables<\/b>, aus der das Suchergebnis stammt.<\/p>\n Die Routine liest die Parameter für das Öffnen des Detailformulars in entsprechende Variablen ein. Dabei ruft sie die Funktion ReplacePlaceholders <\/b>auf, die den Inhalt der Parameterwerte auf die drei Platzhalter prüft und diese gegebenenfalls ersetzt.<\/p>\n Anschließend prüft die Routine, ob das Formular zur Anzeige des Datensatzes bereits geöffnet ist. Falls ja, muss dieses zunächst geschlossen werden, weil sich die Parameter sonst nicht auf die Anzeige des Formulars auswirken. Schließlich öffnet die Routine das Formular mit den angegebenen Parametern.<\/p>\n Falls sich die Suche auf eine spezielle Tabelle oder Abfrage bezieht, holt sich die Routine zunächst die ID <\/b>des Datensatzes der Tabelle tblGlobalSearchOptionsTables <\/b>aus dem Kombinationsfeld cboSucheNach<\/b>. Eine weitere Variable speichert die ID des Datensatzes aus dem Suchergebnis, der im Detailformular angezeigt werden soll.<\/p>\n Anschließend geschieht prinzipiell das Gleiche wie beim Anzeigen des Formulars für ein Ergebnis der globalen Suche: Die Parameter werden aus der Tabelle tblGlobalSearchOptionsTables <\/b>ausgelesen, enthaltene Platzhalter ersetzt und das Formular geöffnet.<\/p>\n Platzhalter ersetzen<\/b><\/p>\n Die Funktion ReplacePlaceholders <\/b>hat die Aufgabe, die drei Platzhalter [PKID]<\/b>, [PKIDValue] <\/b>und [Title] <\/b>zu ersetzen. ReplacePlaceholders<\/b> muss natürlich wissen, aus welcher Tabelle der anzuzeigende Datensatz stammt und um welchen Datensatz es sich genau handelt.<\/p>\n Diese Informationen erhält die Funktion von der aufrufenden Routine und wertet sie entsprechend aus. Schließlich ersetzt sie die Platzhalter und schickt den resultierenden Ausdruck als Funktionswert zurück.<\/p>\n Zusammenfassung und Ausblick<\/p>\n Für den Einsatz dieser Suchfunktion in eigenen Anwendungen brauchen Sie nur ein paar Objekte in die Datenbank zu importieren und die Suche zu konfigurieren – schon können Sie loslegen.<\/p>\n Etwas Arbeit müssen Sie vielleicht in das Anpassen des Suchformulars an den Rest der Benutzeroberfläche Ihrer Anwendung stecken und vielleicht fallen Ihnen auch noch Optimierungen der globalen Suchfunktion ein.<\/p>\n Nebenbei erfahren Sie in diesem Beitrag einiges über den Zugriff auf die einzelnen Tabellen und die enthaltenen Felder sowie auf Formulare.<\/p>\n Listing 3: Anzeigen des gefundenen Datensatzes in der Detailansicht<\/p>\n Enthaltene Beispieldateien:<\/p>\n GlobaleSuche.mdb<\/p>\n\n
![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic014_opt.jpeg\")
<\/p>\n\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic001_opt.jpeg\")
<\/p>\nPublic Function GlobalSearch()\r\n On Error Resume Next\r\n DoCmd.OpenForm "frmGlobalSearch", _\r\n OpenArgs:=Screen.ActiveForm.Name\r\n If Err.Number = 2475 Then\r\n DoCmd.OpenForm "frmGlobalSearch"\r\n End If\r\nEnd Function<\/pre>\n
Debug.Print Application.GetOption("Key assignment macro")<\/pre>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic002_opt.jpeg\")
<\/p>\nPublic Function CheckAutokeys()\r\n If Not Application.GetOption("Key\r\n assignment macro") = "Autokeys" Then\r\n Application.SetOption "Key assignment\r\n macro", "Autokeys"\r\nEnd If\r\nEnd Function<\/pre>\n\n
\n
\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic004_opt.jpeg\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic005_opt.jpeg\")
<\/p>\nSELECT Name\r\nFROM MSysObjects\r\nWHERE Name Not Like "MSys*"\r\nAND (Type = 1 OR Type = 5)\r\nORDER BY MSysObjects.Name;<\/pre>\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic006_opt.jpeg\")
<\/p>\nPrivate Sub cboTableOrQuery_AfterUpdate()\r\nIf Not IsNull(Me!cboTableOrQuery) Then\r\n Me!cboPrimaryKey.RowSourceType = \r\n "Field List"\r\n Me!cboPrimaryKey.RowSource =\r\n Me!cboTableOrQuery\r\nEnd If\r\nEnd Sub<\/pre>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic007_opt.jpeg\")
<\/p>\nPrivate Sub cboTableOrQuery_AfterUpdate()\r\n Dim strPrimaryKey As String\r\n If Not IsNull(Me!cboTableOrQuery) Then\r\n Me!cboPrimaryKey.RowSourceType = "Field List"\r\n Me!cboPrimaryKey.RowSource = Me!cboTableOrQuery\r\n strPrimaryKey = GetPrimaryKeyFields(Me.cboTableOrQuery)\r\n If Len(strPrimaryKey) > 0 Then\r\n strPrimaryKey = Split(strPrimaryKey, ";")(0)\r\n If Len(strPrimaryKey) Then\r\n strPrimaryKey = Mid(strPrimaryKey, 2)\r\n End If\r\n End If\r\n If Len(strPrimaryKey) > 0 Then\r\n Me!cboPrimaryKey = strPrimaryKey\r\n Else\r\n Me!cboPrimaryKey = Me!cboPrimaryKey.ItemData(0)\r\n End If\r\n End If\r\n End Sub<\/pre>\n
SELECT Name FROM MSysObjects\r\nWHERE Type = -32768\r\nORDER BY Name;<\/pre>\n
Private Sub Form_Load()\r\nWith Me!cboView\r\n.RowSourceType = "Value List"\r\n.RowSource = "1;acViewDesign;0;\r\nacViewNormal;2;acViewPreview"\r\n.ColumnCount = 2\r\n.ColumnWidths = 0\r\nEnd With\r\nWith Me!cboDataMode\r\n.RowSourceType = "Value List"\r\n.RowSource = "0;acFormAdd;\r\n1;acFormEdit;\r\n-1;acFormPropertySettings;\r\n2;acFormReadOnly"\r\n.ColumnCount = 2\r\n.ColumnWidths = 0\r\nEnd With\r\nWith Me!cboWindowMode\r\n.RowSourceType = "Value List"\r\n.RowSource = "3;acDialog;1;acHidden;\r\n2;acIcon;0;acWindowNormal"\r\n.ColumnCount = 2\r\n.ColumnWidths = 0\r\nEnd With\r\nEnd Sub<\/pre>\n
![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic008_opt.jpeg\")
<\/p>\n\n
[PKID] = [PKIDValue]<\/pre>\n
KundeID = 12<\/pre>\n
With Me!sfmGlobalSearchOptions.Form!cboFieldname\r\n.RowSourceType = "Field List"\r\n.RowSource = Me!cboTableOrQuery\r\nEnd With<\/pre>\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic009_opt.jpeg\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic011_opt.jpeg\")
<\/p>\nSELECT Name FROM MSysObjects WHERE Type=-32768 ORDER BY Name;<\/pre>\n
![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic012_opt.jpeg\")
<\/p>\n![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2009_04\/GlobaleSuche-web-images\/pic013_opt.jpeg\")
<\/p>\n\n
SELECT 0 AS ID, ''<Alles durchsuchen>'' AS Title FROM tblGlobalSearchOptionsTables UNION SELECT ID, Title FROM tblGlobalSearchOptionsTables<\/pre>\n
Private Sub cboSucheNach_AfterUpdate()\r\nIf Me!cboSucheNach = 0 Then\r\n Call InitializeFields\r\n Me!cboSuchenIn.Enabled = False\r\nElse\r\n Call UpdateFields\r\n Me!cboSuchenIn.Enabled = True\r\nEnd If\r\nCall GlobalSearch\r\nEnd Sub<\/pre>\n
Private Sub InitializeFields()\r\nDim strSQL As String\r\nstrSQL = "SELECT 0 AS ID, ''<Alle Felder\r\ndurchsuchen>'' AS Fieldname FROM\r\ntblGlobalSearchOptionsTables"\r\nMe!cboSuchenIn.RowSource = strSQL\r\nMe!cboSuchenIn = Me!cboSuchenIn.ItemData(0)\r\nEnd Sub<\/pre>\n
Private Sub UpdateFields()\r\nDim strSQL As String\r\nstrSQL = "SELECT 0 AS ID, ''<Alle Felder\r\ndurchsuchen>'' AS Fieldname FROM\r\ntblGlobalSearchOptionsTables "\r\nstrSQL = strSQL & "UNION "\r\nstrSQL = strSQL & "SELECT ID, Fieldname\r\nFROM tblGlobalSearchOptionsFields WHERE\r\nTableID = " & Me!cboSucheNach\r\nMe!cboSuchenIn.RowSource = strSQL\r\nMe!cboSuchenIn = Me!cboSuchenIn.ItemData(0)\r\nEnd Sub<\/pre>\n
Private Sub Form_Load()\r\nCall InitializeTables\r\nMe!txtSuchbegriff.SetFocus\r\nEnd Sub<\/pre>\n
Private Sub InitializeTables()\r\nIf IsNull(Me.OpenArgs) Then\r\n Me!cboSucheNach = _\r\n Me!cboSucheNach.ItemData(0)\r\n Call InitializeFields\r\nElse\r\n Me!cboSucheNach = Nz(DLookup("ID", _\r\n "tblGlobalSearchOptionsForms", _\r\n "Formname = ''" & Me.OpenArgs _\r\n & "''"), 0)\r\n Call UpdateFields\r\nEnd If\r\nEnd Sub<\/pre>\nPrivate Sub txtSuchbegriff_Change()\r\nMe!txtSuchbegriffTemp = _\r\nMe!txtSuchbegriff.Text\r\nCall GlobalSearch\r\nEnd Sub<\/pre>\n
Private Sub GlobalSearch()\r\n Dim strSQL As String\r\n Dim strSQLWhereCondition As String\r\n Dim rstTables As DAO.Recordset\r\n Dim rstFields As DAO.Recordset\r\n Dim intFieldCount As Integer\r\n Dim strColumnWidths As String\r\n If Me!cboSucheNach = 0 Then\r\n Set rstTables = dbs.OpenRecordset("SELECT * FROM tblGlobalSearchOptionsTables", dbOpenDynaset)\r\n Do While Not rstTables.EOF\r\n strSQL = strSQL & "SELECT " & rstTables!ID & " AS ID, " & rstTables!PrimaryKey _\r\n & " AS ElementID,''" & rstTables!Title & "'' AS Element, " & rstTables!GeneralContent _\r\n & " AS Kurzbeschreibung FROM " & rstTables!TableOrQuery & " "\r\n strSQL = strSQL & "WHERE " & rstTables!GeneralContent & " LIKE ''*" & Me!txtSuchbegriffTemp & "*'' "\r\n strSQL = strSQL & "UNION "\r\n rstTables.MoveNext\r\n Loop\r\n If Len(strSQL) > 0 Then\r\n strSQL = Left(strSQL, Len(strSQL) - 6)\r\n End If\r\n Me!lstSuchergebnis.ColumnWidths = "0cm;0cm;3cm"\r\n Me!lstSuchergebnis.ColumnCount = 4\r\n Else\r\n Set rstTables = dbs.OpenRecordset("SELECT * FROM tblGlobalSearchOptionsTables WHERE ID = " _\r\n & Me.cboSucheNach, dbOpenDynaset)\r\n If Not rstTables.EOF Then\r\n Set rstFields = dbs.OpenRecordset("SELECT * FROM tblGlobalSearchOptionsFields WHERE TableID = " _\r\n & rstTables!ID, dbOpenDynaset)\r\n strSQL = "SELECT " & rstTables!PrimaryKey & " AS ID, "\r\n intFieldCount = 1\r\n strColumnWidths = "0cm;"\r\n Do While Not rstFields.EOF\r\n intFieldCount = intFieldCount + 1\r\n strColumnWidths = strColumnWidths & rstFields!ColumnWidth & "cm; "\r\n If rstFields!ShowField = True Then\r\n strSQL = strSQL & rstFields!FieldName & ", "\r\n End If\r\n If rstFields!SearchField = True Then\r\n strSQLWhereCondition = strSQLWhereCondition & rstFields!FieldName & " & ''|'' & "\r\n End If\r\n rstFields.MoveNext\r\n Loop\r\n If intFieldCount = 0 Then Exit Sub\r\n Me!lstSuchergebnis.ColumnCount = intFieldCount\r\n Me!lstSuchergebnis.ColumnWidths = strColumnWidths\r\n If Len(strSQL) > 0 Then\r\n strSQL = Left(strSQL, Len(strSQL) - 2)\r\n strSQL = strSQL & " FROM " & rstTables!TableOrQuery\r\n End If\r\n End If\r\n End If\r\n If Me!cboSuchenIn = 0 Then\r\n If Len(strSQLWhereCondition) > 0 Then\r\n strSQLWhereCondition = Left(strSQLWhereCondition, Len(strSQLWhereCondition) - 8)\r\n strSQL = strSQL & " WHERE " & strSQLWhereCondition & " LIKE ''*" & Me!txtSuchbegriffTemp & "*''"\r\n End If\r\n Else\r\n strSQLWhereCondition = Me!cboSuchenIn.Column(1)\r\n strSQL = strSQL & " WHERE " & strSQLWhereCondition & " LIKE ''*" & Me!txtSuchbegriffTemp & "*''"\r\n End If\r\n Me!lstSuchergebnis.RowSource = strSQL\r\n Me!cmdAnzeigen.Enabled = Not (Me!lstSuchergebnis.ListCount = 0)\r\n End Sub<\/pre>\n\n
SELECT 1 AS ID, ArtikelID AS ElementID,''Artikel'' AS Element, Artikelname & ", " & Liefereinheit AS Kurzbeschreibung FROM tblArtikel WHERE Artikelname & ", " & Liefereinheit LIKE ''**'' UNION SELECT 2 AS ID, KundeID AS ElementID,''Kunden'' AS Element, KundenCode & " - " & Firma AS Kurzbeschreibung FROM tblKunden WHERE KundenCode & " - " & Firma LIKE ''**''<\/pre>\n
\n
Private Sub cmdAnzeigen_Click()\r\nCall ShowItem\r\nEnd Sub\r\nPrivate Sub lstSuchergebnis_DblClick(Cancel\r\nAs Integer)\r\nCall ShowItem\r\nEnd Sub<\/pre>\n
Private Function ReplacePlaceholders(str As\r\nString, lngID As Long, lngValue As Long,\r\nstrTitle As String) As String\r\nDim strPKID As String\r\nDim strPKIDValue As String\r\nDim strTemp As String\r\nstrPKID = DLookup("PrimaryKey",\r\n"tblGlobalSearchOptionsTables",\r\n"ID = " & lngID)\r\nstrTemp = Replace(str, "[PKID]", strPKID)\r\nstrTemp = Replace(strTemp, "[PKIDValue]",\r\nlngValue)\r\nstrTemp = Replace(strTemp, "[Title]",\r\nstrTitle)\r\nReplacePlaceholders = strTemp\r\nEnd Function<\/pre>\nPrivate Sub ShowItem()\r\nDim rstTable As DAO.Recordset\r\nDim strForm As String\r\nDim strWhereCondition As String\r\nDim strFiltername As String\r\nDim strOpenArgs As String\r\nDim lngID As Long\r\nDim lngValue As Long\r\nDim strTitle As String\r\nIf Nz(Me!cboSucheNach, 0) = 0 Then\r\n lngID = Me!lstSuchergebnis\r\n lngValue = Me!lstSuchergebnis.Column(1)\r\n Set rstTable = dbs.OpenRecordset("SELECT * FROM tblGlobalSearchOptionsTables WHERE ID = " & lngID, _\r\n dbOpenDynaset)\r\n If Not rstTable.EOF Then\r\n strForm = rstTable!Formname\r\n strTitle = rstTable!Title\r\n strWhereCondition = ReplacePlaceholders(Nz(rstTable!WhereCondition, ""), lngID, lngValue, strTitle)\r\n strFiltername = ReplacePlaceholders(Nz(rstTable!Filtername, ""), lngID, lngValue, strTitle)\r\n strOpenArgs = ReplacePlaceholders(Nz(rstTable!OpenArgs, ""), lngID, lngValue, strTitle)\r\n If IstFormularGeoeffnet(rstTable!Formname) Then\r\n DoCmd.Close acForm, rstTable!Formname\r\n End If\r\n DoCmd.OpenForm rstTable!Formname, rstTable!View, strFiltername, strWhereCondition, _\r\n rstTable!DataMode, rstTable!WindowMode, strOpenArgs\r\n End If\r\nElse\r\n lngID = Me!cboSucheNach\r\n lngValue = Me!lstSuchergebnis\r\n Set rstTable = dbs.OpenRecordset("SELECT * FROM tblGlobalSearchOptionsTables WHERE ID = " & lngID, _\r\n dbOpenDynaset)\r\n If Not rstTable.EOF Then\r\n strForm = rstTable!Formname\r\n strTitle = rstTable!Title\r\n strWhereCondition = ReplacePlaceholders(Nz(rstTable!WhereCondition, ""), lngID, lngValue, strTitle)\r\n strFiltername = ReplacePlaceholders(Nz(rstTable!Filtername, ""), lngID, lngValue, strTitle)\r\n strOpenArgs = ReplacePlaceholders(Nz(rstTable!OpenArgs, ""), lngID, lngValue, strTitle)\r\n If IstFormularGeoeffnet(rstTable!Formname) Then\r\n DoCmd.Close acForm, rstTable!Formname\r\n End If\r\n DoCmd.OpenForm rstTable!Formname, rstTable!View, strFiltername, strWhereCondition, _\r\n rstTable!DataMode, rstTable!WindowMode, strOpenArgs\r\n End If\r\nEnd If\r\nEnd Sub<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n