{"id":2072,"date":"2013-11-11T23:12:26","date_gmt":"2013-11-11T21:12:26","guid":{"rendered":"http:\/\/www.ramses.de\/?p=2072"},"modified":"2013-11-11T23:12:26","modified_gmt":"2013-11-11T21:12:26","slug":"faq-access-volltext-suche-a-la-google","status":"publish","type":"post","link":"https:\/\/www.ramses.de\/?p=2072","title":{"rendered":"FAQ Access – Volltext Suche a la Google"},"content":{"rendered":"
\n

Access VBA – Volltext Suche a la Google<\/h1>\n<\/div>\n
\n

Problem <\/strong><\/h2>\n

Sie wollen wie bei Google nach verschiedenen Suchbegriffe suchen ? Das bedeutet Sie geben – Klaus Hannover M\u00fcller – ein und wollen nur die Personen sehen, die alle drei Kriterien erf\u00fcllen ?<\/p>\n

L\u00f6sung <\/strong><\/h2>\n

Nutzen Sie folgenden Code und nutzen Sie die Funktion in jeder OpenForm Anweisung:<\/p>\n

Public Function Suchterm(vSuchbegriff) As String<\/pre>\n
 Dim vL\u00e4nge As Long, vLetztesLeerzeichen As Long, vLeerzeichenstelle As Long<\/pre>\n
 Dim vAnzeige As String<\/pre>\n
 vL\u00e4nge = Len(vSuchbegriff)<\/pre>\n
 vLetztesLeerzeichen = InStr(1, vSuchbegriff, \" \")<\/pre>\n
 vLeerzeichenstelle = InStr(vLetztesLeerzeichen + 1, vSuchbegriff, \" \")<\/pre>\n
 'Suchbegriff hat nur einen Begriff<\/pre>\n
 If vLetztesLeerzeichen = 0 Then<\/pre>\n
 vAnzeige = \"[Suchbegriff] like '*\" & vSuchbegriff & \"*'\"<\/pre>\n
 GoTo Weiter<\/pre>\n
 End If<\/pre>\n
 'Suchbegriff hat nur zwei Begriffe<\/pre>\n
 If vLeerzeichenstelle = 0 Then<\/pre>\n
 vAnzeige = \"[Suchbegriff] like '*\" & Mid(vSuchbegriff, 1, vLetztesLeerzeichen - 1) & \"*' AND [Suchbegriff] like '*\" & Mid(vSuchbegriff, vLetztesLeerzeichen + 1) & \"*'\"<\/pre>\n
 GoTo Weiter<\/pre>\n
 End If<\/pre>\n
 'Suchbegriff hat viele Begriffe<\/pre>\n
 vAnzeige = \"[Suchbegriff] like '*\" & Mid(vSuchbegriff, 1, vLetztesLeerzeichen - 1) & \"*'\"<\/pre>\n
 Do While vLetztesLeerzeichen < vL\u00e4nge<\/pre>\n
 vLeerzeichenstelle = InStr(vLetztesLeerzeichen + 1, vSuchbegriff, \" \")<\/pre>\n
 'Ende erreicht<\/pre>\n
 If vLeerzeichenstelle = 0 Then<\/pre>\n
 vAnzeige = vAnzeige & \" AND [Suchbegriff] like '*\" & Mid(vSuchbegriff, vLetztesLeerzeichen + 1) & \"*'\"<\/pre>\n
 GoTo Weiter<\/pre>\n
 Else<\/pre>\n
 vAnzeige = vAnzeige & \" AND [Suchbegriff] like '*\" & Mid(vSuchbegriff, vLetztesLeerzeichen + 1, vLeerzeichenstelle - vLetztesLeerzeichen - 1) & \"*'\"<\/pre>\n
 End If<\/pre>\n
 vLetztesLeerzeichen = vLeerzeichenstelle<\/pre>\n
 Loop<\/pre>\n
 Weiter:<\/pre>\n
 Suchterm = vAnzeige<\/pre>\n
 End Function<\/pre>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
Access VBA – Volltext Suche a la Google Problem Sie wollen wie bei Google nach verschiedenen Suchbegriffe suchen ? Das bedeutet Sie geben – Klaus … Weiterlesen …<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[47,43],"tags":[58,82],"class_list":["post-2072","post","type-post","status-publish","format-standard","hentry","category-access","category-faq","tag-access-2010","tag-beziehungen"],"_links":{"self":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2072","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2072"}],"version-history":[{"count":1,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2072\/revisions"}],"predecessor-version":[{"id":2073,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2072\/revisions\/2073"}],"wp:attachment":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2072"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2072"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2072"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}