![\"Suchfeld](\"..\/tl_files\/images\/pic_407_002.png\")
<\/a><\/p>\nBild 1: Suchfeld und Listenfeld zur Ausgabe der Suchergebnisse<\/p>\n
Die Datensatzherkunft des Listenfeldes stellen wir auf die Abfrage aus Bild 2 ein. Diese liefert alle Datensätze der Tabelle tblKunden<\/b>, allerdings nur die Felder KundeID<\/b>, KundenCode<\/b>, Firma <\/b>und Kontaktperson<\/b>. Die Sortierung erfolgt aufsteigend nach dem Feld Firma<\/b>. Damit das Listenfeld nur den Inhalt ab den zweiten Feld der Datensatzherkunft anzeigt, stellen wir die Eigenschaft Spaltenanzahl <\/b>auf 4 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf 0cm;2cm;5cm;5cm <\/b>ein.<\/p>\n
Bild 2: Datensatzherkunft des Listenfeldes<\/p>\n Dann hinterlegen wir für die Ereigniseigenschaft Bei änderung <\/b>des Textfeldes txtSuche<\/b> die Ereignisprozedur aus Listing 1. Die Prozedur trägt zunächst den aktuell im Textfeld txtSuche <\/b>angezeigten Text in die Variable strSuche <\/b>ein. Dann prüft sie, ob die Variable einen Suchbegriff mit einer Länge von mindestens einem Zeichen enthält. Ist das der Fall, setzt die Prozedur in der Variablen strKriterium <\/b>einen Ausdruck zusammen, der die drei Felder Kundencode<\/b>, Firma <\/b>und Kontaktperson <\/b>mit dem Ausdruck aus strSuche <\/b>vergleicht und die einzelnen Kriterien mit dem OR<\/b>-Operator verbindet. Dieses Kriterium tragen wir dann zusammen mit einem SQL-Ausdruck, der etwa dem Inhalt der ursprünglich als Datensatzherkunft für das Listenfeld verwendeten Abfrage entspricht, für die Eigenschaft RowSource <\/b>des Listenfeldes lstKunden <\/b>ein.<\/p>\n Listing 1: Prozedur zum Durchsuchen des Listenfeldes<\/p>\n Wenn der Benutzer beispielsweise nur den Buchstaben A <\/b>in das Textfeld einträgt, erhält das Listenfeld die folgende Datensatzherkunft:<\/p>\n Das Zwischenergebnis sieht nun etwa wie in Bild 3 aus. Hier haben wir den Suchbegriff Restauran <\/b>eingegeben, was alle Einträge liefert, die diesen Ausdruck in einem der drei Felder Kundencode<\/b>, Firma <\/b>oder Kontaktperson <\/b>enthält.<\/p>\n Bild 3: Beispiel für die Suche nach bestimmten Kunden<\/p>\n Nun wollen wir das Registersteuerelement hinzufügen, das die per Doppelklick ausgewählten Kunden auf jeweils einer Registerseite anzeigt. Dazu legen wir zuerst das Registersteuerelement wie in Bild 4 an und geben ihm den Namen regKunden<\/b>.<\/p>\n Bild 4: Das Formular mit dem Registersteuerelement für die Anzeige der Kunden<\/p>\n Nun verhält es sich unter Access so, dass wir zur Laufzeit keine Steuer-elemente zu einem Formular hinzufügen können. Dies ist nur in der Entwurfsansicht möglich.<\/p>\n Es ist allerdings durchaus möglich, zur Laufzeit Registerseiten hinzuzufügen oder zu entfernen. Leider hilft uns das nicht weiter, wenn wir jedem Register ein Unterformular hinzufügen wollen, welches das Detailformular mit den Kundendaten enthält. Oder doch Wie wir dies nutzen können, schauen wir uns später noch an.<\/p>\n Da wir Unterformulare nur zur Entwurfszeit zum Formular hinzufügen können, müssen wir uns überlegen, wieviele Kunden das Registeuersteuerelement gleichzeitig anzeigen können soll. Wir wollen uns auf die Zahl zehn beschränken. In mehr als zehn Kundendatensätzen wollen Sie vermutlich nicht gleichzeitig arbeiten. Also fügen wir dem Registersteuerelement manuell so viele Registerseiten hinzu, dass wir zehn Seiten erhalten. Dies erledigen Sie über den Kontextmenü-Eintrag Seiten einfügen <\/b>des Registersteuerelements in der Entwurfsansicht des Formulars (siehe Bild 5).<\/p>\n Bild 5: Manuelles Hinzufügen von Registersteuerseiten<\/p>\n Hier wird schnell deutlich, dass sich das Registersteuerelement den für die Seitenüberschriften benötigen Platz schnell nimmt und das Steuer-element sowie das Formular verbreitert. Das können wir ändern, indem wir die Eigenschaft Mehrere Zeilen <\/b>des Registersteuerelements auf Ja <\/b>einstellen. Allerdings wirkt sich diese änderung offensichtlich nicht aus, wenn wir in der Entwurfsansicht arbeiten – die zweizeilige Anzeige wird nicht aktiviert, stattdessen wird das Steuer-element immer breiter, je mehr Registerseiten wir hinzufügen. Also beschränken wir die Breite des Registersteuerelement zunächst dadurch, dass wir die Beschriftungen der Registerseiten, die wir später ohnehin an den Kundendatensatz anpassen, auf einfache Zahlen von 1 <\/b>bis 10 <\/b>einstellen. Außerdem stellen wir die Eigenschaft Name <\/b>gleich auf Werte von pge01 <\/b>bis pge10 <\/b>ein.<\/p>\n Danach fügen wir jeder Registerseite ein Unterformular-Steuerelement hinzu. Hier ist es besonders wichtig, dass alle Unterformular-Steuerelemente die gleiche Position haben, damit diese nachher beim Hin- und Herschalten zwischen den Seiten nicht springen. Also legen wir das erste Unterformular-Steuerelement wie gewünscht an und merken uns die Werte der vier Eigenschaften Oben<\/b>, Links<\/b>, Höhe <\/b>und Breite <\/b>des ersten Unterformulars. Damit dieses aber überhaupt erst den vollständigen Platz der Registerseite einnimmt, stellen wir die Werte der vier genannten Eigenschaften auf die entsprechenden Werte der Registerseite ein.<\/p>\n Wenn wir dann das Unterformular-Steuerelement der ersten Registerseite kopieren und in die zweite Registerseite einfügen, landet dieses leider wieder an einer etwas anderen Stelle etwas weiter unten und etwas weiter links. Dadurch wird auch die Registerseite etwas größer und breiter. Diesmal brauchen wir allerdings nur die Eigenschaften Oben <\/b>und Links <\/b>einzustellen, damit das Formular die gleiche Position wie das auf der vorherigen Registerseite einnimmt. Am schnellsten kommen wir zum Ziel, wenn wir das Unterformular-Steuerelement mit angepasster Höhe und Breite von den ersten in die folgenden Registerseiten einfügen und dann per Copy and Paste auch die Werte der Eigenschaften Oben <\/b>und Links <\/b>übertragen. Außerdem stellen wir noch die Namen der Unterformular-Steuerelemente auf sfm01 <\/b>bis sfm10 <\/b>ein.<\/p>\n Zusätzlich stellen wir noch die Eigenschaft Rahmenart <\/b>der Unterformular-Steuerelemente auf den Wert Transparent<\/b> ein.<\/p>\n Das Ergebnis sieht dann zunächst wie in Bild 6 aus.<\/p>\n Bild 6: Die Registerseiten sind vollständig mit Unterformularen gefüllt.<\/p>\n Nun zeigt das Registersteuerelement nicht gleich beim öffnen des Formulars zehn Kunden-Datensätze an, sondern erst einmal keinen. Deshalb blenden wir die zehn Seiten auch zunächst einmal aus, indem wir ihre Eigenschaft Sichtbar<\/b> auf den Wert Nein <\/b>einstellen. Das erledigen wir allerdings nicht zu Fuß, sondern fügen der Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird, die folgenden Zeilen hinzu:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nPrivate Sub <\/span>txtSuche_Change()\r\n Dim <\/span>strSuche As String<\/span>\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>strKriterium As String<\/span>\r\n strSuche = Me!txtSuche.Text\r\n If <\/span>Len<\/span>(strSuche) > 0 Then<\/span>\r\n strKriterium = \"WHERE Kundencode LIKE '*\" & strSuche & \"*' OR Firma LIKE '*\" & strSuche _\r\n & \"*' OR Kontaktperson LIKE '*\" & strSuche & \"*'\"\r\n End If<\/span>\r\n strSQL = \"SELECT KundeID, KundenCode, Firma, Kontaktperson FROM tblKunden \" & strKriterium & \"ORDER BY Firma\"\r\n Me!lstKunden.RowSource = strSQL\r\nEnd Sub<\/span><\/pre>\nSELECT KundeID, KundenCode, Firma, Kontaktperson \r\nFROM tblKunden \r\nWHERE Kundencode LIKE '*A*' OR Firma LIKE '*A*' \r\nOR Kontaktperson LIKE '*A*'ORDER BY Firma<\/pre>\n
<\/a><\/p>\nRegistersteuerelement hinzufügen<\/h2>\n
<\/a><\/p>\nGewünschte Anzahl der Register<\/h2>\n
<\/a><\/p>\nUnterformulare hinzufügen<\/h2>\n
<\/a><\/p>\nRegisterseiten ausblenden<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Dim <\/span>i As Integer<\/span>\r\n Me!txtSuche.SetFocus\r\n For i = 1 To 10\r\n Me!regKunden.Pages(i - 1).Visible = False<\/span>\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t