{"id":55000776,"date":"2011-06-01T00:00:00","date_gmt":"2020-05-22T22:02:59","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=776"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Farbiges_Suchergebnis_im_Datenblatt","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Farbiges_Suchergebnis_im_Datenblatt\/","title":{"rendered":"Farbiges Suchergebnis im Datenblatt"},"content":{"rendered":"

\"\"<\/p>\n

Nicht nur für Datenblätter, sondern auch für die Endlosansicht ist diese Lösung interessant: Sie erfahren hier, wie Sie die gesuchten Elemente in einer Listenansicht farbig hervorheben und somit das Suchergebnis sehen, ohne die übrigen Einträge herausfiltern zu müssen. Das alles funktioniert dank der bedingten Formatierung von Access.<\/b><\/p>\n

Wäre es nicht schön, wenn Sie das Suchergebnis in der Datenblattansicht oder in der Endlosansicht gleich farbig hervorheben könnten, statt nur alle gefundenen Einträge anzuzeigen und die übrigen auszublenden (s. Bild 1) Sicher hat letztere Variante eine Daseinsberechtigung, aber es gibt sicher Anwendungsfälle, in denen Sie einfach mal die gesuchten Elemente neben den übrigen farbig hervorheben möchten.<\/p>\n

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

Bild 1: Farbig markiertes Suchergebnis<\/span><\/b><\/p>\n

Beispielformular<\/b><\/p>\n

Um das Beispiel aus der Abbildung zu reproduzieren, brauchen Sie zunächst ein Haupt- und ein Unterformular, wobei das Unterformular sfmArtikel <\/b>heißt an die Tabelle mit den gewünschten Daten gebunden ist (in diesem Fall an die Tabelle tblArtikel <\/b>der Südsturm-Datenbank).<\/p>\n

Fügen Sie alle Felder zur Entwurfsansicht hinzu und stellen Sie die Standardansicht auf Datenblatt ein. Nun erstellen Sie das Hauptformular frmArtikel <\/b>und fügen das Unterformular hinzu. Außerdem benötigen Sie ein Feld zur Eingabe des gesuchten Ausdrucks.<\/p>\n

Dieses Textfeld benennen Sie txtArtikelsuche<\/b>. Legen Sie außerdem eine Ereignisprozedur für dieses Steuerelement an, das durch das Ereignis Bei änderung <\/b>ausgelöst wird (s. Bild 2).<\/p>\n

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

Bild 2: Dieses Ereignis sorgt für das Markieren des Suchergebnisses<\/span><\/b><\/p>\n

Erreichen wollen wir eine bedingte Formatierung, wie wir sie auch über den entsprechenden Dialog des Steuerelements einstellen können (s. Bild 3, hier unter Access 2010<\/span>). Es soll also ein Ausdruck eingestellt werden, für den der Hintergrund des Steuerelements in diesem Fall orange eingefärbt werden soll.<\/p>\n

\"pic003.png\"<\/p>\n

Bild 3: So sollen die Eigenschaften der bedingten Formatierung aussehen<\/span><\/b><\/p>\n

Programmierung<\/b><\/p>\n

Die eigentliche Arbeit erledigt dabei die Prozedur aus Listing 1<\/a><\/span>. Sie deklariert zunächst drei Objekte:<\/p>\n

Listing 1: Dynamisches Anpassen der bedingten Formatierung<\/p>\n

Private Sub txtArtikelsuche_Change()\r\n    Dim objFormatCondition As FormatCondition\r\n    Dim txt As TextBox\r\n    Dim str As String\r\n    str = Me!txtArtikelsuche.Text\r\n    Set txt = Me!sfmArtikel.Form!Artikelname\r\n    If txt.FormatConditions.Count > 0 Then txt.FormatConditions(0).Delete\r\n    If Not Len(str) = 0 Then\r\n        Set objFormatCondition = txt.FormatConditions.Add(acExpression, acEqual, _\r\n        "[Artikelname] Like ''" & str & "''")\r\n        With objFormatCondition\r\n        .BackColor = 967423\r\n        End With\r\n    End If\r\n    End Sub<\/pre>\n