{"id":55000414,"date":"2006-12-01T00:00:00","date_gmt":"2021-02-11T21:06:39","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=414"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Suchen_in_Textfeldern","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Suchen_in_Textfeldern\/","title":{"rendered":"Suchen in Textfeldern"},"content":{"rendered":"

\"\"<\/p>\n

Das Suchen nach Texten in Memofeldern funktioniert in Access tadellos – wenn auch nicht besonders schnell, da der Inhalt von Memofeldern nicht indiziert werden kann. Hat man aber einmal den gewünschten Datensatz gefunden, steht man vor dem nächsten Problem: Wie kommt man nun zur passenden Textstelle Dies ist ganz einfach: Sie schauen sich die Lösung in diesem Beitrag an.<\/b><\/p>\n

Manchmal sucht man auch gar nicht erst nach dem Datensatz, dessen Memofeld den passenden Text enthält, weil man genau weiß, wo sich dieser befindet. Dies ist etwa bei der Vertragsverwaltung aus [1] der Fall, bei der man den passenden Vertragsdatensatz schon herausgesucht hat und nur noch eine bestimmte Textstelle im Vertragstext sucht. <\/p>\n

Da das dortige Formular zur Erfassung und Bearbeitung von Verträgen bereits mit ausreichend Steuerelementen gesegnet ist, wird die Anzeige der Vertragstexte in ein eigenes Formular ausgelagert – etwa in jenes aus Bild 1.<\/p>\n

\"pic001.tif\"<\/p>\n

Bild 1: Das Formular zum Durchsuchen von Texten<\/span><\/b><\/p>\n

Ein solches Formular sollte ein Eingabefeld zum Erfassen des Suchbegriffs sowie eine Schaltfläche zum Starten des Suchvorgangs sowie eine Möglichkeit zum Fortsetzen des Suchvorgangs nach der ersten gefundenen Textstelle besitzen.<\/p>\n

Im Beispiel erledigt eine Schaltfläche mit der Beschriftung Weitersuchen <\/b>diese Aufgabe.<\/p>\n

Bevor es zur eigentlichen Suche geht, soll das Formular mit den Steuerelementen sowie ein wenig Komfort ausgestattet werden: Wenn Sie in diesem Formular nicht in langen Texten suchen wollten, brauchten Sie kein solches Formular, also soll der Benutzer auch eine Menge Text sehen können. Möglichst so viel, wie auf seinen Monitor passt oder wie er gerade sehen möchte. Das bedeutet, dass der Benutzer das Formular sowie das enthaltene Textfeld anpassen können soll.<\/p>\n

Da die anderen Steuerelemente nicht von der Größenänderung betroffen sind, packen Sie diese am besten in den Kopfbereich des Formulars und das Textfeld in den Detailbereich, sodass die Entwurfsansicht wie in Bild 2 aussieht.<\/p>\n

\"pic002.tif\"<\/p>\n

Bild 2: Die Entwurfsansicht des Suchformulars<\/span><\/b><\/p>\n

Fehlt nur noch ein kleine Routine, die beim ändern der Größe des Formulars das Textfeld anpasst. Diese finden Sie in Listing 1: Die Routine verwendet die Eigenschaft InsideHeight <\/b>des Formulars, um dessen Gesamthöhe zu ermitteln, und zieht die Höhe des Kopfbereichs ab.<\/p>\n

Listing 1: Diese Routine passt die Größe des Textfeldes dem übergeordneten Formular an.<\/p>\n

Private Sub Form_Resize()\r\n     If Me.InsideHeight - Me.Formularkopf.Height > 150 Then\r\n         Me!txtInhalt.Height = _
 Me.InsideHeight - Me.Formularkopf.Height - 150\r\n     End If\r\n     Me!txtInhalt.Width = Me.Form.InsideWidth - 150\r\nEnd Sub<\/pre>\n
Ist dieser größer als ein bestimmter Wert, der vom Abstand des Textfeldes von den Formularrändern abhängt, passt die Routine die Höhe des Textfeldes um eben die um den Rand reduzierte Höhe an.<\/p>\n
Bei der Breite ist dies nicht nötig: Hier muss mit Ausnahme des Abstands kein weiterer Bereich links oder rechts vom Textfeld berücksichtigt werden, sodass die Textfeldbreite der um den Wert 150 <\/b>verminderten Formularbreite entspricht.<\/p>\n
Jedesmal, wenn der Benutzer die Größe des Formulars verändert, ruft er damit diese Routine auf und passt die Größe des Textfeldes damit automatisch an. Wenn Sie selbst ein ähnliches Formular erstellen, müssen Sie noch prüfen, wie groß die vorhandenen Abstände zwischen Textfeld und oberem und unterem Rand sowie linkem und rechtem Rand sind, und die Summen der jeweiligen Paare von Höhe und Breite subtrahieren. Die Abstände bekommen Sie am einfachsten heraus, indem Sie etwa in der Ereignisprozedur Beim öffnen <\/b>folgende Zeilen einfügen (jeweils in einer Zeile):<\/p>\n
Debug.Print \"Seitlicher Rand: \" 
& Me.InsideWidth - Me.txtInhalt.Width\r\nDebug.Print \"Vertikaler Rand: \" 
& Me.InsideHeight - Me.Formularkopf.Height - Me!txtInhalt.Height<\/pre>\n
<\/p>\n
Falls Sie auch den Fußbereich des Formulars verwenden möchten, müssen Sie natürlich auch noch dessen Höhe subtrahieren.<\/p>\n
Startvorbereitungen<\/b><\/p>\n
Beim öffnen des Formulars sollen drei Dinge geschehen: Das Textfeld soll mit dem gewünschten Text gefüllt werden, es soll nicht der gesamte Inhalt des Textfeldes markiert sein (das kann bei bestimmten Einstellungen vorkommen – etwa, wenn der Benutzer die Option Cursorverhalten bei Eintritt in Feld <\/b>auf Ganzes Feld markieren <\/b>eingestellt hat) und die Schaltfläche cmdWeitersuchen <\/b>soll deaktiviert sein – ihr Auftritt kommt später.<\/p>\n
All dies erledigt die Routine aus Listing 2: Zunächst weist sie dem Textfeld den Inhalt der Funktion OpenArgs <\/b>zu. Diese liefert eine per DoCmd.OpenForm <\/b>übergebene Zeichenkette. Ein passender Aufruf sähe etwa so aus (hier mit dem Inhalt des Felds Textinhalt <\/b>des ersten Datensatzes der Tabelle tblTexte<\/b>, siehe auch Beispieldatenbank):<\/p>\n
DoCmd.OpenForm 
\"frmInhalt\", 
OpenArgs:=
DLookup(\"Textinhalt\",
\"tblTexte\")<\/pre>\n
Dann legt sie den Fokus auf das Textfeld, um anschließend die Einfügemarke durch Setzen der Eigenschaft SelStart <\/b>auf 0 <\/b>an den Anfang des Textfeldes zu verschieben. Schließlich deaktiviert die Routine die Weitersuchen<\/b>-Schaltfläche wie in Bild 3.<\/p>\n
\"pic003.tif\"<\/p>\n
Bild 3: Ein gefundener und markierter Begriff im Textfeld des Suchformulars<\/span><\/b><\/p>\n
Listing 2: Einstellungen beim öffnen des Formulars<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n     Me!txtInhalt = Me.OpenArgs\r\n     Me!txtInhalt.SetFocus\r\n     Me!txtInhalt.SelStart = 0\r\n     Me!cmdWeitersuchen.Enabled = False\r\nEnd Sub<\/pre>\n
Suchen und markieren<\/b><\/p>\n
Der interessante Aspekt der nachfolgend beschriebenen Codezeilen ist nicht, einen gewünschten Suchausdruck in einem in einem Textfeld untergebrachten Text zu finden (die Funktion InStr <\/b>sollte bekannt sein), sondern diesen zu markieren.<\/p>\n
Die Vorgehensweise zum Suchen und Markieren des ersten Auftretens des Suchbegriffs sieht so aus (s. Listing 3):<\/p>\n