{"id":55000123,"date":"2003-10-01T00:00:00","date_gmt":"2020-05-06T15:17:31","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=123"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Knowledgebase_mit_Suchfunktion","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/","title":{"rendered":"Knowledgebase mit Suchfunktion"},"content":{"rendered":"

\"\"<\/p>\n

Christoph Spielmann, Düsseldorf<\/b><\/p>\n

Auch erfahrene Access-Entwickler müssen von Zeit zu Zeit passen, wenn knifflige Fragen zu beantworten oder Probleme zu lösen sind. Oft versucht man sich dann mit dem Satz „Ich hab“ da mal was gelesen …“ aus der Affäre zu ziehen (sofern das Gegenüber nicht mit der Frage „Was denn“ kontert). Hierbei soll Ihnen die Knowledge-Base (kurz „KB“) helfen, die Ihnen in dieser Musterlösung vorgestellt wird.<\/b><\/p>\n

Die Knowledge-Base besteht aus einer Ansammlung von Artikeln, die zusammen mit einem Titel, einem Text sowie mehreren Schlüsselwörtern gespeichert werden. Das besondere Augenmerk liegt hierbei in der Suchfunktion, die nicht nur die gefundenen Artikel auflistet, sondern zusätzlich auch den Textausschnitt mit dem gefundenen Text anzeigt.<\/p>\n\n\n\n\n\n\n\n\n
\n

Feldname<\/b><\/p>\n<\/td>\n

\n

Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n

\n

KBEintragID<\/p>\n<\/td>\n

\n

AutoWert-Primärschlüssel<\/p>\n<\/td>\n<\/tr>\n

\n

EintragstypID<\/p>\n<\/td>\n

\n

Typ des Eintrags (Text oder Programmcode)<\/p>\n<\/td>\n<\/tr>\n

\n

KategorieID<\/p>\n<\/td>\n

\n

Kategorie, unter der der Eintrag abgelegt ist (z. B. Access, API, Word …)<\/p>\n<\/td>\n<\/tr>\n

\n

Titel<\/p>\n<\/td>\n

\n

Titel des Artikels (Text)<\/p>\n<\/td>\n<\/tr>\n

\n

Text<\/p>\n<\/td>\n

\n

Artikeltext (Memo)<\/p>\n<\/td>\n<\/tr>\n

\n

Schlüsselwörter<\/p>\n<\/td>\n

\n

Auflistung von Schlüsselwörtern zum leichteren Auffinden eines Beitrags<\/p>\n<\/td>\n<\/tr>\n<\/table>\n

Tab. 1: Der Aufbau der Tabelle tblKBEinträge<\/b><\/p>\n

Die Datenstruktur besteht im Wesentlichen aus der Tabelle tblKBEinträge. Hier sind die einzelnen Artikel untergebracht. Sie finden die Struktur dieser Tabelle in Tab. 1.<\/p>\n

Bei den Feldern EintragstypID und KategorieID handelt es sich jeweils um Fremdschlüssel, die auf die beiden Tabellen tblEintragstypen und tblKategorien zeigen. Den Aufbau der beiden Tabellen entnehmen Sie dem ER-Diagramm (siehe Bild 1) oder der Beispieldatenbank.<\/p>\n

Um die spätere Anlage von Formularen zu vereinfachen, sind die beiden Fremdschlüssel als Nachschlagefelder konfiguriert. Hierbei sind die Eigenschaften aus Tab. 2 definiert.<\/p>\n\n\n\n\n\n\n\n\n\n\n\n
\n

Eigenschaft<\/b><\/p>\n<\/td>\n

\n

Einstellung<\/b><\/p>\n<\/td>\n<\/tr>\n

\n

Steuerelement anzeigen<\/p>\n<\/td>\n

\n

Kombinationsfeld<\/p>\n<\/td>\n<\/tr>\n

\n

Herkunftstyp<\/p>\n<\/td>\n

\n

Tabelle\/Abfrage<\/p>\n<\/td>\n<\/tr>\n

\n

Gebundene Spalte<\/p>\n<\/td>\n

\n

2<\/p>\n<\/td>\n<\/tr>\n

\n

Spaltenanzahl<\/p>\n<\/td>\n

\n

2<\/p>\n<\/td>\n<\/tr>\n

\n

Spaltenüberschriften<\/p>\n<\/td>\n

\n

Nein<\/p>\n<\/td>\n<\/tr>\n

\n

Spaltenbreiten<\/p>\n<\/td>\n

\n

5cm;0cm<\/p>\n<\/td>\n<\/tr>\n

\n

Zeilenanzahl<\/p>\n<\/td>\n

\n

16<\/p>\n<\/td>\n<\/tr>\n

\n

Listenbreite<\/p>\n<\/td>\n

\n

Automatisch<\/p>\n<\/td>\n<\/tr>\n

\n

Nur Listeneinträge<\/p>\n<\/td>\n

\n

Ja<\/p>\n<\/td>\n<\/tr>\n<\/table>\n

Tab. 2: Formulareigenschaften und deren Einstellung<\/b><\/p>\n

Die Datensatzherkunft des Feldes EintragstypID ist wie folgt eingestellt:<\/p>\n

SELECT Eintragstyp, EintragstypID FROM tblEintragstypen ORDER BY Eintragstyp;<\/pre>\n
Die Datensatzherkunft des Feldes KategorieID hat einen ähnlichen Aufbau:<\/p>\n
SELECT tblKategorien.Kategorie, tblKategorien.KategorieID FROM tblKategorienORDER BY tblKategorien.Kategorie;<\/pre>\n
Die beiden SQL-Anweisungen fragen jeweils das Text- und das Primärschlüsselfeld beider Nachschlagetabellen ab und sortieren es zudem nach dem Textfeld. Durch die Einstellung der Spaltenbreiten-Eigenschaft ist später nur das Textfeld sichtbar.<\/p>\n
Neben den drei bereits vorgestellten Tabellen enthält das Datenmodell noch eine vierte Tabelle namens tblSuchergebnis. Hier wird das Ergebnis eines Suchvorgangs abgelegt. Die genaue Funktion dieser Tabelle lernen Sie später noch kennen.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 1:  Das ER-Diagramm der Musterlösung<\/span><\/b><\/p>\n
Hinweis<\/h3>\n
Die Datenbank liegt in zwei Versionen für Access 97 (KB97.mdb) und für Access 2000\/XP (KB2000.mdb) auf der Heft-CD der vorliegenden Ausgabe von Access im Unternehmen vor. Die Version für Access 97 verwendet einige DAO-Anweisungen für den Datenzugriff, die im Beitrag nicht beschrieben werden. Im Beitrag finden Sie die Beschreibung der Vorgehensweise anhand des ADO-Objektmodells, das in Access 2000 und höher standardmäßig eingesetzt wird. <\/p>\n
Die Erfassung und Pflege einzelner Artikel erfolgt über das Formular frmKBEinträge (siehe Bild 2). Als Basis kann ein Standardformular dienen, das Sie mit Hilfe des Formularassistenten von Access anlegen:<\/p>\n
  • Wählen Sie den Befehl Formular des Menüpunkts Einfügen aus.<\/li>\n
  • Wählen Sie den Assistenten AutoFormular: Einspaltig.<\/li>\n
  • Selektieren Sie aus dem Kombinationsfeld die Tabelle tblKBEinträge.<\/li>\n
  • Bestätigen Sie mit OK. (<\/li>\n
    Durch die Definition der Nachschlagefelder sollte das neu erzeugte Formular für die beiden Felder EintragstypID und KategorieID bereits zwei Kombinationsfelder enthalten.<\/p>\n
    Speichern Sie das Formular unter dem Namen frmKBEinträge.<\/p>\n
    Zur Verbesserung des optischen Erscheinungsbildes entfernen Sie noch das Primärschlüsselfeld samt Bezeichnung.<\/p>\n
    Aus den Bezeichnungsfeldern der beiden Fremdschlüssel entfernen Sie außerdem das „ID“ und vergrößern das Textfeld Text.<\/p>\n
    Um von dem Formular einfach in das Suchformular zu wechseln, das später noch angelegt wird, schalten Sie in die Entwurfsansicht um und platzieren im oberen Bereich des Formulars eine neue Schaltfläche.<\/p>\n
    <\/p>\n
    Beschriften Sie diese mit dem Text Suchen… und geben Sie ihr den Namen btnSuchen.<\/b><\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 2:  Das Formular frmKBEinträge<\/span><\/b><\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 3:  Der Kopfbereich des Suchformulars<\/span><\/b><\/p>\n
    Private Sub RefreshUI()\r\n    Me.cmbEintragstypID.Enabled = _        Me.chkEintragstyp.Value\r\n    Me.cmbKategorieID.Enabled = Me.chkKategorie.Value\r\nEnd Sub<\/pre>\n
    Quellcode 1<\/b><\/p>\n
    Private Sub chkEintragstyp_Click()\r\n    RefreshUI\r\nEnd Sub\r\nPrivate Sub chkKategorie_Click()\r\n    RefreshUI\r\nEnd Sub\r\nPrivate Sub Form_Load()\r\n    RefreshUI\r\nEnd Sub<\/pre>\n
    Quellcode 2<\/b><\/p>\n
    Zur Anlage der Ereignisprozedur wählen Sie den Befehl Ereignis aus dem Kontextmenü der neu erstellten Schaltfläche. <\/p>\n
    Bestätigen Sie das folgende Dialogfenster mit einem Doppelklick auf Code-Generator und ergänzen Sie die Ereignisprozedur wie folgt:<\/p>\n
    DoCmd.OpenForm _    \"frmSuchen\", acNormal<\/pre>\n
    Diese Anweisung öffnet das im folgenden Abschnitt vorgestellte Formular frmSuchen.<\/p>\n
    Das Suchformular hat zwei Aufgaben: Zu einem ermöglicht es die Erfassung der Suchkriterien und zum anderen zeigt es das Suchergebnis an.<\/p>\n
    Zu diesem Zweck kommt ein Formular mit Endlosansicht zum Einsatz, bei dem zusätzlich der Formularkopf eingeblendet ist.<\/p>\n
    <\/p>\n
    Im Kopf sind die drei Felder Titel, Eintragstyp und Kategorie untergebracht, die zur Definition der Suchkriterien dienen (siehe Bild 3). Sie können diese Felder aus dem Formular frmKBEinträge kopieren und mit den Namen cmbEintragstypID, cmbKategorieID und txtSuchtext versehen. Zusätzlich sind vor den beiden Kombinationsfeldern zwei Kontrollkästchen untergebracht.<\/p>\n
    Hiermit kann der Benutzer später bestimmen, ob der ausgewählte Eintragstyp beziehungsweise die ausgewählte Kategorie bei der Suche berücksichtigt werden soll.<\/p>\n
    Private Sub btnSucheStarten_Click()\r\n    SuchergebnisAktualisieren\r\nEnd Sub<\/pre>\n
    Quellcode 3<\/b><\/p>\n
    If Me.txtSuchtext.Value = \"\" Then\r\n        MsgBox \"Bitte geben Sie einen Suchtext ein!\", vbInformation\r\n        Exit Sub\r\nEnd If<\/pre>\n
    Quellcode 4<\/b><\/p>\n
    SQL = \"SELECT * FROM tblKBEinträge\"\r\n    SQL = SQL + \" WHERE (Titel LIKE \" + Quote(\"%\" + Me.txtSuchtext + \"%\")\r\n    SQL = SQL + \" OR Text LIKE \" + Quote(\"%\" + Me.txtSuchtext + \"%\")\r\n    SQL = SQL + \" OR Schlüsselwörter LIKE \" + Quote(\"%\" + Me.txtSuchtext + \"%\") + \")\"<\/pre>\n
    Quellcode 5<\/b><\/p>\n
    Geben Sie den Kontrollkästchen die Namen chkEintragstyp bzw. chkKategorie. Als Standardwert-Eigenschaft tragen Sie für beide Kontrollkästchen den Wert 0 ein.<\/p>\n
    Um den Komfort für den Benutzer zu erhöhen, soll das entsprechende Kombinationsfeld deaktiviert werden, sofern das Kontrollkästchen nicht angekreuzt ist. Dies erledigt die Ereignisprozedur RefreshUI (s. Quellcode 1), die im Klassenmodul des Formulars untergebracht ist.<\/p>\n
    Der Aufruf dieser Prozedur erfolgt sowohl beim öffnen des Formulars als auch bei jeder änderung des Zustands der beiden Kontrollkästchen. Diese Aufgabe übernehmen die drei Ereignisprozeduren aus Quellcode 2.<\/p>\n
    Die ersten beiden Prozeduren sind an das On Click-Ereignis der beiden Kontrollkästchen gebunden. Die Dritte ist dagegen mit dem On Load-Ereignis des Formulars verknüpft.<\/p>\n
    Zusätzlich befindet sich im Kopf noch eine Schaltfläche namens btnSucheStarten, die den Suchvorgang startet. Die Ereignisprozedur ist wie in Quellcode 3 aufgebaut.<\/p>\n
    Sie ruft die Unterprozedur SuchergebnisAktualisieren, die Sie im folgenden Abschnitt kennen lernen.<\/p>\n
    Wie bereits zu Beginn dieses Artikels erwähnt, besteht die Besonderheit der Suche darin, dass nicht nur die gefundenen KB-Einträge, sondern auch der Textausschnitt, also zum Beispiel die 30 vorhergehenden bzw. nachfolgenden Zeichen mit angezeigt werden. So kann der Benutzer besser entscheiden, ob die Fundstelle seinen Wünschen entspricht.<\/p>\n
    Um eine solche Suche zu realisieren, enthält die Datenbank die Tabelle tblSuchergebnis (s. Tab. 3).<\/p>\n\n\n\n\n\n\n
    \n
    Feldname<\/b><\/p>\n<\/td>\n
    		\n
    Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n
    \n
    SuchergebnisID<\/p>\n<\/td>\n
    		\n
    AutoWert-Primärschlüssel<\/p>\n<\/td>\n<\/tr>\n
    \n
    Text<\/p>\n<\/td>\n
    		\n
    Gefundener Textausschnitt <\/p>\n<\/td>\n<\/tr>\n
    \n
    KBEintragID<\/p>\n<\/td>\n
    		\n
    Artikel, in dem der Text gefunden wurde<\/p>\n<\/td>\n<\/tr>\n
    \n
    Priorität<\/p>\n<\/td>\n
    		\n
    Relevanz derFundstelle<\/p>\n<\/td>\n<\/tr>\n<\/table>\n
    Tab. 3: Der Aufbau der Tabelle tblSuchergebnis<\/b><\/p>\n
    Public Function Quote(Text As Variant) As Variant\r\n    Const Q = \"''\"\r\n    If IsNull(Text) Then\r\n        Quote = Q & Q\r\n    Else\r\n        Quote = Q & Replace(Text, Q, Q & Q) & Q\r\n    End If\r\nEnd Function<\/pre>\n
    Quellcode 6<\/b><\/p>\n
    If Me.chkEintragstyp.Value = True Then\r\n    If IsNull(Me.cmbEintragstypID.Value) Then\r\n        MsgBox \"Bitte wählen Sie einen Eintragstyp aus!\"\r\n        Exit Sub\r\n    Else\r\n        SQL = SQL + \" AND EintragstypID=\" _            + Me.cmbEintragstypID.Value\r\n    End If\r\nEnd If\r\nIf Me.chkKategorie.Value = True Then\r\n    If IsNull(Me.cmbKategorieID.Value) Then\r\n        MsgBox \"Bitte wählen Sie eine Kategorie aus!\"\r\n        Exit Sub\r\n    Else\r\n        SQL = SQL + \" AND KategorieID=\" _            + Me.cmbKategorieID.Value\r\n    End If\r\nEnd If<\/pre>\n
    Quellcode 7<\/b><\/p>\n
    With rstEinträge\r\n    .ActiveConnection = CurrentProject.Connection\r\n    .CursorLocation = adUseClient\r\n    .CursorType = adOpenDynamic\r\n    .LockType = adLockOptimistic\r\n    .Source = SQL\r\n    .Open\r\nEnd With<\/pre>\n
    Quellcode 8<\/b><\/p>\n
    If rstEinträge.RecordCount = 0 Then\r\n    MsgBox \"Es wurde kein Eintrag gefunden\"\r\n    Exit Sub\r\nEnd If<\/pre>\n
    Quellcode 9<\/b><\/p>\n
    Das Suchergebnis wird hier mit Hilfe der VBA-Prozedur SuchergebnisAktualisieren eingetragen, sodass dieses dann im Formular angezeigt werden kann.<\/p>\n
    Die Prozedur prüft zunächst, ob ein Suchkriterium eingegeben wurde (s. Quellcode 4).<\/p>\n
    Sollte dies nicht der Fall sein, bricht die Prozedur ab.<\/p>\n
    Anschließend wird eine SQL-Abfrage zur Suche nach dem eingegebenen Text zusammengestellt (s. Quellcode 5).<\/p>\n
    Diese SQL-Anweisung sucht mit Hilfe des LIKE-Operators im Titel, im Text sowie bei den Schlüsselwörtern nach dem eingegebenen Text.<\/p>\n
    Damit Eingaben inklusive einfacher Anführungszeichen (“) nicht zu einem Fehler führen, werden diese durch die Quote-Funktion doppelt ausgegeben. Access interpretiert diese dann nicht als Beginn einer neuen Zeichenkette innerhalb der SQL-Anweisung (s. Quellcode 6).<\/p>\n
    Sollte der Benutzer zusätzlich einen Eintragstyp oder eine Kategorie als Filter definiert haben, wird die Abfrage entsprechend erweitert (s. Quellcode 7). Zusätzlich prüft dieser Anweisungsblock noch, ob zum Beispiel eine Kategorie ausgewählt ist, und gibt gegebenenfalls eine Meldung aus. Im Anschluss daran wird das Ergebnis der Abfrage in ein Recordset geladen (s. Quellcode 8).<\/p>\n
    CurrentProject.Connection.Execute (\"DELETE * FROM tblSuchergebnisse\")\r\nWith rstSuchergebnis\r\n    .ActiveConnection = CurrentProject.Connection\r\n    .CursorLocation = adUseClient\r\n    .CursorType = adOpenDynamic\r\n    .LockType = adLockOptimistic\r\n    .Source = \"tblSuchergebnisse\"\r\n    .Open\r\nEnd With<\/pre>\n
    Quellcode 10<\/b><\/p>\n
    While Not rstEinträge.EOF\r\n    Found = False\r\n    If Not IsNull(rstEinträge(\"Titel\")) Then\r\n        If InStr(1, rstEinträge(\"Titel\"), Me.txtSuchtext.Value) <> 0 Then\r\n            TempText = GetFundstellenumgebung(rstEinträge(\"Titel\"), _                Me.txtSuchtext.Value)\r\n            rstSuchergebnis.AddNew\r\n            rstSuchergebnis(\"Text\") = TempText\r\n            rstSuchergebnis(\"KBEintragID\") = rstEinträge(\"KBEintragID\")\r\n            rstSuchergebnis(\"Priorität\") = 3\r\n            rstSuchergebnis.Update\r\n            Found = True\r\n        End If\r\n    End If\r\n    If Found = False Then\r\n        If Not IsNull(rstEinträge(\"Text\")) Then\r\n            If InStr(1, rstEinträge(\"Text\"), Me.txtSuchtext.Value) <> 0 Then\r\n                TempText = GetFundstellenumgebung(rstEinträge(\"Text\"), _                    Me.txtSuchtext.Value)\r\n                rstSuchergebnis.AddNew\r\n                rstSuchergebnis(\"Text\") = TempText\r\n                rstSuchergebnis(\"KBEintragID\") = rstEinträge(\"KBEintragID\")\r\n                rstSuchergebnis(\"Priorität\") = 1\r\n                rstSuchergebnis.Update\r\n                Found = True\r\n            End If\r\n        End If\r\n    End If<\/pre>\n
    Quellcode 11 (erster Teil)<\/b><\/p>\n
    Sollte kein Eintrag gefunden werden, zeigt die Prozedur eine Meldung an (s. Quellcode 9).<\/p>\n
        If Found = False Then\r\n        If Not IsNull(rstEinträge(\"Schlüsselwörter\")) _            Then\r\n            If InStr(1, _                rstEinträge(\"Schlüsselwörter\"), _                Me.txtSuchtext.Value) <> 0 Then\r\n                TempText = _                    GetFundstellenumgebung _                    (rstEinträge(\"Schlüsselwörter\"), _                    Me.txtSuchtext.Value)\r\n                rstSuchergebnis.AddNew\r\n                rstSuchergebnis(\"Text\") = TempText\r\n                rstSuchergebnis(\"KBEintragID\") = _                    rstEinträge(\"KBEintragID\")\r\n                rstSuchergebnis(\"Priorität\") = 2\r\n                rstSuchergebnis.Update\r\n                Found = True\r\n            End If\r\n        End If\r\n    End If\r\n    rstEinträge.MoveNext\r\nWend<\/pre>\n
    Quellcode 11 (Fortsetzung)<\/b><\/p>\n
    Anschließend wird das Füllen der Tabelle tblSuchergebnisse vorbereitet, indem zuerst alle alten Einträge gelöscht und danach ein leeres Recordset zwecks Anlage neuer Datensätze geöffnet wird (s. Quellcode 10).<\/p>\n
    Es folgt eine While Wend-Schleife, in der alle Fundstellen einzeln durchlaufen und in die Tabelle tblSuchergebnisse übertragen werden (s. Quellcode 11).<\/p>\n
    Innerhalb der Schleife wird zunächst mit Hilfe der InStr-Funktion geprüft, ob der Suchetext im Titel vorhanden ist. Sollte dies der Fall sein, wird der Eintrag dem Suchergebnis mit der Priorität 1 hinzugefügt. Falls der Eintrag nicht gefunden wurde (die Variable Found also noch den Wert False hat), erfolgt eine Suche im Text und anschließend noch in den Schlüsselwörtern. Hierbei werden jeweils unterschiedliche Prioritäten vergeben.<\/p>\n
    Zumindest eine dieser drei Suchen sollte erfolgreich sein, da der KB-Eintrag ansonsten nicht im Suchergebnis der ursprünglichen Abfrage enthalten gewesen wäre.<\/p>\n
    Nach Abschluss dieses Vorgangs wird schließlich noch das Suchformular aktualisiert und das Suchergebnis damit angezeigt:<\/p>\n
    Me.Requery<\/pre>\n
    Den vollständigen Aufbau der Prozedur entnehmen Sie der Beispieldatenbank.<\/p>\n
    Fundstellenumgebung<\/h3>\n
    Innerhalb der Schleife kommt eine Prozedur namens GetFundstellenumgebung zum Einsatz. Diese Prozedur ermittelt ausgehend von der Fundstelle je 30 vorhergehende und nachfolgende Zeichen (s. Quellcode 12).<\/p>\n
    über die Konstante AnzahlZeichenUmgebung wird die Anzahl der Zeichen festgelegt, die im Suchergebnis vor und nach der Fundstelle mit ausgegeben werden.<\/p>\n
    Danach wird die jeweilige Anzahl der Zeichen davor und danach abgeschnitten und mit dem Text „…“ versehen. Ein Sonderfall tritt ein, wenn die Fundstelle am Anfang beziehungsweise am Ende eines Textes auftritt.<\/p>\n
    In diesem Fall werden die drei Punkte nicht mit ausgegeben und es werden entsprechend weniger Zeichen ausgeschnitten.<\/p>\n
    Zuletzt werden noch Zeilenumbrüche aus dem Text entfernt.<\/p>\n
    Public Function GetFundstellenumgebung(Text As String, Suchtext As String) As String\r\n    Const AnzahlZeichenUmgebung = 30\r\n    Dim pos As Integer\r\n    Dim Result As String\r\n    Dim pos2 As Integer\r\n    pos = InStr(1, Text, Suchtext)\r\n    If pos = 0 Then Exit Function\r\n    If pos > AnzahlZeichenUmgebung Then\r\n        Result = \"... \" + LTrim(Mid(Text, pos - AnzahlZeichenUmgebung, _            AnzahlZeichenUmgebung + Len(Suchtext) + 1))\r\n    Else\r\n        Result = Left(Text, pos + Len(Suchtext))\r\n    End If\r\n    If pos + AnzahlZeichenUmgebung + Len(Suchtext) > Len(Text) Then\r\n        pos2 = Len(Text) - (pos + Len(Suchtext))\r\n        If pos2 > 0 Then\r\n            Result = Result + Right(Text, pos2)\r\n        End If\r\n    Else\r\n        Result = Result + RTrim(Mid(Text, pos + Len(Suchtext) + 1, _            AnzahlZeichenUmgebung)) + \" ...\"\r\n    End If\r\n    Result = Replace(Result, Chr(13), \" \")\r\n    Result = Replace(Result, Chr(10), \" \")\r\n    GetFundstellenumgebung = Result\r\nEnd Function<\/pre>\n
    Quellcode 12<\/b><\/p>\n
    SELECT tblKBEinträge.Titel, tblSuchergebnisse.* FROM tblSuchergebnisse INNER JOIN tblKBEinträge ON tblSuchergebnisse.KBEintragID=tblKBEinträge.KBEintragID ORDER BY Priorität DESC;<\/pre>\n
    Quellcode 13<\/b><\/p>\n
    Wie bereits erwähnt, wird das Ergebnis der Suche in dem Formular frmSuchen angezeigt. Zu diesem Zweck ist das Formular an die SQL-Abfrage aus Quellcode 13 geknüpft. Das Ergebnis dieser Abfrage ist eine Liste aller Fundstellen inklusive dem Titel des KB-Eintrags.<\/p>\n
    Zur Anzeige des Suchergebnisses befinden sich im Detailbereich des Formulars drei Textfelder, in denen jeweils die Priorität, der Titel sowie die Fundstelle angezeigt werden (siehe Bild 4). Bei allen Feldern ist die Gesperrt-Eigenschaft auf Ja und die Aktiviert-Eigenschaft auf Nein eingestellt, sodass keine änderungen am Suchergebnis vorgenommen werden können.<\/p>\n
    Zusätzlich befindet sich im Detailbereich die Schaltfläche btnGo, die mit drei Punkten beschriftet ist (s. Quellcode 14).<\/p>\n
    Ein Klick darauf öffnet das Formular frmKBEinträge und zeigt den Artikel an (siehe Bild 5).<\/p>\n
    Private Sub btnGo_Click()\r\n    Dim KBEintragID As Long\r\n    KBEintragID = Me.Recordset(\"KBEintragID\")\r\n    DoCmd.OpenForm \"frmKBEinträge\", acNormal, , _        \"KBEintragID=\" + CStr(KBEintragID)\r\nEnd Sub<\/pre>\n
    Quellcode 14<\/b><\/p>\n
    Die vorgestellte Knowledge-Base lässt sich im Bereich der Suche noch weiter optimieren. So ist beispielsweise ein abgestuftes Ranking interessant, bei dem der am besten passende Artikel an oberster Stelle erscheint.<\/p>\n
    Die hier vorgestellte Lösung mittels Prioritäten stellt einen Ansatz dazu dar.<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 4:  Der Detailbereich des Suchformulars in der Entwurfsansicht<\/span><\/b><\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 5:  Das Suchformular inklusive Suchergebnis<\/span><\/b><\/p>\n
    Weiterhin wäre eine Suche nach mehreren Wörtern möglich, die beispielsweise nach dem Vorbild von Google interpretiert werden. So bedeutet die Suche nach<\/p>\n
    +Access -Zugriff<\/p>\n
    dass alle Artikel aufgelistet werden sollen, die zwar den Text Access, aber nicht den Text Zugriff enthalten. Im Hintergrund muss zu diesem Zweck die Eingabe des Benutzers in eine gültige WHERE-Klausel einer SQL-Abfrage umgesetzt werden.<\/p>\n","protected":false},"excerpt":{"rendered":"
    Auch erfahrene Access-Entwickler müssen von Zeit zu Zeit passen, wenn knifflige Fragen zu beantwor-ten oder Probleme zu lösen sind. Oft versucht man sich dann mit dem Satz „Ich hab‘ da mal was gele-sen …“ aus der Affäre zu ziehen (sofern das Gegenüber nicht mit der Frage „Was denn“ kontert). Hierbei soll Ihnen die Knowledge-Base (kurz „KB“) helfen, die Ihnen in dieser Musterlösung vorgestellt wird.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662003,66052003,44000027],"tags":[],"class_list":["post-55000123","post","type-post","status-publish","format-standard","hentry","category-662003","category-66052003","category-Loesungen"],"yoast_head":"\nKnowledgebase mit Suchfunktion - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Knowledgebase mit Suchfunktion\" \/>\n<meta property=\"og:description\" content=\"Auch erfahrene Access-Entwickler müssen von Zeit zu Zeit passen, wenn knifflige Fragen zu beantwor-ten oder Probleme zu lösen sind. Oft versucht man sich dann mit dem Satz "Ich hab' da mal was gele-sen ..." aus der Affäre zu ziehen (sofern das Gegenüber nicht mit der Frage "Was denn" kontert). Hierbei soll Ihnen die Knowledge-Base (kurz "KB") helfen, die Ihnen in dieser Musterlösung vorgestellt wird.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-06T15:17:31+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg03.met.vgwort.de\/na\/162567e2956747d38bef9ebc21f1bcd9\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"13\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Knowledgebase mit Suchfunktion\",\"datePublished\":\"2020-05-06T15:17:31+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/\"},\"wordCount\":1892,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg03.met.vgwort.de\\\/na\\\/162567e2956747d38bef9ebc21f1bcd9\",\"articleSection\":[\"2003\",\"5\\\/2003\",\"L\u00f6sungen\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/\",\"name\":\"Knowledgebase mit Suchfunktion - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg03.met.vgwort.de\\\/na\\\/162567e2956747d38bef9ebc21f1bcd9\",\"datePublished\":\"2020-05-06T15:17:31+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg03.met.vgwort.de\\\/na\\\/162567e2956747d38bef9ebc21f1bcd9\",\"contentUrl\":\"http:\\\/\\\/vg03.met.vgwort.de\\\/na\\\/162567e2956747d38bef9ebc21f1bcd9\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Knowledgebase_mit_Suchfunktion\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Knowledgebase mit Suchfunktion\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Knowledgebase mit Suchfunktion - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/","og_locale":"de_DE","og_type":"article","og_title":"Knowledgebase mit Suchfunktion","og_description":"Auch erfahrene Access-Entwickler müssen von Zeit zu Zeit passen, wenn knifflige Fragen zu beantwor-ten oder Probleme zu lösen sind. Oft versucht man sich dann mit dem Satz \"Ich hab' da mal was gele-sen ...\" aus der Affäre zu ziehen (sofern das Gegenüber nicht mit der Frage \"Was denn\" kontert). Hierbei soll Ihnen die Knowledge-Base (kurz \"KB\") helfen, die Ihnen in dieser Musterlösung vorgestellt wird.","og_url":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-06T15:17:31+00:00","og_image":[{"url":"http:\/\/vg03.met.vgwort.de\/na\/162567e2956747d38bef9ebc21f1bcd9","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"13\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Knowledgebase mit Suchfunktion","datePublished":"2020-05-06T15:17:31+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/"},"wordCount":1892,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/#primaryimage"},"thumbnailUrl":"http:\/\/vg03.met.vgwort.de\/na\/162567e2956747d38bef9ebc21f1bcd9","articleSection":["2003","5\/2003","L\u00f6sungen"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/","url":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/","name":"Knowledgebase mit Suchfunktion - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/#primaryimage"},"thumbnailUrl":"http:\/\/vg03.met.vgwort.de\/na\/162567e2956747d38bef9ebc21f1bcd9","datePublished":"2020-05-06T15:17:31+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/#primaryimage","url":"http:\/\/vg03.met.vgwort.de\/na\/162567e2956747d38bef9ebc21f1bcd9","contentUrl":"http:\/\/vg03.met.vgwort.de\/na\/162567e2956747d38bef9ebc21f1bcd9"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Knowledgebase_mit_Suchfunktion\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Knowledgebase mit Suchfunktion"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000123","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000123"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000123\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000123"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000123"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000123"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}