<\/p>\n
Im Beitrag „Suchformulare für die Datenblattansicht“ haben Sie ein einfach zu erstellendes Suchformular kennengelernt. Dieses ist so praktisch, dass Sie es hoffentlich gleich in Ihre Datenbanken einbauen. Damit ist allerdings immer noch ein wenig Arbeit verbunden: Immerhin müssen Sie noch die Steuerelemente für die Eingabe der Suchbegriffe anlegen. Das ist eigentlich nicht allzuviel Arbeit, aber warum selbst Hand anlegen, wenn man dies einfach per Assistent erledigen können<\/b><\/p>\n
Mit dem Suchformular aus dem Beitrag Suchformular für die Datenblattansicht <\/b>(www.access-im-unternehmen.de\/724<\/b>) haben wir eine solide Basis für die flexible Neuerstellung eines Suchformulars in Abhängigkeit von der jeweils zu filternden Datenherkunft. Den Code dieses Formulars brauchen Sie quasi gar nicht anzufassen, Sie müssen lediglich die Steuerelemente zum Eingeben der Suchkriterien hineinschreiben.<\/p>\n
Im Beitrag Formulare generieren <\/b>(www.access-im-unternehmen.de\/709<\/b>) haben Sie bereits einige Techniken zum Erstellen von Formularen und zum Hinzufügen von Steuerelementen kennengelernt. Für den nachfolgend beschriebenen Assistenten brauchen wir allerdings gar nicht von Grund auf zu beginnen: Die Basis des Suchformulars (siehe Bild 1) besteht ja schon, das Bezeichnungsfeld für die Überschrift und die drei Schaltflächen Suchen<\/b>, Leeren <\/b>und Abbrechen <\/b>können wir auch beibehalten – genauso wie den kompletten Code des Formulars. Wir brauchen also nur ein solches Formular in der Rohfassung zu verwenden, die benötigten Steuerelemente zu konfigurieren und einzubauen und die Abmessungen des Formulars an die vorhandenen Steuerelemente anzupassen.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic001.png\")
<\/p>\n
Bild 1: Solch ein Suchformular möchten wir für beleibige Datenherkünfte nachbauen können.<\/span><\/b><\/p>\n Arbeitstier Assistent<\/b><\/p>\n Als Grundgerüst für unseren Assistenten zur Erstellung von Suchformularen dient die Beispieldatenbank zum Beitrag Formular-Assistenten <\/b>(www.access-im-unternehmen.de\/726<\/b>). Diese Beispieldatenbank passen wir nun für unseren konkreten Einsatzzweck an, indem wir eine Kopie davon erstellen und den Namen in Suchformularassistent.mda <\/b>ändern. Danach stellen Sie in den Datenbankeigenschaften die Werte ein, die im Add-In-Manager angezeigt werden (siehe Bild 2). Danach bearbeiten wir die Tabelle USysRegInfo<\/b>, die ja die Einträge für die Registry enthält (siehe Bild 3). Im Wesentlichen ändern wir dort den Namen des neu anzulegenden Schlüssels (hier Suchformularassistent), den Beschreibungstext und die Library<\/b>-Datei. Außerdem können Sie durch Einstellen von Datasource Required <\/b>auf den Wert 1 <\/b>sicherstellen, dass der Benutzer eine Datenherkunft auswählen muss. Vielleicht möchten Sie dem Benutzer aber auch später im der Benutzeroberfläche des Add-Ins noch die Möglichkeit geben, eine andere Datenherkunft auszuwählen – in dem Fall stellen Sie den Wert 0 <\/b>ein und überlassen es den Gepflogenheiten des Benutzers, ob dieser die Datenherkunft gleich im Dialog Neues Formular <\/b>auswählen möchte. Die im VBA-Modul mdlWizard <\/b>enthaltene Funktion StartFormWizard <\/b>können wir zunächst beibehalten.<\/p>\n Bild 2: Einstellen der Eigenschaften für die Anzeige im Add-In-Manager<\/span><\/b><\/p>\n Bild 3: Einstellen der Werte der Tabelle USysRegInfo<\/span><\/b><\/p>\n Aufgaben des Suchformularassistenten aus Benutzersicht<\/b><\/p>\n Der Suchformularassistent soll ein Suchformular wie in Bild 1 erstellen, wobei die verwendete Datenherkunft und somit die Felder variieren können. Die Datenherkunft wählt der Benutzer schon vor dem Start aus. Es bleibt also lediglich die Anforderung, die Felder abzufragen, die im Suchformular erscheinen sollen, und deren Aussehen einzustellen. Großartige Varianten soll der Assistent hier nicht bieten: Ein einfaches Textfeld der Datenherkunft soll in der Regel durch ein Textfeld im Suchformular abgebildet werden. Alternativ könnte man hier ein Kombinationsfeld verwenden, das alle im Textfeld vorkommenden Einträge anzeigt.<\/p>\n Bei Nachschlagefeldern soll einfach ein Kombinationsfeld mit der Datensatzherkunft des Nachschlagefelds zur Auswahl der enthaltenen Datensätze im Suchformular erscheinen. Und für Ja\/Nein<\/b>-Felder wird ebenfalls ein Kombinationsfeld angezeigt, dass die Werte Ja <\/b>und Nein <\/b>zur Auswahl anbietet.<\/p>\n Zusammengefasst muss der Benutzer neben der eigentlichen Auswahl der zu verwendenden Felder nur noch für Textfelder festlegen, ob die Suche per Textfeld oder per Kombinationsfeld erfolgen soll.<\/p>\n Um den Assistenten möglichst einfach und intuitiv zu gestalten, soll ein Listenfeld alle möglichen Suchfelder anzeigen (inklusive der Varianten für Textfelder) und ein weiteres alle durch den Benutzer ausgewählten Einträge.<\/p>\n Zum Hinzufügen eines Feldes muss der Benutzer dieses lediglich im Listenfeld aller Suchfelder markieren und etwa per Doppelklick zum Listenfeld der hinzuzufügenden Suchfelder hinzufügen.<\/p>\n Das Geschehen wird sich also weitgehend in einem einzigen Formular abspielen, dass wir frmSuchformularassistent <\/b>nennen und dem wir die Bezeichnung Suchformular-Assistent <\/b>verpassen.<\/p>\n Da wir darin auch nicht durch Datensätze navigieren möchten, stellen wir die Eigenschaften Navigationsleisten<\/b>, Datensatzmarkierer<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf Nein <\/b>und Zentrieren <\/b>auf Ja <\/b>ein. Für ein erstes Erfolgserlebnis schreiben wir außerdem die Funktion StartFormWizard <\/b>wie folgt um:<\/p>\n Diese Variante öffnet nach dem Aufrufen des Assistenten gleich das Formular frmSuchformularassistent <\/b>und übergibt diesem mit dem Öffnungsargument den Namen der vom Benutzer ausgewählten Datenherkunft. Sie können das Add-In nun bereits testweise mithilfe des Add-In-Managers installieren und ausprobieren.<\/p>\n Tipps für die Add-In-Entwicklung<\/b><\/p>\n Sobald Sie das Add-In während der Entwicklung einmal installiert haben, befindet sich eine Kopie der .mda<\/b>-Datei im Add-In-Verzeichnis des aktuellen Benutzers. Sie sollten sich an dieser Stelle entscheiden, welche Version des Add-Ins Sie weiterentwickeln möchten – die ursprüngliche Version oder die im Add-In-Verzeichnis. Wir empfehlen letzteres, da Sie das Add-In so nicht ständig erneut installieren oder zumindest vom Entwicklungsordner in das Add-In-Verzeichnis kopieren müssen.<\/p>\n Eines müssen Sie dabei allerdings beachten: Wenn Sie zum Testen eine Access-Instanz samt Anwendung geöffnet und das Add-In gestartet haben, müssen Sie diese Instanz vor der Weiterbearbeitung der Add-In-Datenbank komplett schließen. Anderenfalls beschwert sich Access beim Wechsel in die Entwurfsansicht eines Objekts, weil kein exklusiver Zugriff möglich ist. Eine andere Beobachtung: Formulare, die beim Testen des Add-Ins in der Zieldatenbank geöffnet werden sollen, müssen in einer parallel für die Entwicklung geöffneten Add-In-Datenbank geschlossen sein. Dies gilt auch für geänderte, aber noch nicht gespeicherte VBA-Module: Diese müssen Sie vor dem Testen des Add-Ins zwar nicht schließen, aber zumindest speichern.<\/p>\n Und noch ein Tipp: Wenn Sie eine für Tests vorgesehene Datenbank immer ganz schnell öffnen möchten, legen Sie doch einfach eine Tastenkombination in der Add-In-Datenbank selbst an. Dazu erstellen Sie ein Makro namens AutoKeys<\/b>, das Sie wie in Bild 4 ausstatten. Dieses Makro reagiert auf die Tastenkombination Strg + Umschalt + T<\/b>. Die dadurch aufgerufene Funktion bringen Sie dann in einem eigenen Standardmodul namens mdlTools <\/b>unter:<\/p>\n Bild 4: Dieses Makro ruft bei Strg + Umschalt + T eine Funktion auf, die eine Beispieldatenbank öffnet.<\/span><\/b><\/p>\n In dieser Prozedur müssen Sie gegebenenfalls den Pfad zur Datei MSAccess.exe <\/b>und zur Beispieldatenbank anpassen.<\/p>\n Konfigurieren des Suchformulars<\/b><\/p>\n Das Suchformular enthält ein Kombinationsfeld zur Auswahl der Datenherkunft, die durch die Auswahl im Dialog Neues Formular <\/b>voreinstellt werden kann. Das Kombinationsfeld soll alle Tabellen und Abfragen der Zieldatenbank anzeigen, was von einem Add-In aus nicht ganz trivial ist. Normalerweise würde man hier einfach auf die Einträge der Systemtabelle MSysObjects <\/b>zugreifen und eine Abfrage wie die folgende als Datensatzherkunft des Kombinationsfeldes angeben:<\/p>\n Wenn Sie diese Abfrage in der Add-In-Datenbank selbst testen, liefert sie auch die gewünschten Daten. Wenn Sie das Add-In allerdings in der Zieldatenbank öffnen, zeigt es nicht die Tabellen und Abfragen der Zieltabelle, sondern die des Add-Ins an. Glücklicherweise bietet Access-SQL aber die IN<\/b>-Klausel, mit der man nicht nur auf Unterabfragen zugreifen, sondern auch eine alternative Datenbank als Quelle einer SELECT<\/b>-Abfrage festlegen kann. Wenn wir also die obige SQL-Anweisung wie folgt ändern, können wir auch vom Add-In-Formular auf die Tabellen der Datenbank zugreifen, in der das Add-In gestartet wurde:<\/p>\n Natürlich kennen wir den Datenbanknamen der Zieldatenbank beim Entwickeln des Add-Ins noch nicht, daher müssen wir diesen zur Laufzeit ermitteln. Pfad und Namen dieser Datenbank erhalten wir ganz einfach über die Funktion CurrentDB.Name<\/b>.<\/p>\n Diesen bauen wir per VBA in die SQL-Abfrage ein und weisen diesen dann dem Kombinationsfeld als Datensatzherkunft zu. Dies erledigen wir gleich beim Öffnen des Formulars in der Prozedur, die durch das Ereignis Beim Öffnen <\/b>ausgelöst wird:<\/p>\n Gleichzeitig wertet diese Routine das Öffnungsargument des Formulars aus, das gegebenenfalls den Namen der zuvor im Dialog Neues Formular <\/b>ausgewählten Datenherkunft (siehe Bild 5) enthält, und weist es dem Kombinationsfeld cboDatenherkunft <\/b>zu. Das Formular zur Auswahl der Suchfelder sieht im Entwurf wie in Bild 6 aus. Das Kombinationsfeld cboDatenherkunft<\/b> haben Sie ja bereits kennengelernt.<\/p>\n Bild 5: Die Auswahl der Datenherkunftfür das Suchformular kann gleich in diesem Dialog erfolgen.<\/span><\/b><\/p>\n Bild 6: Entwurf des Formulars zur Definition der Suchfelder<\/span><\/b><\/p>\n Die beiden Listenfelder sollen die ausgewählten und alle für die Suche einsetzbaren Felder der Datenherkunft anzeigen. Wir könnten nun einfach eine Feldliste auf Basis der in cboDatenherkunft<\/b> ausgewählten Tabelle oder Abfrage anzeigen, aber dies genügt leider nicht den Ansprüchen des geplanten Assistenten: Dieser soll ja beispielsweise bei Textfeldern nicht nur den Einbau eines Text-Suchfelds, sondern auch eines Auswahl-Suchfelds zur Auswahl aller im entsprechenden Feld der Datenherkunft enthaltenen Werte anbieten.<\/p>\n Daten für die Listenfelder<\/b><\/p>\n Das rechte Listenfeld lstAlle <\/b>soll alle möglichen Suchfelder anzeigen, die der Entwickler dem Suchformular hinzufügen kann. Wie bereits erwähnt, sind dies zumindest alle Felder der im Kombinationsfeld cboDatenherkunft <\/b>plus die Kombinationsfeldvariante zum Durchsuchen von Textfeldern durch Auswahl eines der darin enthaltenen Einträge. Das linke Listenfeld lstAusgewaehlt <\/b>soll alle Einträg enthalten, die der Benutzer aus dem rechten Listenfeld ausgewählt hat. Für die Gestaltung der Datensatzherkunft der beiden Listenfelder gibt es wie üblich verschiedene Möglichkeiten. Der Einfachheit halber verwenden wir an dieser Stelle einfach zwei Tabellen. Die Tabelle tblSuchfelder <\/b>sieht wie in Bild 7 aus und enthält die Datensatzherkunft für das rechte Listenfeld lstAlle<\/b>. Neben dem Primärschlüsselfeld gibt es drei weitere Felder. Suchfeld ist das Feld, dass im Listenfeld angezeigt werden soll und dem Benutzer mitteilt, auf welches Feld der Datenherkunft sich das potenzielle Suchfeld beziehen wird und welches Steuerelement für die Eingabe des Suchbegriffs verwendet wird. Die letzten beiden Felder werden für die eigentliche Erstellung des Suchformulars benötigt. Neben dem Feldnamen ist hier der Feldtyp interessant. Der Feldtyp wird im Code des Formularmoduls durch eine Enumeration definiert, die wie folgt aussieht:<\/p>\n Bild 7: Die Datenherkunft des Listenfelds lstAlle enthält alle möglichen Suchfelder.<\/span><\/b><\/p>\n <\/p>\n Diese Enumeration kommt in der Prozedur zum Einsatz, welche aus der Datenherkunft die Datensätze der Tabelle tblSuchfelder <\/b>erzeugt. Diese Prozedur heißt SuchfelderSpeichern <\/b>und erwartet den Namen der Datenherkunft als Parameter. Hierbei ist es egal, ob der Name einer Tabelle oder einer Abfrage übergeben wird (s. Listing 1).<\/p>\n Listing 1: Füllen der Tabelle tblSuchfelder mit allen möglichen Suchfeldern<\/p>\n Die Prozedur erstellt durch Hinzufügen der WHERE<\/b>-Bedingung 1=2 <\/b>ein leeres Recordset auf Basis der angegebenen Datenherkunft. Es löscht alle bereits in der Tabelle tblSuchfelder <\/b>enthaltenen Datensätze und durchläuft dann mit einer For Each<\/b>-Schleife und der Laufvariablen fld <\/b>alle Felder des Recordset<\/b>-Objekts. Innerhalb der Schleife ermittelt die Prozedur zunächst den Steuerelementtyp des Feldes, wobei nur Textfelder, Kombinationsfelder und Ja\/Nein<\/b>-Felder berücksichtigt werden. In Abhängigkeit vom Steuerelementtyp werden innerhalb der folgenden Select Case<\/b>-Struktur verschiedene SQL-Abfragen ausgeführt, um einen oder mehrere Datensätze je Feld zur Tabelle tblSuchfelder <\/b>hinzuzufügen. Mehrere deshalb, weil der Entwickler ja für Textfelder entweder ein Text- oder ein Kombinationsfeld als Suchfeld verwenden kann (oder auch beide). Nach Eintragen aller Datensätze für die angegebene Datenherkunft wird das Listenfeld lstAlle <\/b>aktualisiert. Damit dieses die Daten wie in Bild 8 anzeigt, stellen Sie die Datensatzherkunft des Listenfeldes auf tblAlle <\/b>ein und setzen die beiden Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf 2 <\/b>beziehungsweise 0cm<\/b>.<\/p>\n Bild 8: Das Listenfeld wird nach Aktualisierung der Datenherkunft gefüllt.<\/span><\/b><\/p>\n Suchfelder gleich beim Öffnen eintragen<\/b><\/p>\n Da der Benutzer gleich im Dialog Neues Formular <\/b>eine Datenherkunft angeben kann, stellt man das Kombinationsfeld cboDatenherkunft<\/b> gleich auf die angegebene Datenherkunft ein und füllt im gleichen Zuge das Listenfeld lstAlle<\/b>. Dies geschieht in der angepassten Version der Ereignisprozedur Form_Open <\/b>aus Listing 2. Diese Prozedur ruft zunächst eine weitere Routine auf, welche die Inhalte der Datensatzherkünfte der beiden Listenfelder löscht:<\/p>\n Listing 2: Füllen von Kombinations- und Listenfelder beim Öffnen des Formulars<\/p>\n Danach füllt sie das Kombinationsfeld cboDatenherkunft <\/b>mit allen in der Datenbank enthaltenen Tabellen und Abfragen, wobei Systemtabellen und Abfragen, die als Datenherkunft von Formularen, Berichten oder Steuerelementen dienen, ausgeblendet werden. Wenn das Öffnungsargument bereits den Namen der zuvor ausgewählten Datenherkunft enthält, weist die Prozedur diese dem Feld cboDatenherkunft <\/b>zu. Schließlich ruft die Prozedur die Routine SuchfelderSpeichern <\/b>auf, die wir bereits weiter oben besprochen haben.<\/p>\n Suchfelder auswählen<\/b><\/p>\n Nun soll der Benutzer die Einträge des rechten Listenfeldes auf einfache Weise, und zwar per Doppelklick, in das linke Listenfeld eintragen. Dazu brauchen wir zunächst eine Tabelle, in der die Datensätze des linken Listenfeldes gespeichert werden.<\/p>\n Diese Aufgabe übernimmt die Tabelle tblAusgewaehlteSuchfelder<\/b>. Sie soll die ausgewählten Suchfelder aufnehmen und als Datensatzherkunft des linken Kombinationsfeldes dienen (siehe Bild 9). Die Tabelle enthält ein Feld mehr als die Tabelle tblSuchfelder<\/b>. Dieses heißt ReihenfolgeID <\/b>und ermöglicht dem Entwickler das Einstellen der Reihenfolge der Suchfelder für das Suchformular.<\/p>\n Bild 9: Diese Tabelle nimmt die Suchfelder für das Suchformular auf.<\/span><\/b><\/p>\n Bevor wir dazu kommen, wie der Benutzer die Reihenfolge der Einträge einstellt, kümmern wir uns um das Hinzufügen von Suchfeldern zum linken Listenfeld. Dies erledigt die Prozedur aus Listing 3, die durch einen Doppelklick auf einen der Einträge des rechten Kombinationsfeldes ausgelöst wird.<\/p>\n Listing 3: Suchfeld zur Liste der ausgewählten Suchfelder hinzufügen<\/p>\n Die Prozedur prüft zunächst, ob der Benutzer überhaupt auf einen der Einträge des Listenfeldes oder in einen leeren Bereich darin geklickt hat. Hat der Benutzer einen Datensatz getroffen, setzt die Routine einen Objektverweis auf die Add-In-Datenbank, was mit der Funktion CodeDB <\/b>geschieht Ein Verweis auf CurrentDB <\/b>bezieht sich, von einem Add-In aus verwendet, immer auf die aufrufende Datenbank.<\/p>\n Die folgenden Zeilen beschäftigen sich damit, herauszufinden, wo im linken Listenfeld der Eintrag hinzugefügt werden soll. Dies hat folgenden Hintergrund: Wenn nämlich im linken Listenfeld ein Eintrag markiert ist, soll der neue Eintrag direkt hinter diesem eingereiht werden. Also liest die Prozedur mit der CLookup<\/b>-Funktion die ReihenfolgeID <\/b>eines möglicherweise aktuell markierten Eintrags des linken Listenfeldes aus und merkt sich diesen. Die Funktion CLookup <\/b>liefert im Übrigen das gleiche Ergebnis wie DLookup<\/b>, nur dass sich CLookup <\/b>auf die Add-In-Datenbank bezieht und DLookup <\/b>auf die Datenbank, von der aus das Add-In aufgerufen wurde. CLookup <\/b>ist im Gegensatz zu DLookup <\/b>allerdings keine eingebaute, sondern eine benutzerdefinierte Funktion. Sie finden diese im Modul mdlTools <\/b>der Beispieldatenbank.<\/p>\n Wenn keiner der Datensätze im linken Listenfeld markiert ist, ermittelt die folgende Anweisung den größten Wert des Feldes ReihenfolgeID <\/b>für die enthaltenen Datensätze. Diese ReihenfolgeID <\/b>wird um eins erhöht, bevor das neue Suchfeld mit einer INSERT<\/b>-Abfrage zur Tabelle tblAusgewaehlt <\/b>hinzugefügt wird. Vorher allerdings sorgt eine UPATE<\/b>-Abfrage dafür, dass das Feld ReihenfolgeID <\/b>aller Datensätze der Tabelle tblAusgewaehlt<\/b>, deren Wert größer oder gleich der ReihenfolgeID <\/b>des neuen Datensatzes ist, um eins erhöht wird. Somit wird das neue Suchfeld genau an der richtigen Stelle eingereiht.<\/p>\n Löschen von Suchfeldern<\/b><\/p>\n Möglicherweise möchte der Benutzer einmal hinzugefügte Suchfelder auch wieder löschen. In diesem Falle muss er einfach nur den zu löschenden Eintrag des linken Listenfeldes doppelt anklicken. Dies löst die folgende Ereignisprozedur aus, die einfach nur den angeklickten Eintrag aus der Tabelle tblAusgewaehlt <\/b>löscht – natürlich nicht, ohne zu prüfen, ob überhaupt ein Eintrag markiert ist (s. Listing 4).<\/p>\n Listing 4: Löschen des aktuell markierten Suchfelds per Doppelklick<\/p>\n ändern der Reihenfolge<\/b><\/p>\n Die Reihenfolge spielt in einem Suchformular eine genauso wichtige Rolle wie in einem üblichen Formular zur Dateneingabe. Hier sollten die wichtigsten Suchfelder sich oben befinden, weniger wichtige eher am Ende des Formulars. Damit der Benutzer diese Reihenfolge beeinflussen kann, kann er die Suchfelder zunächst wie oben beschrieben an der gewünschten Stelle einfügen. Dies ist jedoch nicht in allen Fällen möglich: Neue Suchfelder werden nämlich immer unterhalb des aktuell markierten Suchfeldes eingefügt. Ein Anlegen an der obersten Position des Listenfeldes ist daher nicht möglich. Und da Benutzer vielleicht auch gern erst einmal alle überhaupt gewünschten Einträge zur Liste hinzufügt und dann in Ruhe sortieren möchte, haben wir eine entsprechende Funktion hinzugefügt.<\/p>\n Das Sortieren erfolgt dabei durch das Betätigen der Nach oben<\/b>– und Nach unten<\/b>-Tasten bei gedrückter Alt<\/b>-Taste.<\/p>\n Die Prozedur aus Listing 5 erledigt diese Aufgabe. Sie wird beim Loslassen einer Taste beziehungsweise Tastenkombination ausgelöst und prüft zunächst, ob der Benutzer überhaupt die Alt<\/b>-Taste gedrückt hält.<\/p>\n Listing 5: Position des aktuellen Suchfelds mit Alt + Nach oben oder Alt + Nach unten ändern<\/p>\n Dazu muss der Parameter Shift <\/b>den Wert 4 <\/b>aufweisen. Anschließend überprüft die Routine den Keycode <\/b>der zusammen mit der Alt<\/b>-Taste gedrückten Taste. Dabei steht 38 <\/b>für die Nach oben<\/b>-Taste und 40 <\/b>für Nach unten<\/b>.<\/p>\n Beim Verschieben eines Datensatzes um eine Position nach oben geschieht Folgendes:<\/p>\n Anschließend aktualisiert die Prozedur den Inhalt des linken Listenfeldes und markiert den ausgewählten Datensatz erneut.<\/p>\n Neue Datenherkunft auswählen<\/b><\/p>\n Falls der Benutzer zwischendurch feststellt, dass er gerade die falsche Datenherkunft bearbeitet, kann er diese natürlich noch nachträglich ändern. Dies löscht natürlich auch die Inhalte der beiden Tabellen tblSuchfelder <\/b>und tblAusgewaehlteSuchfelder<\/b> und füllt tblSuchfelder <\/b>neu. Die entsprechende Prozedur wird durch das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes cboDatenherkunft <\/b>ausgelöst und sieht wie folgt aus:<\/p>\n Neues Suchformular erstellen<\/b><\/p>\n Die Benutzeroberfläche des Assistenten wäre somit fertiggestellt, allerdings fehlt noch die eigentliche Funktion: das Erstellen des Suchformulars. Da wir im Wesentlichen auf das Suchformular aus dem Beitrag Suchformular für die Datenblattansicht <\/b>(www.access-im-unternehmen.de\/724<\/b>) aufsetzen möchten, verwenden wir das dort verwendete Formular als Vorlage. <\/p>\n llerdings verändern wir es dahingehend, dass wir nur ein Kombinationsfeld und ein Textfeld sowie ein an eines der beiden Steuerelemente gebundenes Bezeichnungsfeld darin belassen (siehe Bild 10).<\/p>\n Bild 10: Diese Tabelle speichert die Formular-Vorlage.<\/span><\/b><\/p>\n Diese Steuerelemente nennen wir txt<\/b>, cbo <\/b>und lbl<\/b>. Sie dienen beim Anlegen der Steuerelemente der neuen Suchformulare als Formatvorlage, was Textformatierungen, Breite, Höhe und weitere Eigenschaften angeht. Diese drei Steuerelemente werden nach dem Erzeugen der tatsächlich benötigten Steuerelemente einfach gelöscht.<\/p>\n Formular kopieren<\/b><\/p>\n Das Vorlagenformular müssen wir zunächst von der Add-In-Datenbank in die Zieldatenbank übertragen. Normalerweise würde man denken, dass sich dies mit den undokumentierten Funktionen SaveAsText <\/b>und LoadFromText <\/b>erledigen ließe. Diese Funktionen speichern die Definition aller Eigenschaften sowie den Code eines Formulars als Textdatei und erstellen auf Basis einer solchen Textdatei ein neues Formular.<\/p>\n Leider kann man aber auf diese Weise kein Formular einer Add-In-Datenbank im Dateisystem speichern – wir müssen also zu anderen Methoden greifen. Das Einfügen des im Dateisystem liegenden Formulars in die Zieldatei gelingt hingegeben mit der LoadFromText<\/b>-Methode.<\/p>\n Zum Exportieren der Suchformularvorlage müssen wir also einen kleinen Umweg gehen. Dabei öffnen wir die Add-In-Datenbank zunächst allein und exportieren das für unsere Zwecke vorbereitete Suchformular von dort aus mit SaveAsText <\/b>als Textdatei.<\/p>\n Anschließend speichern wir den Code des Formulars in einem Feld einer Tabelle namens tblForms<\/b> (siehe Bild 10), in dem wir diesen mit den Methoden Open<\/b>, Input <\/b>und Close <\/b>in eine Variable einlesen. All dies erledigen wir manuell mit der Prozedur SaveSearchFormInTable <\/b>(s. Listing 6).<\/p>\n Listing 6: Speichern des vorbereiteten Suchformulars in der Tabelle tblForms<\/p>\n Anschließend erstellen wir die Prozedur SuchformularErstellen<\/b>, die durch die Schaltfläche cmdOK <\/b>aufgerufen wird (gekürzte Fassung in Listing 7). <\/p>\n Listing 7: Erstellen des neuen Suchformulars<\/p>\n Die Prozedur ruft zunächst die Funktion FormularImportieren <\/b>auf, welche die Formularvorlage in die Zieltabelle kopiert und den Namen des neuen Formulars zurückliefert (s. Listing 8). Dann öffnet sie das Formular in der Entwurfsansicht, um die gewünschten Steuerelemente zu erstellen. Um ihre Basisinformationen einzulesen, öffnet sie ein Recordset auf Basis der Tabelle tblAusgewaehlteSuchfelder<\/b>.<\/p>\n Listing 8: Kopieren der Formularvorlage in die Zieldatenbank <\/p>\n Bei Durchlaufen prüft sie die verschiedenen Feldtypen und verzweigt in einer Select Case<\/b>-Bedingung zu den entsprechenden Anweisungen. Beim einfachen Textfeld erstellt die CreateControl<\/b>-Anweisung zunächst das neue Textfeld. Die Prozedur TextfeldeigenschaftenKopieren<\/b> aus Listing 9 sorgt dann dafür, dass neue Textfelder mit den Eigenschaften des in der Vorlage enthaltenen Textfeldes ausgestattet werden – so erscheinen diese konsistent in der gleichen Schriftart, -größe et cetera. Wenn Sie das Vorlageformular ändern möchten, öffnen Sie in der aktuellen Version das Suchformular in der Add-In-Datenbank, passen die Steuerelemente an und kopieren den Formularcode wie oben beschrieben in die Tabelle tblForms<\/b>. Das Kopieren der Steuerelementeigenschaften geschieht bei den übrigen Steuerelementen auf ähnliche Weise.<\/p>\n Listing 9: Kopieren der Eigenschaften der Textfeld-Vorlage <\/p>\n Im Anschluss werden steuerelementspezifische Eigenschaften eingestellt. Beim Textfeld wird hier nur der Name eingestellt, bei den drei Typen von Kombinationsfelder geschieht schon einiges mehr: Hier müssen Sie etwa die Datensatzherkunft und den Datensatztyp, die Spaltenanzahl und die Spaltenbreite einstellen.<\/p>\n Die entsprechenden Werte erläutern wir im Beitrag Suchformular für die Datenblattansicht <\/b>(www.access-im-unternehmen.de\/724<\/b>) genauer. Anschließend folgt die Positionierung der Steuerelemente. Maßgeblich dafür ist die Ausrichtung des Steuerelements txt im Vorlagenformular. Die Breite und die Abstände vom linken beziehungsweise oberen Formularrand werden von diesem Steuerelement übernommen.<\/p>\n Natürlich muss der Abstand vom oberen Rand für alle Steuerelemente außer dem obersten angepasst werden. Die Prozedur verschiebt jedes weitere Steuerelement genau um die Höhe eines Steuerelements plus dem Abstand zwischen oberem Rand und erstem Steuerelement nach unten. Günstigerweise vergrößert sich der Detailbereich automatisch mit.<\/p>\n Damit zwischen dem letzten Steuerelement und dem unteren Rand des Detailbereich der gleiche Abstand wie oben eingestellt wird, verschieben wir das Vorlagensteuerelement txt so weit nach unten, dass der Detailbereich entsprechend vergrößert wird. Schließlich werden die Vorlagensteuerelemente gelöscht und die Formulare geschlossen.<\/p>\n Einsatz des Suchformulars<\/b><\/p>\n Das Suchformular öffnen Sie nach dem Anlegen einfach per DoCmd.OpenForm <\/b>von einem Hauptformular aus, dass ein Unterformular namens sfm <\/b>in der Datenblatt- oder Endlosansicht anzeigt. Alle weiteren Funktionen liefert das Suchformular bereits mit.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Suchformularassistent.mda<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic003.png\")
<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic002.png\")
<\/p>\nFunction StartFormWizard(strRecordSource As String) As Variant\r\n DoCmd.OpenForm \"frmSuchformularassistent\", OpenArgs:=strRecordSource, WindowsMode:=acDialog\r\nEnd Function<\/pre>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic004.png\")
<\/p>\nPublic Function OeffneTestdatenbank()\r\n Shell "\"\"c:\\Programme\\Microsoft Office\\Office12\\MSAccess.exe\"\" "\"\" &\r\n & CurrentProject.Path & "\\test.mdb\"\"\"\r\nEnd Function<\/pre>\n
SELECT Name, Type FROM MSysObjects\r\nWHERE Type=1 Or Type=5 ORDER BY Name;<\/pre>\n
SELECT Name, Type FROM MSysObjects\r\nIN ''<Datenbankname>''\r\nWHERE Type = 1 Or Type = 5 ORDER BY Name<\/pre>\n
Private Sub Form_Open(Cancel As Integer)\r\n Dim strSQL As String\r\n strSQL = "SELECT Name,\r\n Type FROM MSysObjects IN ''"\r\n & CurrentDb.Name & "''\r\n WHERE Type = 1 Or Type = 5 ORDER BY Name"\r\n Me!cboDatenherkunft.RowSource = strSQL\r\n Me!cboDatenherkunft = Me.OpenArgs\r\nEnd Sub<\/pre>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic006.png\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic007.png\")
<\/p>\nPublic Enum eSearchFieldType\r\n eText = 0\r\n eTextCombo = 1\r\n eCombo = 2\r\n eBoolean = 3\r\nEnd Enum<\/pre>\n
Private Sub SuchfelderSpeichern(strDatenherkunft As String)\r\n ''Deklaration ...\r\n Set db = CurrentDb\r\n Set dbc = CodeDb\r\n Set rst = db.OpenRecordset("SELECT * FROM " & strDatenherkunft & " WHERE 1 = 2", dbOpenDynaset)\r\n dbc.Execute "DELETE FROM tblSuchfelder", dbFailOnError\r\n For Each fld In rst.Fields\r\n intControltype = acTextBox\r\n On Error Resume Next\r\n intControltype = fld.Properties("DisplayControl")\r\n On Error GoTo 0\r\n Select Case intControltype\r\n Case acCheckBox\r\n dbc.Execute "INSERT INTO tblSuchfelder(Feldname, Feldtyp, Suchfeld) VALUES(''" & fld.Name & "'', " _\r\n & eSearchFieldType.eBoolean & ", ''" & fld.Name & " (Auswahlsuchfeld)'')", dbFailOnError\r\n Case acTextBox\r\n dbc.Execute "INSERT INTO tblSuchfelder(Feldname, Feldtyp, Suchfeld) VALUES(''" & fld.Name & "'', " _\r\n & eSearchFieldType.eText & ", ''" & fld.Name & " (Textsuchfeld)'')", dbFailOnError\r\n dbc.Execute "INSERT INTO tblSuchfelder(Feldname, Feldtyp, Suchfeld) VALUES(''" & fld.Name & "'', " _\r\n & eSearchFieldType.eTextCombo & ", ''" & fld.Name & " (Auswahlsuchfeld)'')", dbFailOnError\r\n Case acComboBox\r\n dbc.Execute "INSERT INTO tblSuchfelder(Feldname, Feldtyp, Suchfeld) VALUES(''" & fld.Name & "'', " _\r\n & eSearchFieldType.eCombo & ", ''" & fld.Name & " (Auswahlsuchfeld)'')", dbFailOnError\r\n Case Else\r\n Debug.Print fld.Name, intControltype\r\n End Select\r\n Next fld\r\n Me!lstAlle.Requery\r\nEnd Sub<\/pre>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic009.png\")
<\/p>\nPrivate Sub Form_Open(Cancel As Integer)\r\n Dim strSQL As String\r\n Call SuchfelderLoeschen\r\n strSQL = "SELECT Name FROM MSysObjects IN ''" & CurrentDb.Name & "'' WHERE (Type=1 Or Type=5)\r\n AND Left(Name,4)<>''MSys'' AND Left(Name,1)<>''~'' ORDER BY Name;"\r\n Me!cboDatenherkunft.RowSource = strSQL\r\n Me!cboDatenherkunft = Me.OpenArgs\r\n If Not (Nz(Me!cboDatenherkunft)) = 0 Then\r\n Call SuchfelderSpeichern(Me!cboDatenherkunft)\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic008.png\")
<\/p>\nPrivate Sub lstAlle_DblClick(Cancel As Integer)\r\n Dim db As DAO.Database\r\n Dim intReihenfolgeID As Integer\r\n If Not IsNull(Me!lstAlle) Then\r\n Set db = CodeDb\r\n intReihenfolgeID = Nz(CLookup("ReihenfolgeID", "tblAusgewaehlteSuchfelder", "SuchfeldID = " _\r\n & Nz(Me!lstAusgewaehlt, 0)))\r\n If intReihenfolgeID = 0 Then\r\n intReihenfolgeID = Nz(CMax("ReihenfolgeID", "tblAusgewaehlteSuchfelder"), 0)\r\n End If\r\n intReihenfolgeID = intReihenfolgeID + 1\r\n db.Execute "UPDATE tblAusgewaehlteSuchfelder SET ReihenfolgeID = ReihenfolgeID + 1 WHERE ReihenfolgeID >= " _\r\n & intReihenfolgeID, dbFailOnError\r\n db.Execute "INSERT INTO tblAusgewaehlteSuchfelder(Feldname, Feldtyp, Suchfeld, ReihenfolgeID)\r\n SELECT Feldname, Feldtyp, Suchfeld, " & intReihenfolgeID & " AS\r\n ReihenfolgeID FROM tblSuchfelder WHERE SuchfeldID = " & Me!lstAlle, dbFailOnError\r\n Me!lstAusgewaehlt.Requery\r\n End If\r\nEnd Sub\r\nPrivate Sub SuchfelderLoeschen()\r\n Dim db As DAO.Database\r\n Set db = CodeDb\r\n db.Execute "DELETE FROM tblSuchfelder", _\r\n dbFailOnError\r\n db.Execute "DELETE FROM\r\n tblAusgewaehlteSuchfelder", dbFailOnError\r\n Me!lstAlle.Requery\r\n Me!lstAusgewaehlt.Requery\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nPrivate Sub lstAusgewaehlt_DblClick(Cancel As Integer)\r\n Dim db As DAO.Database\r\n Dim intReihenfolgeID As Integer\r\n If Not IsNull(Me!lstAusgewaehlt) Then\r\n Set db = CodeDb\r\n intReihenfolgeID = CLookup("ReihenfolgeID", "tblAusgewaehlteSuchfelder", "SuchfeldID = " _\r\n & Me!lstAusgewaehlt)\r\n db.Execute "DELETE FROM tblAusgewaehlteSuchfelder WHERE SuchfeldID = " & Me!lstAusgewaehlt, dbFailOnError\r\n db.Execute "UPDATE tblAusgewaehlteSuchfelder SET ReihenfolgeID = ReihenfolgeID - 1 WHERE ReihenfolgeID > " _\r\n & intReihenfolgeID, dbFailOnError\r\n Me!lstAusgewaehlt.Requery\r\n Set db = Nothing\r\n End If\r\nEnd Sub<\/pre>\nPrivate Sub lstAusgewaehlt_KeyUp(KeyCode As Integer, Shift As Integer)\r\n ''Deklaration ...\r\n Set db = CodeDb\r\n lngAusgewaehltID = Nz(Me!lstAusgewaehlt)\r\n intReihenfolgeID = Nz(CLookup("ReihenfolgeID", "tblAusgewaehlteSuchfelder", "SuchfeldID = " & lngAusgewaehltID))\r\n Select Case Shift\r\n Case 4 ''Alt\r\n Select Case KeyCode\r\n Case 38 ''oben\r\n db.Execute "UPDATE tblAusgewaehlteSuchfelder SET ReihenfolgeID = 0 WHERE ReihenfolgeID = " _\r\n & intReihenfolgeID - 1, dbFailOnError\r\n If db.RecordsAffected > 0 Then\r\n db.Execute "UPDATE tblAusgewaehlteSuchfelder SET ReihenfolgeID =\r\n ReihenfolgeID - 1 WHERE ReihenfolgeID = " & intReihenfolgeID, dbFailOnError\r\n db.Execute "UPDATE tblAusgewaehlteSuchfelder SET ReihenfolgeID = "\r\n & intReihenfolgeID & " WHERE ReihenfolgeID = 0", dbFailOnError\r\n Me!lstAusgewaehlt.Requery\r\n End If\r\n Case 40 ''unten\r\n ''umgekehrte Vorgehensweise\r\n End Select\r\n End Select\r\nEnd Sub<\/pre>\n\n
Private Sub cboDatenherkunft_AfterUpdate()\r\n Dim db As DAO.Database\r\n Set db = CodeDb\r\n Call SuchfelderSpeichern(Me!cboDatenherkunft)\r\n Me!lstAlle.Requery\r\n CodeDb.Execute "DELETE FROM\r\n tblAusgewaehlteSuchfelder", dbFailOnError\r\n Me!lstAusgewaehlt.Requery\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2010_03\/SuchformularAssistent-web-images\/pic011.png\")
<\/p>\nPublic Function SaveSearchFormInTable()\r\n ''Deklaration ...\r\n strForm = "frmSuche"\r\n Set db = CurrentDb\r\n strFile = CurrentProject.Path & "\\" & strForm & ".txt"\r\n SaveAsText acForm, strForm, strFile\r\n Open strFile For Input As #1\r\n strFormcode = Input$(LOF(1), #1)\r\n db.Execute "DELETE FROM tblForms WHERE Formname = ''" & strForm _\r\n & "''", dbFailOnError\r\n db.Execute "INSERT INTO tblForms(Formname, Formcode) VALUES(''" _\r\n & strForm & "'', ''" & Replace(strFormcode, "''", _\r\n "''''") & "'')", dbFailOnError\r\n Close #1\r\nEnd Function<\/pre>\nPublic Sub SuchformularErstellen()\r\n ''Deklaration ...\r\n strForm = FormularImportieren\r\n DoCmd.OpenForm strForm, acDesign\r\n Set frm = Forms(strForm)\r\n Set db = CodeDb\r\n Set dbt = CurrentDb\r\n Set rst = db.OpenRecordset("tblAusgewaehlteSuchfelder", _\r\n dbOpenDynaset)\r\n lngSpace = frm.Controls("lbl").Top\r\n Do While Not rst.EOF\r\n Select Case rst!Feldtyp\r\n Case 0\r\n Set ctl = CreateControl(strForm, acTextBox, acDetail)\r\n Set txt = ctl\r\n Call TextfeldeigenschaftenKopieren(frm, txt)\r\n txt.Name = "txt_" & rst!Feldname\r\n Case 1\r\n Set ctl = CreateControl(strForm, acComboBox, acDetail)\r\n Set cbo = ctl\r\n Call KombinationsfeldeigenschaftenKopieren(frm, cbo)\r\n cbo.RowSource = "SELECT " & rst!Feldname & " FROM " _\r\n & Me!cboDatenherkunft & " ORDER BY " & rst!Feldname\r\n cbo.ColumnCount = 1\r\n cbo.ColumnWidths = ""\r\n cbo.Name = "txtc" & rst!Feldname\r\n Case ... ''Erstellung weiterer Steuerelementtypen\r\n End Select\r\n Set lbl = CreateControl(strForm, acLabel, acDetail, ctl.Name)\r\n With lbl\r\n For Each prp In lbl.Properties\r\n On Error Resume Next\r\n prp = frm.Controls("lbl").Properties(prp.Name)\r\n On Error GoTo 0\r\n Next prp\r\n .Caption = rst!Beschriftung\r\n End With\r\n ctl.Top = frm.txt.Top + lngTop\r\n lbl.Top = ctl.Top\r\n lngTop = lngTop + frm.txt.Top + frm.txt.Height\r\n rst.MoveNext\r\n Loop\r\n frm.txt.Top = ctl.Top + frm.txt.Top\r\n DeleteControl strForm, "txt"\r\n DeleteControl strForm, "cbo"\r\n DoCmd.Close acForm, strForm\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\nPublic Function FormularImportieren() As String\r\n Dim strForm As String\r\n On Error Resume Next\r\n Kill CurrentProject.Path & "\\frmSuche.txt"\r\n On Error GoTo 0\r\n Open CurrentProject.Path & "\\frmSuche.txt" For Append As #1\r\n Print #1, CLookup("Formcode", "tblForms")\r\n Close #1\r\n strForm = "frmSuche_" & Me!cboDatenherkunft\r\n LoadFromText acForm, strForm, CurrentProject.Path _\r\n & "\\frmSuche.txt"\r\n FormularImportieren = strForm\r\nEnd Function<\/pre>\nPublic Sub TextfeldeigenschaftenKopieren(frm As Form, txt As TextBox)\r\n Dim prp As Property\r\n For Each prp In txt.Properties\r\n On Error Resume Next\r\n prp = frm.Controls("txt").Properties(prp.Name)\r\n On Error GoTo 0\r\n Next prp\r\nEnd Sub<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n