<\/p>\n
Sie kennen sicher die Art von Schnellsuche, bei der direkt bei der Eingabe von Zeichen gefiltert wird. Diese kann sich auf eines oder mehrere Felder beziehen, arbeitet aber sonst prinzipiell immer gleich: Das Eingeben eines Zeichens löst ein Ereignis aus, dass den aktuellen Suchbegriff ermittelt, eine SQL-Where-Bedingung zusammenstellt und diese dem Filter-Kriterium des Formulars zuweist. Wie Sie eine solche Suche ganz leicht implementieren, zeigt dieser Beitrag.<\/b><\/p>\n
In letzter Zeit stelle ich fest, dass ich eine solche Suche eigentlich in fast allen Formularen benötige – egal, ob es sich um die Formular-, Endlos- oder Datenblattansicht handelt. In der Regel reicht die Eingabe eines oder mehrerer Buchstaben aus, um schnell beim gesuchten Datensatz zu landen – eine effizientere Suchmethode gibt es nicht.<\/p>\n
Eine Ausnahme ist es wohl, wenn Sie aus vielen Datensätzen einen oder mehrere herausfiltern möchten, die bestimmte Kriterien aufweisen – dann sind Sie aber mit einer Abfrage oder einer darauf aufbauenden umfassenderen Suchfunktion besser bedient. Die Lösung aus diesem Beitrag bezieht sich eher auf solche Anwendungsfälle, bei denen Sie mal eben den Kunden zu einer E-Mail-Anfrage herausfinden möchten oder diesen über seine Kundennummer identifizieren möchten.<\/p>\n
Beispielsuche<\/p>\n
Die Basis für die in diesem Beitrag beschriebene Lösung ist ein Formular wie das aus Bild 1 (siehe Formular frmSchnellsuche <\/b>in der Beispieldatenbank). Das Formular zeigt Daten in der Endlosansicht an und besitzt ein Textfeld zur Eingabe von Suchbegriffen.<\/p>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_04\/SchnelleSucheMitKlasse-web-images\/pic002.png\")
<\/p>\n
Bild 1: Die Beispielsuche in Aktion<\/span><\/b><\/p>\n Nach der Eingabe etwa des Buchstabens L <\/b>filtert das Formular bereits und zeigt nur noch alle Datensätze an, deren Artikelname mit dem Buchstaben L <\/b>beginnt.<\/p>\n Wenn Sie hier nun den Buchstaben A <\/b>eingeben, zeigt das Formular nur noch alle Artikel an, deren Name mit La <\/b>beginnt.<\/p>\n Im Entwurf sieht das Formular wie in Bild 2 aus. Es ist an die Tabelle tblArtikel <\/b>gebunden und verwendet für die Eigenschaft Standardansicht <\/b>den Wert Endlosformular<\/b>. Das Textfeld im Kopf des Formulars heißt txtSchnellsuche <\/b>und besitzt eine Prozedur, die durch das Ereignis Bei änderung <\/b>ausgelöst wird.<\/p>\n Bild 2: Entwurfsansicht der Beispielsuche<\/span><\/b><\/p>\n Die Prozedur stellt zunächst ein Filterkriterium zusammen, dass aus dem Feldnamen, dem Vergleichsoperator (hier LIKE<\/b>) und dem Wert der Eigenschaft Text <\/b>des Such-Textfeldes besteht. Dieser Ausdruck wird dann der Eigenschaft Filter <\/b>zugewiesen.<\/p>\n Dies geschieht jedoch nur, wenn das Suchfeld einen Vergleichswert enthält. Es kann jedoch auch sein, dass der Benutzer ein Zeichen eingibt und dieses wieder löscht. In diesem Fall gäbe es keinen Suchbegriff mehr.<\/p>\n Das Filterkriterium würde zwar wegen des enthaltenen Sternchens (*<\/b>) dennoch wie erwartet alle Datensätze zurückliefern, aber gegebenenfalls fällt das statisch eingebaute Sternchen später einmal weg – und dann liefert das Filterkriterium schlicht keinen Datensatz mehr zurück. Also prüft die Prozedur zunächst die Länge des Vergleichswerts:<\/p>\n Warum verwenden wir hier die Text-Eigenschaft und nicht den Wert des Suchfeldes Weil der Wert erst nach dem Abschließen der Eingabe etwa durch Drücken der Eingabetaste oder Verlassen des Suchfeldes auf die aktuell im Textfeld enthaltene Zeichenkette eingestellt wird. Die Text<\/b>-Eigenschaft hingegen liefert immer den aktuell angezeigten Text.<\/p>\n Hakelige Eingabe<\/b><\/p>\n Je nach der aktuellen Einstellungen der Option Cursorverhalten bei Eintritt in Feld <\/b>kann es vorkommen, dass der komplette Suchbegriff markiert wird oder die Einfügemarke wieder zum Beginn des eingegebenen Textes verschoben wird.<\/p>\n Obwohl es nicht so aussieht, verliert das Textfeld zur Eingabe des Suchbegriffes kurz den Fokus, während der Filter eingestellt wird – und wenn das Textfeld den Fokus zurückerhält, stellt Access den Cursor so ein, wie es in den Access-Optionen vorgesehen ist.<\/p>\n Unter Access 2010 finden Sie diese Einstellung etwa unter Backstage|Access-Optionen <\/b>und dort im Bereich Clienteinstellungen <\/b>(s. Bild 3).<\/p>\n Bild 3: Einstellung für das Cursorverhalten<\/span><\/b><\/p>\n Dummerweise können Sie sich nicht darauf verlassen, dass der Benutzer die von Ihnen gewünschte Einstellung verwendet – und Sie sollten diese auch nicht selbstständig anpassen, denn dann findet der Benutzer möglicherweise an anderer Stelle nicht mehr das gewohnte Verhalten vor.<\/p>\n Also fügen Sie ein paar Zeilen zur Suchfunktion hinzu, die dafür sorgen, dass sich diese die Cursorposition nach der Eingabe eines Zeichens merkt und diese unabhängig von der aktuellen Einstellung der Option Cursorverhalten bei Eintritt in Feld <\/b>wiederherstellt.<\/p>\n Außerdem verlor das Textfeld den Fokus, wenn es als Text nur noch eine leere Zeichenkette anzeigte – nach dem Zurücksetzen des Filters sollte man also noch den Fokus auf das Suchfeld zurücksetzen:<\/p>\n Diese Prozedur lässt sich nicht nur für Formulare in der Endlosansicht, sondern auch für solche in der Formularansicht einsetzen.<\/p>\n Schnellsuche in Datenblättern<\/p>\n In der Datenblattansicht sind natürlich kleine änderungen nötig. Formulare in der Datenblattansicht zeigen nur die Daten an und keine weiteren Steuerelemente wie Suchfelder oder OK-Schaltflächen.<\/p>\n Dazu müssen Sie ein Hauptformular anlegen und darin zumindest das Suchfeld und das Unterformular in der Datenblattansicht anzeigen. Dies sieht im Entwurf wie in Bild 4 aus (siehe frmSchnellsucheDatenblatt <\/b>und sfmSchnellsucheDatenblatt<\/b>).<\/p>\n Bild 4: Entwurf des Suchformulars für Datenblätter<\/span><\/b><\/p>\n Die Prozedur, die durch das Eingeben eines Zeichens in das Textfeld txtSuche <\/b>ausgelöst wird, sieht in diesem Fall wie in Listing 1<\/a><\/span> aus. Der erste wesentliche Unterschied ist der geänderte Bezug auf das zu filternde Formular (hier Me!sfmSchnellsucheDatenblatt.Form<\/b>). Der zweite ist, dass das Suchfeld beim Einstellen des Filters nicht den Fokus verliert und so einige Zeilen eingespart werden können.<\/p>\n Listing 1: Code zum Aktualisieren des Filters auf Basis des Suchbegriffs<\/p>\n Variationen der Schnellsuche<\/b><\/p>\n Nun möchten Sie eine Suche wie diese gegebenenfalls in mehreren Formularen einsetzen und dabei auch noch Varianten einbauen. Diese könnten so aussehen:<\/p>\n Beim Einsatz in mehreren Formularen einer Anwendungen müssten Sie gleichartig aufgebauten Code mehrfach verwenden. Günstiger wäre es, wenn man die benötigten Funktionen an einem einzigen Ort unterbringen könnte und im jeweiligen Formular nur noch die Such-Steuerelemente unterbringt und die Einstellungen für die gewünschte Suchfunktion vornimmt.<\/p>\n Einsatz der Schnellsuche<\/b><\/p>\n Bevor wir auf die technischen Details der nachfolgend beschriebenen Lösung eingehen, schauen wir uns die Funktionsweise und die Konfiguration an. Dabei gibt es die folgenden Varianten:<\/p>\n Bei allen Konfigurationen sind die folgenden Schritte nötig:<\/p>\n Dim objFastsearch As clsFastSearch<\/p>\n Ein Suchfeld filtert ein Feld, Variante I<\/b><\/p>\n Dieses Beispiel finden Sie im Formular frmEinSuchfeldEinErgebnisfeldOder<\/b>. Die Eingabe von Text in das Textfeld txtSuche<\/b> soll die im Endlosformular angezeigten Datensätze nach dem Artikelnamen filtern. Dazu fügen Sie die folgenden Prozedur für das Ereignis Beim Laden <\/b>des Formulars hinzu:<\/p>\n <\/p>\n Die Prozedur erzeugt zunächst eine Instanz der Klasse clsFastSearch<\/b>. Dann weist sie ihren Eigenschaften einige Werte zu:<\/p>\n Ein Suchfeld filtert ein Feld, Variante I<\/b><\/p>\n Bei der ersten Variante haben Sie den Verweis auf das Suchfeld sowie den Namen des zu durchsuchenden Feldnamen mit separaten Methoden übergeben. Sie können auch beide Werte mit der Methode AddSearchField <\/b>übergeben. Dazu tragen Sie den Namen des zu durchsuchenden Feldes einfach als zweiten Parameter dieser Methode ein:<\/p>\n Dieses Beispiel finden Sie im Formular frmEinSuchfeldEinErgebnisfeldUnd<\/b>.<\/p>\n Ein Suchfeld filtert mehrere Felder<\/b><\/p>\n Wenn Sie ein Suchfeld verwenden möchten, um damit mehrerer Felder zu filtern, können Sie dies mit der Konfiguration aus dem folgenden Listing erledigen:<\/p>\n Hier werden die ersten drei Eigenschaften wie in den vorherigen Beispielen eingestellt. Allerdings folgen dann gleich zwei Aufrufe der Methode AddResultField<\/b>. Im Beispielformular frmEinSuchfeldMehrereErgebnisfelderOder <\/b>können Sie so sowohl die ersten Buchstaben eines Artikels als auch die ersten Ziffern eines Preises eingeben.<\/p>\n Mehrere Suchfelder filtern je ein Feld<\/b><\/p>\n Schließlich fehlt noch die Möglichkeit, mehrere Suchfelder zu verwenden, wobei jedes Suchfeld genau ein Feld der Datenherkunft der zu filternden Daten durchsucht. Dieses Beispiel finden Sie im Formular frmEinSuchfeldMehrereErgebnisfelderOder<\/b>. Der Code sieht wie folgt aus:<\/p>\n Hier wurde zusätzlich noch eine Schaltfläche namens cmdZuruecksetzen <\/b>hinzugefügt. Wenn Sie diese der Eigenschaft ClearButton<\/b> hinzufügen, können Sie damit die bisherigen Eingaben in die Suchfelder löschen und den Filter zurücksetzen. Sie brauchen dazu keinen weiteren Code einzugeben. Das Formular sieht wie in Bild 5 aus.<\/p>\n Bild 5: Formular mit zwei Suchfeldern und einer Zurücksetzen-Schaltfläche<\/span><\/b><\/p>\n Suche im Unterformular<\/b><\/p>\n Wenn Sie die oben beschriebenen Lösungen in einer Kombination aus Haupt- und Unterformular einsetzen möchten, legen Sie für das Beim Laden<\/b>-Ereignis des Hauptformular die folgende Prozedur an:<\/p>\n Ein Beispiel hierfür finden Sie in den beiden Formularen frmBeispielUnterformular <\/b>und sfmBeispielUnterformular<\/b>.<\/p>\n Programmierung der Lösung<\/b><\/p>\n Nachdem Sie nun wissen, wie Sie die Lösung in eigene Anwendungen einbauen, möchten Sie vielleicht noch erfahren, wie diese im Detail funktioniert. Auf diese Weise können Sie gegebenenfalls eigene Anpassungen vornehmen. Für jedes Formular erstellen Sie eine Instanz der Klasse clsFastSearch<\/b>. Jede Instanz dieser Klasse kann eine oder mehrere Instanzen der Klasse clsFastSearchField <\/b>erzeugen, wobei diese die einzelnen Suchfelder repräsentieren.<\/p>\n Zu filterndes Formular festlegen<\/b><\/p>\n Der Instanz der Klasse clsFastSearch <\/b>übergibt das aufrufende Formular zunächst einen Verweis auf das Formular, das die zu filternden Daten enthält. Diese werden in dieser Variablen gespeichert:<\/p>\n Den Verweis auf das Formular nimmt die folgende Property Set<\/b>-Methode entgegen und speichert ihn in der Variablen m_Resultform<\/b>:<\/p>\n Suchfelder mit Funktion versehen<\/p>\n Das beziehungsweise die Suchfelder werden über die Methode AddSearchField <\/b>an die Klasse clsFastSearch <\/b>übergeben.<\/p>\n Diese Methode (s. Listing 2<\/a><\/span>) erwartet einen Verweis auf ein Textfeld und optional den Namen des Feldes, das nach dem in das Suchfeld eingegebenen Wert gefiltert werden soll. Sie erstellt dann eine neue Instanz des Objekts clsFastSearchField <\/b>– einer Klasse, welche die Eigenschaften eines Such-Textfelds speichert und die Funktionalität bereitstellt (mehr dazu weiter unten).<\/p>\n Listing 2: Suchfeld zur Klasse clsFastSearch hinzufügen<\/p>\n Das Objekt objFastSearchField <\/b>bekommt folgende Informationen geliefert: einen Verweis auf das instanzierende Objekt, also objFastSearch<\/b>, einen Verweis auf das Textfeld und gegebenenfalls den Namen des zu durchsuchenden Feldes der Datenherkunft. Nach dem Erstellen und Füllen des Objekts wird dieses in der Collection colSearchfields <\/b>gespeichert, die zuvor wie folgt deklariert wird:<\/p>\n Diese und eine weitere, weiter unten vorgestellte Collection werden übrigens beim Initialisieren eines Objekts auf Basis der Klasse clsFastSearch <\/b>erzeugt:<\/p>\n Zu durchsuchende Felder speichern<\/b><\/p>\n Die Namen der zu durchsuchenden Felder werden durch die Prozedur AddResultField <\/b>entgegengenommen: <\/p>\n Dort werden sie gleich als neuer Eintrag der Collection colResultfield <\/b>gespeichert, deren Deklaration so aussieht:<\/p>\n Suchfelder leeren und Filter aufheben<\/b><\/p>\n Bevor wir zu den interessanten Elementen kommen, schauen wir uns noch schnell an, wie eine eventuell vorhandene Schaltfläche zum Leeren der Suchfelder und zum Zurücksetzen des Filters mit Leben gefüllt wird. Zunächst wird eine Objektvariable mit dem Datentyp CommandButton <\/b>erzeugt, der mit dem Schlüsselwort WithEvents <\/b>deklariert ist – sprich: Sie können in dieser Klasse Ereignisprozeduren für dieses Objekt festlegen:<\/p>\n Der Verweis auf die betroffene Schaltfläche wird über die Property Set<\/b>-Prozedur Clearbutton <\/b>entgegengenommen. Diese speichert den Verweis in m_Clearbutton und legt fest, dass in dieser Klasse nach einer Ereignisprozedur OnClick <\/b>für diese Schaltfläche gesucht werden soll, wenn diese angeklickt wird:<\/p>\n Diese Prozedur sieht schließlich so aus:<\/p>\n Sie durchläuft alle Einträge der Collection colSearchfields<\/b>, die jeweils einen Verweis auf die Objekte auf Basis der Klasse clsFastSearchField <\/b>enthalten, welche die Suchfelder repräsentieren und deren Funktion bereitstellen. Unter anderem liefert diese Klasse eine Methode namens Clear<\/b>, die – um dies vorwegzunehmen – das jeweilige Suchfeld leert.<\/p>\n Danach wird der Filter des zu durchsuchenden Formulars geleert und deaktiviert. Schließlich landet der Fokus wieder im ersten Suchfeld der Collection.<\/p>\n Die Klasse clsFastSearchField<\/b><\/p>\n Ein Objekt auf Basis der zweiten Klasse clsFastSearchField <\/b>repräsentiert, wie bereits erwähnt, jeweils ein Suchfeld.<\/p>\n Diese Klasse speichert in zunächst einmal einige Verweise und Daten:<\/p>\n Dim WithEvents m_txt As TextBox<\/p>\n Dim m_Resultfield As String<\/p>\n Dim m_FastSearch As clsFastSearch<\/p>\n Außerdem wird noch eine Variable benötigt, um den im Such-Textfeld eingegebenen Text temporär zu speichern:<\/p>\n Zuweisen der Verweise und Werte<\/b><\/p>\n Das Zuweisen des Such-Textfeldes geschieht über die Property Set<\/b>-Prozedur Searchfield<\/b>.<\/p>\n Diese Prozedur nimmt den Verweis entgegen und legt fest, dass die Klasse beim ändern des Inhalts des Textfeldes eine Ereignisprozedur ausführen kann:<\/p>\n Später benötigen wir Zugriff auf das in der Klasse referenzierte Textfeld. Den verschafft uns die folgende Property Get<\/b>-Prozedur:<\/p>\n Der Name des zu durchsuchenden Feldes soll ebenfalls in der Klasse gespeichert werden und später verfügbar sein. Dafür sorgen die folgenden beiden Prozeduren:<\/p>\n Später wird es eine Interaktion zwischen der Klasse clsFastSearch <\/b>und den in der Collection colFastSearchFields <\/b>gespeicherten Instanzen der Klasse clsFastSearchField <\/b>geben.<\/p>\n Damit diese sich mit dem Objekt auf Basis von clsFastSearch <\/b>verständigen können, erhält clsFastSearchField <\/b>eine Referenz darauf. Dies geschieht wiederum über eine Property Set<\/b>-Prozedur:<\/p>\n In diesem Zusammenhang soll auch der aktuelle Text des jeweils referenzierten Textfeldes verfügbar gemacht werden.<\/p>\n Dies geschieht über die folgende Property Get<\/b>-Prozedur:<\/p>\n Reagieren auf die Eingabe von Suchbegriffen<\/b><\/p>\n Nun folgt der interessante Teil: Was geschieht, wenn der Benutzer in eines der Such-Textfelder, die jeweils in einem Objekt der Klasse clsFastSearchField <\/b>gespeichert sind, einen Buchstaben eingibt Dies löst die Ereignisprozedur Bei änderung <\/b>aus, die in der Klasse clsFastSearchField<\/b> wie folgt implementiert wird:<\/p>\n Diese Prozedur schreibt zunächst den aktuell im Such-Textfeld enthaltenen Suchbegriff in die Variable m_Text<\/b>. Dann ruft sie die Methode Search <\/b>des Objekts auf Basis der Klasse clsFastSearch <\/b>auf und übergibt einen Verweis auf sich selbst als Parameter.<\/p>\n Diese Methode führt schließlich den eigentlichen Suchvorgang durch.<\/p>\n Bevor wir uns diese ansehen, werfen wir noch einen Blick auf die Methode Clear<\/b>, die wir bereits oben angesprochen haben.<\/p>\n Sie leert lediglich den Inhalt des in diesem Objekt referenzierten Textfeldes, wenn der Benutzer eine eventuell vorhandene Schaltfläche zum Leeren der Suchfelder angegeben hat:<\/p>\n Der Suchvorgang<\/b><\/p>\n Die Suche selbst läuft in zwei Prozeduren der Klasse clsFastSearch <\/b>ab. Die erste ist die oben erwähnte Prozedur Search<\/b>, die durch eine der Objekte auf Basis der Klasse clsFastSearchField <\/b>aufgerufen wird (s. Listing 3<\/a><\/span>).<\/p>\n Listing 3: Diese Prozedur führt den eigentlichen Suchvorgang durch.<\/p>\n Diese Prozedur holt sich zunächst einen Verweis auf das in dem aufrufenden Objekt referenzierte Textfeld und speichert diesen in der Variablen txtSearchfield<\/b>. Damit der Cursor nach dem Filtern wieder an der gleichen Position landet wie vor dem Filtern, wird dessen Position in der Variablen intStart <\/b>gespeichert. Dann setzt die Funktion GetFilterstring<\/b>, die gleich im Anschluss beschrieben wird, den Suchfilter zusammen – dies ist die Hauptarbeit während des Filtervorgangs.<\/p>\n Wenn der Filterausdruck eine Länge größer 0 <\/b>hat, wird die Filter<\/b>-Eigenschaft des Formulars mit den zu durchsuchenden Daten auf diesen eingestellt. Außerdem werden der Filter mit der Eigenschaft FilterOn <\/b>aktiviert und der Cursor im Textfeld auf die zuvor gespeicherte Position verschoben.<\/p>\n Fall der Filterausdruck leer ist, wird die Filter<\/b>-Eigenschaft geleert, der Filter mit FilterOn = False <\/b>deaktiviert und der Fokus zurück auf das Such-Textfeld gesetzt.<\/p>\n Filterausdruck zusammenstellen<\/b><\/p>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_04\/SchnelleSucheMitKlasse-web-images\/pic001.png\")
<\/p>\nPrivate Sub txtSuche_Change()\r\n Dim strFilter As String\r\n If Not Len(Me!txtSuche.Text) = 0 Then\r\n strFilter = "Artikelname LIKE ''" & Me!txtSuche.Text & "*''"\r\n Me.Filter = strFilter\r\n Me.FilterOn = True\r\n Else\r\n Me.Filter = ""\r\n Me.FilterOn = False\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_04\/SchnelleSucheMitKlasse-web-images\/pic003.png\")
<\/p>\nPrivate Sub txtSuche_Change()\r\n Dim strFilter As String\r\n Dim intStart As Integer\r\n intStart = Me!txtSuche.SelStart\r\n If Not Len(Me!txtSuche.Text) = 0 Then\r\n strFilter = "Artikelname LIKE ''" & Me!txtSuche.Text & "*''"\r\n Me.Filter = strFilter\r\n Me.FilterOn = True\r\n Me!txtSuche.SelStart = intStart\r\n Else\r\n Me.Filter = ""\r\n Me.FilterOn = False\r\n Me!txtSuche.SetFocus\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2011_04\/SchnelleSucheMitKlasse-web-images\/pic004.png\")
<\/p>\nPrivate Sub txtSuche_Change()\r\n Dim strFilter As String\r\n If Not Len(Me!txtSuche.Text) = 0 Then\r\n strFilter = "Artikelname LIKE ''" & Me!txtSuche.Text & "*''"\r\n Me!sfmSchnellsucheDatenblatt.Form.Filter = strFilter\r\n Me!sfmSchnellsucheDatenblatt.Form.FilterOn = True\r\n Else\r\n Me!sfmSchnellsucheDatenblatt.Form.Filter = ""\r\n Me!sfmSchnellsucheDatenblatt.Form.FilterOn = False\r\n End If\r\nEnd Sub<\/pre>\n
\n
\n
\n
\n
Private Sub Form_Load()\r\n Set objFastsearch = New clsFastSearch\r\n With objFastsearch\r\n Set .Resultform = Me\r\n .AddSearchField Me!txtSuche\r\n .AddResultField "Artikelname"\r\n End With\r\nEnd Sub<\/pre>\n
\n
Private Sub Form_Load()\r\n Set objFastsearch = New clsFastSearch\r\n With objFastsearch\r\n Set .Resultform = Me\r\n .AddSearchField Me!txtSuche, "Artikelname"\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub Form_Load()\r\n Set objFastsearch = New clsFastSearch\r\n With objFastsearch\r\n Set .Resultform = Me\r\n .AddSearchField Me!txtSuche\r\n .AddResultField "Artikelname"\r\n .AddResultField "Einzelpreis"\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub Form_Load()\r\n Set objFastsearch = New clsFastSearch\r\n With objFastsearch\r\n Set .Resultform = Me\r\n .AddSearchField Me!txtSuche, "Artikelname"\r\n .AddSearchField Me!txtEinzelpreis, "Einzelpreis"\r\n Set .Clearbutton = Me!cmdZuruecksetzen\r\n End With\r\nEnd Sub<\/pre>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2011_04\/SchnelleSucheMitKlasse-web-images\/pic005.png\")
<\/p>\nPrivate Sub Form_Load()\r\n Set objFastsearch = New clsFastSearch\r\n With objFastsearch\r\n Set .Resultform =\r\n Me!sfmBeispielUnterformular.Form\r\n .AddSearchField Me!txtSuche\r\n .AddResultField "Artikelname"\r\n End With\r\nEnd Sub<\/pre>\n
Dim m_Resultform As Form<\/pre>\n
Public Property Set Resultform(frm As Form)\r\n Set m_Resultform = frm\r\nEnd Property<\/pre>\n
Public Sub AddSearchField(txtSearchfield As TextBox, Optional strResultfield As String)\r\n Dim objFastsearchfield As clsFastSearchField\r\n Set objFastsearchfield = New clsFastSearchField\r\n With objFastsearchfield\r\n Set .FastSearch = Me\r\n Set .Searchfield = txtSearchfield\r\n .Resultfield = strResultfield\r\n End With\r\n colSearchfields.Add objFastsearchfield\r\nEnd Sub<\/pre>\n
Dim colSearchfields As Collection<\/pre>\n
Private Sub Class_Initialize()\r\n Set colSearchfields = New Collection\r\n Set colResultfields = New Collection\r\nEnd Sub<\/pre>\n
Public Sub AddResultField(str As String)\r\n colResultfields.Add str\r\nEnd Sub<\/pre>\n
Dim colResultfields As Collection<\/pre>\n
Dim WithEvents m_Clearbutton As CommandButton<\/pre>\n
Public Property Set Clearbutton(cmd As CommandButton)\r\n Set m_Clearbutton = cmd\r\n With m_Clearbutton\r\n .OnClick = "[Event Procedure]"\r\n End With\r\nEnd Property<\/pre>\n
Private Sub m_Clearbutton_Click()\r\n Dim objFastsearchfield As clsFastSearchField\r\n Dim i As Integer\r\n For i = 1 To colSearchfields.Count\r\n Set objFastsearchfield = colSearchfields.Item(i)\r\n objFastsearchfield.Clear\r\n Next i\r\n m_Resultform.Filter = ""\r\n m_Resultform.FilterOn = False\r\n colSearchfields.Item(1).Searchfield.SetFocus\r\nEnd Sub<\/pre>\n
\n
\n
\n
Dim m_Text As String<\/pre>\n
Public Property Set Searchfield(txt As TextBox)\r\n Set m_txt = txt\r\n With m_txt\r\n .OnChange = "[Event Procedure]"\r\n End With\r\nEnd Property<\/pre>\n
Public Property Get Searchfield() As TextBox\r\n Set Searchfield = m_txt\r\nEnd Property<\/pre>\n
Public Property Let Resultfield(str As String)\r\n m_Resultfield = str\r\nEnd Property\r\nPublic Property Get Resultfield() As String\r\n Resultfield = m_Resultfield\r\nEnd Property<\/pre>\n
Public Property Set FastSearch(objFastsearch As clsFastSearch)\r\n Set m_FastSearch = objFastsearch\r\nEnd Property<\/pre>\n
Public Property Get CurrentText() As String\r\n CurrentText = m_Text\r\nEnd Property<\/pre>\n
Private Sub m_txt_Change()\r\n m_Text = m_txt.Text\r\n m_FastSearch.Search Me\r\nEnd Sub<\/pre>\n
Public Sub Clear()\r\n m_txt.Value = ""\r\nEnd Sub<\/pre>\n
Public Sub Search(objFastsearchfield As clsFastSearchField)\r\n Dim strFilter As String\r\n Dim intStart As Integer\r\n Dim txtSearchfield As TextBox\r\n Set txtSearchfield = objFastsearchfield.Searchfield\r\n intStart = txtSearchfield.SelStart\r\n strFilter = GetFilterstring\r\n If Not Len(strFilter) = 0 Then\r\n m_Resultform.Filter = strFilter\r\n m_Resultform.FilterOn = True\r\n txtSearchfield.SelStart = intStart\r\n Else\r\n m_Resultform.Filter = ""\r\n m_Resultform.FilterOn = False\r\n txtSearchfield.SetFocus\r\n End If\r\nEnd Sub<\/pre>\n