<\/p>\n
Die Konstellation von Haupt- und Unterformular zur Darstellung von Daten aus 1:n- beziehungsweise m:n-Beziehungen ist bekannt. Einen Datensatz im Hauptformular zu suchen ist auch kein Hexenwerk. Aber wie sieht es aus, wenn wir das Hauptformular nach den Datensätzen filtern wollen, deren verknüpfte Tabelle einen Datensatz mit einem bestimmten Kriterium enthält Und wenn wir dann noch einen Schritt weitergehen und noch den ersten passenden Datensatz im Unterformular markieren wollen Wie dies gelingt, zeigt der vorliegende Beitrag.<\/b><\/p>\n
Die Tabellen der Beispieldatenbank rekrutieren sich wieder eimal aus der Südsturm-Datenbank, unserer angepassten Nordwind-Variante. Im ersten Beispiel schauen wir uns die Kategorien im Hauptformular an und die Artikel einer jeden Kategorie im Unterformular.<\/p>\n
Mit einem Suchfeld im Hauptformular wollen wir nach Artikeln filtern. Außerdem soll es zwei Schaltflächen geben, mit denen wir zwischen den Ergebnissen hin- und herblättern können. Das Formular soll dann wie in Bild 1 aussehen.<\/p>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2015_05\/pic_996_001.png\")
<\/p>\n
Bild 1: Formular mit Filter nach Artikelname, Variante I<\/span><\/b><\/p>\n Aufbau des Formulars<\/b><\/p>\n Das Hauptformular verwendet die Tabelle tblKategorien <\/b>als Datenherkunft und zeigt die beiden Felder KategorieID <\/b>und Kategoriename <\/b>an. Das Unterformular steuert die Daten der Tabelle tblArtikel <\/b>bei, und zwar in der Daten-blatt-ansicht. Damit es jeweils nur die Datensätze anzeigt, die mit dem aktuellen Datensatz der Tabelle tblKategorien <\/b>im Hauptformular verknüpft sind, erhalten die Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements jeweils den Wert KategorieID<\/b>.<\/p>\n Steuerelemente<\/b><\/p>\n Die zusätzlichen Steuerelemente im Formular heißen txtSuchbegriff, cmdVorheriger <\/b>und cmdNaechster<\/b>. Wenn der Benutzer einen Begriff in das Textfeld txtSuchbegriff <\/b>eingibt, soll die erste Kombination aus Kategorie und Artikel gefunden werden, deren Artikelname dem im Suchfeld eingegebenen Ausdruck entspricht (Platzhalter wie das Sternchen (*) sind dabei erlaubt).<\/p>\n Die beiden Schaltflächen cmdVorheriger<\/b> und cmdNaechster <\/b>sind beim Laden des Formulars noch deaktiviert. Erst, wenn der Benutzer einen Suchbegriff eingibt, wird geprüft, ob eine der Schaltflächen aktiviert werden soll – oder auch beide. Zeigt das Formular den ersten Treffer an und gibt es noch einen weiteren, soll die Schaltfläche cmdNaechster <\/b>aktiviert werden. Blättert der Benutzer damit zum folgenden Treffer, soll auch die Schaltfläche cmdVorheriger <\/b>aktiviert werden. Die Schaltfläche cmdNaechster<\/b> bleibt dabei verfügbar, bis der Benutzer zum letzten Ergebnis weitergeklickt hat.<\/p>\n Programmierung der Suche<\/b><\/p>\n Die Suchfunktion erfordert einen etwas anderen Ansatz als übliche Suchfunktionen. Direkt nach der Eingabe des Suchbegriffs erstellen wir ein Recordset, das die Tabelle tblArtikel <\/b>aufnimmt – mit dem eingegebenen Suchbegriff als Vergleichswert für das Feld Artikelname<\/b>. Die Tabelle liefert für jedes Suchergebnis sowohl die ArtikelID <\/b>also auch die KategorieID <\/b>aus dem entsprechenden Fremdschlüsselfeld. Damit können wir dann also sowohl den gesuchten Datensatz im Unterformular einstellen als auch die dazu passende Kategorie im Hauptformular.<\/p>\n Schaltflächen deaktivieren<\/b><\/p>\n Beim Laden des Formulars sollen die beiden Schaltflächen cmdVorheriger <\/b>und cmdNaechster <\/b>zunächst deaktiviert sein. Dazu legen wir für das Ereignis Beim Laden <\/b>die folgende Ereignisprozedur an:<\/p>\n Nach der Eingabe eines Suchbegriffes und dem Auslösen des Ereignisses Nach Aktualisierung <\/b>soll die Prozedur aus Listing 1 ausgelöst werden. Die Prozedur füllt die Variable db <\/b>mit einem Verweis auf das Database<\/b>-Objekt der aktuellen Datenbank. Dann liest sie den Suchbegriff aus dem Textfeld txtSuchbegriff <\/b>in die Variable strSuchbegriff <\/b>ein. Hat der Suchbegriff eine Länge von mehr als null Zeichen, erstellt die Prozedur ein neues Recordset, das alle Datensätze der Tabelle tblArtikel <\/b>enthält, deren Feld Artikelname dem Suchbegriff entspricht. Dieses Recordset speichert die Prozedur in einer Variablen, die im Kopf des Klassenmoduls wie folgt deklariert wird und damit von allen Prozeduren des Moduls aus erreichbar ist:<\/p>\n Listing 1: Prozedur für das Ereignis Nach Aktualisierung des Suchfeldes<\/span><\/b><\/p>\n Wir verwenden den Wert dbOpenSnapshot <\/b>als Parameter, da dies direkt den Wert der Eigenschaft Recordcount <\/b>des Recordsets verfügbar macht. Nachdem dies geschehen ist, ruft die Prozedur zwei weitere Routinen namens SteuerelementeAktualisieren<\/b> und Filtern <\/b>auf. Erstere aktiviert oder deaktiviert die beiden Schaltflächen cmdVorheriger <\/b>und cmdNaechster <\/b>in Abhängigkeit von der Datensatzposition, der zweite filtert die Daten in Haupt- und Unterformular nach dem aktuellen Datensatz des Recordsets rstErgebnis<\/b>.<\/p>\n Sollte das Textfeld txtSuchbegriff <\/b>keinen Wert enthalten, ruft die Prozedur die Routine FilterAufheben <\/b>auf, was wieder alle Datensätze in Haupt- und Unterformular anzeigt.<\/p>\n Steuerelemente aktualisieren<\/b><\/p>\n Die Routine SteuerelementeAktualisieren <\/b>kümmert sich um das Aktivieren und Deaktivieren der beiden Schaltflächen cmdVorheriger <\/b>und cmdNaechster<\/b>. Die erste If…Then<\/b>-Bedingung dieser Routine prüft, ob die aktuelle Position des Datensatzzeigers von rstErgebnis <\/b>kleiner als die Anzahl der Datensätze minus eins ist.<\/p>\n Minus eins deshalb, weil AbsolutePosition <\/b>für den ersten Datensatz den Wert 0 <\/b>liefert. In diesem Fall aktiviert die Routine die Schaltfläche cmdNaechster<\/b>, anderenfalls wird sie deaktiert. Bei der Schaltfläche cmdVorheriger <\/b>sieht es ähnlich aus: Die If…Then<\/b>-Bedingung prüft, ob AbsolutePosition <\/b>größer 0 <\/b>ist. Falls ja, kann der Benutzer noch einen Datensatz nach vorn blättern und die Schaltfläche cmdVorheriger <\/b>wird aktiviert:<\/p>\n <\/p>\n Filtern der Artikel<\/b><\/p>\n Die Routine Filtern <\/b>sorgt für die Anzeige des jeweils aktuellen Datensatzes des Recordsets rstErgebnis<\/b> (s. Listing 2). Dabei prüft die Routine zunächst, ob das Recordset mindestens einen Datensatz enthält. Falls ja, stellt sie die Eigenschaft Filter <\/b>des Hauptformulars auf einen Ausdruck ein, bei dem der Wert von KategorieID <\/b>der Datenherkunft dem Wert dieses Feldes im aktuelle Datensatz des Recordsets entspricht und aktiviert den Filter durch Setzen von FilterOn <\/b>auf True<\/b>.<\/p>\n Listing 2: Prozedur zum Filtern der Daten in Haupt- und Unterformular<\/span><\/b><\/p>\n Auf die gleiche Weise filtert es das Unterformular so, dass nur der Artikel aus dem aktuellen Datensatz des Recordsets erscheint. Liefert rstErgebnis <\/b>keinen Datensatz, stellt die Prozedur den Filter für das Hauptformular auf den Ausdruck 1=2 <\/b>ein, was keine Datensätze liefert. Dementsprechend bleibt auch das Unterformular leer.<\/p>\n Aufheben des Filters<\/b><\/p>\n Leert der Benutzer das Textfeld strSuchbegriff <\/b>und löst das Ereignis Nach Aktualisierung <\/b>des Textfeldes aus, ruft die Prozedur txtSuchbegriff_AfterUpdate <\/b>wie oben erwähnt die Prozedur FilterAufheben <\/b>auf.<\/p>\n Diese leert die Eigenschaft Filter <\/b>sowohl des Unterformulars als auch des Hauptformulars. Dabei ist die Reihenfolge wichtig – Sie müssen erst den Filter im Unterformular aufheben und dann den im Hauptformular, anderenfalls zeigt das Formular die Datensätze im Unterformular nicht korrekt an:<\/p>\n Außerdem leert die Prozedur das Recordset rstErgebnis <\/b>und deaktiviert die Schaltflächen cmdVorheriger <\/b>und cmdNaechster<\/b>.<\/p>\n Funktion der Schaltflächen<\/b><\/p>\n Die Schaltfläche cmdNaechster <\/b>soll beim Anklicken das nächste Suchergebnis liefern, also den folgenden Datensatz der Recordsets rstErgebnis<\/b>. Dazu bewegt die Prozedur den Datensatzzeiger mit der Methode MoveNext <\/b>zum folgenden Datensatz und ruft dann die beiden Routinen SteuerelementeAktualisieren <\/b>und Filtern <\/b>auf, um sowohl die Aktivierung der Steuerelemente zu prüfen als auch Haupt- und Unterformular nach dem aktuellen Suchergebnis zu filtern:<\/p>\n Die Prozedur, die durch einen Klick auf die Schaltfläche cmdVorheriger <\/b>ausgelöst wird, erledigt die gleiche Aufgabe, springt aber zum vorherigen Datensatz des Recordsets mit den Suchergebnissen:<\/p>\n Die Prozeduren sorgen in dieser Form dafür, dass Haupt- und Unterformular jeweils nur einen Datensatz anzeigen. Das mag für bestimmte Anwendungszwecke passen, aber nicht für alle – also stellen wir eine Alternative vor.<\/p>\n Variante II: Suchergebnis aktivieren statt filtern<\/b><\/p>\n Die zweite Variante soll das Haupt- und Unterformular nicht nach dem aktuell gefundenen Datensatz filtern, sondern weiterhin alle verfügbaren Datensätze anzeigen. Allerdings soll der jeweilige Datensatz im Unterformular markiert werden.<\/p>\n Formular und Unterformular sind gleich aufgebaut, allerdings heißt das Formular nun frmArtikelNachKategorien_Markieren <\/b>und das Unterformular sfmArtikelNachKategorien_Markieren<\/b> (s. Bild 2).<\/p>\n Bild 2: Formular mit Filter nach Artikelname, Variante II<\/span><\/b><\/p>\n Nach der Eingabe des Suchbegriffs sollen Haupt- und Unterformular gar nicht gefiltert werden, sondern nur die jeweiligen Datensätze markiert werden. Auch hier verwenden wir ein Recordset zum Ermitteln der Suchergebenisse:<\/p>\n Beim Laden des Formulars deaktivieren wir wieder die beiden Schaltflächen:<\/p>\n Nach der Eingabe des Suchbegriffs wird die Prozedur aus Listing 3 ausgelöst. Diese sieht so ähnlich aus wie die aus dem vorherigen Beispiel, aber sie ruft die Routine Markieren statt Filtern auf. Und bei Aktualisierung bei leerem Textfeld erfolgt der Aufruf der Routine MarkierungAufheben<\/b>, nicht mehr von FilterAufheben<\/b>.<\/p>\n Listing 3: Aktionen nach dem Eingeben des Suchbegriffs<\/span><\/b><\/p>\n Fund markieren<\/b><\/p>\n Die Prozedur Markieren <\/b>prüft zunächst, ob das Recordset mit der Ergebnisliste überhaupt einen Eintrag enthält. Falls ja, ruft sie die FindFirst<\/b>-Methode des Recordset<\/b>-Objekts des Hauptformulars auf, um die richtige Kategorie auszuwählen (s. Listing 4).<\/p>\n Listing 4: Diese Prozedur markiert den nächsten Eintrag des Ergebnis-Recordsets.<\/span><\/b><\/p>\n Dabei übergibt sie ein Kriterium, das den Wert des Feldes KategorieID <\/b>des Recordsets enthält. Das Hauptformular zeigt so schon einmal den richtigen Datensatz an.<\/p>\n Nun soll das Unterformular noch den aktuellen Datensatz der Ergebnisliste aus rstErgebnis <\/b>liefern. Deshalb verwenden wir auch hier die FindFirst<\/b>-Methode des entsprechenden Recordset-Objekts – nur diesmal mit dem Kriterium „ArtikelID = “ & rstErgebnis!ArtikelID<\/b>. Dadurch landet der Datensatzzeiger im Unterformular genau bei dem gesuchten Datensatz.<\/p>\n Markierung aufheben<\/b><\/p>\n Sollen die Markierungen wieder entfernt werden, was beispielsweise nach dem Leeren und Aktualisieren des Textfeldes txtSuchbegriff <\/b>geschehen soll, wird die folgende Prozedur aufgerufen:<\/p>\n Diese Prozedur springt wieder zum ersten Datensatz des Hauptformulars und dann zum ersten Datensatz des Unterformulars. Das Recordset mit der Ergebnisliste wird geleert und die Schaltflächen zum Vor- und Zurückblättern werden deaktiviert.<\/p>\n In Ergebnissen blättern<\/b><\/p>\n Das Verhalten beim Blättern in den gefundenen Datensätzen sieht natürlich ganz anders aus: Wenn etwa eine Kategorie gleich mehrere Treffer liefert, bleibt die Kategorie im Hauptformular erhalten und es werden beim Anklicken der Schaltfläche cmdNaechster <\/b>nacheinander die einzelnen Funde im Unterformular markiert:<\/p>\n Genauso läuft es natürlich auch andersherum:<\/p>\n Die Prozedur zum Aktivieren oder Deaktivieren der beiden Schaltflächen cmdNaechster <\/b>und cmdVorheriger <\/b>entspricht genau dem vorherigen Beispiel, daher führen wir diese hier nicht nochmals auf.<\/p>\n Nach Daten aus m:n-Beziehungen suchen<\/b><\/p>\n Im letzten Beispiel schauen wir uns eine Konstellation aus Haupt- und Unterformular an, bei der Sie ein Feld durchsuchen, das über die im Unterformular angezeigte m:n-Beziehung mit dem Datensatz im Hauptformular verknüpft ist. Das Beispielformular finden Sie in Bild 3.<\/p>\n Bild 3: Suche nach Daten aus einer m:n-Beziehung<\/span><\/b><\/p>\n Die Prozeduren übernehmen wir weitgehend aus den vorherigen Beispielen. Einen wichtigen Unterschied finden Sie jedoch in der Prozedur, die nach der Eingabe eines Suchbegriffs ausgelöst wird (s. Listing 5). Diese stellt eine etwas andere SQL-Abfrage zusammen. Diese berücksichtigt die beiden verknüpften Tabellen tblBestelldetails <\/b>und tblArtikel<\/b>, weil wir ja die Daten des Formulars nach dem Namen des Artikels durchsuchen wollen.<\/p>\n Listing 5: Zusammenstellen der Ergebnisabfrage nach dem Eingeben eines Suchbegriffs<\/span><\/b><\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!cmdVorheriger.Enabled = False<\/span>\r\n Me!cmdNaechster.Enabled = False<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtSuchbegriff_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSuchbegriff As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strSuchbegriff = Nz(Me!txtSuchbegriff, \"\")\r\n If <\/span>Len<\/span>(strSuchbegriff) > 0 Then<\/span>\r\n Set<\/span> rstErgebnis = db.OpenRecordset(\"SELECT ArtikelID, KategorieID FROM tblArtikel WHERE Artikelname LIKE ''\" _\r\n & strSuchbegriff & \"'' ORDER BY tblKategorien.KategorieID, tblArtikel.ArtikelID\", dbOpenSnapshot)\r\n SteuerelementeAktualisieren\r\n Filtern\r\n Else<\/span>\r\n FilterAufheben\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDim <\/span>rstErgebnis As <\/span>DAO.Recordset<\/pre>\nPrivate Sub <\/span>SteuerelementeAktualisieren()\r\n If rstErgebnis.AbsolutePosition _\r\n < rstErgebnis.RecordCount - 1 Then\r\n Me!cmdNaechster.Enabled = True<\/span>\r\n Else<\/span>\r\n Me!cmdNaechster.Enabled = False<\/span>\r\n End If<\/span>\r\n If <\/span>rstErgebnis.AbsolutePosition > 0 Then<\/span>\r\n Me!cmdVorheriger.Enabled = True<\/span>\r\n Else<\/span>\r\n Me!cmdVorheriger.Enabled = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Filtern()\r\n If <\/span>Not<\/span> rstErgebnis.RecordCount = 0 Then<\/span>\r\n With<\/span> Me\r\n .Filter = \"KategorieID = \" & rstErgebnis!KategorieID\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\n With<\/span> Me!sfmArtikelNachKategorie.Form\r\n .Filter = \"ArtikelID = \" & rstErgebnis!ArtikelID\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\n Else<\/span>\r\n With<\/span> Me\r\n .Filter = \"1=2\"\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>FilterAufheben()\r\n Me!sfmArtikelNachKategorie.Form.Filter = \"\"\r\n Me.Filter = \"\"\r\n Set<\/span> rstErgebnis = Nothing\r\n Me!cmdVorheriger.Enabled = False<\/span>\r\n Me!cmdNaechster.Enabled = False<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdNaechster_Click()\r\n rstErgebnis.MoveNext<\/span>\r\n SteuerelementeAktualisieren\r\n Filtern\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdVorheriger_Click()\r\n rstErgebnis.MovePrevious\r\n SteuerelementeAktualisieren\r\n Filtern\r\nEnd Sub<\/span><\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2015_05\/pic_996_002.png\")
<\/p>\nDim <\/span>rstErgebnis As <\/span>DAO.Recordset<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Me!cmdVorheriger.Enabled = False<\/span>\r\n Me!cmdNaechster.Enabled = False<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtSuchbegriff_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSuchbegriff As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strSuchbegriff = Nz(Me!txtSuchbegriff, \"\")\r\n If <\/span>Len<\/span>(strSuchbegriff) > 0 Then<\/span>\r\n Set<\/span> rstErgebnis = db.OpenRecordset(\"SELECT ArtikelID, KategorieID FROM tblArtikel WHERE Artikelname LIKE ''\" _\r\n & strSuchbegriff & \"'' ORDER BY KategorieID, ArtikelID\", dbOpenSnapshot)\r\n SteuerelementeAktualisieren\r\n Markieren\r\n Else<\/span>\r\n MarkierungAufheben\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Markieren()\r\n If <\/span>Not<\/span> rstErgebnis.RecordCount = 0 Then<\/span>\r\n Me.Recordset.FindFirst \"KategorieID = \" & rstErgebnis!KategorieID\r\n Me!sfmArtikelNachKategorie_Markieren.Form.Recordset.FindFirst \"ArtikelID = \" & rstErgebnis!ArtikelID\r\n Else<\/span>\r\n MsgBox<\/span> \"Keine passenden Daten gefunden\"\r\n MarkierungAufheben\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>MarkierungAufheben()\r\n Me.Recordset.MoveFirst\r\n Me!sfmArtikelNachKategorie_Markieren. Form.Recordset.MoveFirst\r\n Set<\/span> rstErgebnis = Nothing\r\n Me!cmdVorheriger.Enabled = False<\/span>\r\n Me!cmdNaechster.Enabled = False<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdNaechster_Click()\r\n rstErgebnis.MoveNext<\/span>\r\n SteuerelementeAktualisieren\r\n Markieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdVorheriger_Click()\r\n rstErgebnis.MovePrevious\r\n SteuerelementeAktualisieren\r\n Markieren\r\nEnd Sub<\/span><\/pre>\n<\/p>\nPrivate Sub <\/span>txtSuchbegriff_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSuchbegriff As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strSuchbegriff = Nz(Me!txtSuchbegriff, \"\")\r\n If <\/span>Len<\/span>(strSuchbegriff) > 0 Then<\/span>\r\n Set<\/span> rstErgebnis = db.OpenRecordset(\"SELECT tblBestelldetails.BestellungID, "_\r\n & "tblBestelldetails.BestelldetailID, tblBestelldetails.ArtikelID " _\r\n & "FROM tblBestelldetails INNER JOIN tblArtikel ON tblBestelldetails.ArtikelID " _\r\n & "= tblArtikel.ArtikelID WHERE tblArtikel.Artikelname LIKE ''\" _\r\n & strSuchbegriff & \"'' ORDER BY tblBestelldetails.BestelldetailID\", dbOpenSnapshot)\r\n SteuerelementeAktualisieren\r\n Markieren\r\n Else<\/span>\r\n MarkierungAufheben\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n