{"id":55000313,"date":"2005-12-01T00:00:00","date_gmt":"2020-05-06T15:18:10","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=313"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Suchleiste_fuer_Formulare","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/","title":{"rendered":"Suchleiste f&uuml;r Formulare"},"content":{"rendered":"<p><img loading=\"lazy\" decoding=\"async\" src=\"http:\/\/vg02.met.vgwort.de\/na\/fb2e1dd87c6c41c8affb2e97586b1f6d\" width=\"1\" height=\"1\" alt=\"\"><\/p>\n<h3>Zusammenfassung<\/h3>\n<p>Erstellen Sie Symbolleisten mit Text- und Kombinationsfeldern, um beispielsweise eine Suchfunktion f&uuml;r Formulare zu realisieren.<\/p>\n<h3>Techniken<\/h3>\n<p>Symbolleisten, VBA<\/p>\n<h3>Voraussetzungen<\/h3>\n<p>Access 97 oder h&ouml;her<\/p>\n<h3>Beispieldateien<\/h3>\n<p><a href=''fileadmin\/files\/acc0605kh07.zip''>Suchleiste97.mdb, Suchleiste00.mdb<\/a><\/p>\n<h3><\/h3>\n<p><b>Martin Hoffmann, D&uuml;sseldorf; Andr&eacute; Minhorst, Duisburg<\/b><\/p>\n<p><b>Mit den im Beitrag &#8222;Men&uuml;s f&uuml;r die Anwendung&#8220; (Shortlink 300) beschriebenen Techniken lassen sich lediglich Symbolleisten mit Schaltfl&auml;chen gestalten, die Text, ein Symbol oder beides enthalten. In vielen Anwendungen gibt es aber noch andere Elemente in Symbolleisten wie zum Beispiel Text- oder Kombinationsfelder. Diese Steuerelemente k&ouml;nnen Sie auch in Ihrer Datenbank nutzen, um den Komfort der Oberfl&auml;che zu erh&ouml;hen. Das folgende Beispiel zeigt, wie Sie eine Suchen-Symbolleiste erzeugen, die eine &auml;hnliche Funktionalit&auml;t wie der Suchen-Dialog hat. Im Gegensatz zum Dialog ist die Symbolleiste aber jederzeit pr&auml;sent und nimmt wesentlich weniger Platz weg.<\/b><\/p>\n<p>F&uuml;r die Realisierung einer Symbolleiste mit Text- und Kombinationsfeldern ist nur geringer Programmieraufwand n&ouml;tig, um dieses Steuerelement anzulegen.<\/p>\n<p>Access verwaltet alle Men&uuml;- und Symbolleisten der aktuellen Datenbank &uuml;ber die Commandbars-Auflistung. Damit Sie die Commandbars-Auflistung in VBA verwenden k&ouml;nnen, aktivieren Sie im Verweis-Dialog die Referenz auf die Microsoft Office x.0 Object Library, wobei x f&uuml;r die verwendete Office-Version steht. Den Dialog Verweise rufen Sie &uuml;ber den gleichnamigen Befehl des Men&uuml;s Extras auf, wenn ein beliebiges Modulfenster ge&ouml;ffnet ist.<\/p>\n<p>Eine bestimmte Symbolleiste sprechen Sie &uuml;ber ihren Namen an, Eigenschaften trennen Sie durch einen Punkt vom Objekt:<\/p>\n<pre>Commandbars(&lt;Symbolleistenname&gt;).&lt;Eigenschaft&gt;<\/pre>\n<p>Um beispielsweise eine Symbolleiste einzublenden, verwenden Sie die Visible-Eigenschaft des entsprechenden Commandbar-Objekts. Die folgende Programmzeile blendet die benutzerdefinierte Symbolleiste mit dem Namen Suchen-Symbolleiste ein:<\/p>\n<pre>CommandBars(\"Suchen-Symbolleiste\").Visible = True<\/pre>\n<p>Wenn Sie auf die Access-internen Symbolleisten zugreifen wollen, m&uuml;ssen Sie die englischen Namen verwenden. F&uuml;r die Symbolleiste Datenbank ist das beispielsweise der Name Database. Mit der folgenden Programmschleife geben Sie alle englischen Symbolleistennamen im Testfenster aus:<\/p>\n<pre>Dim cmb As CommandBar\r\nFor Each cmb In CommandBars\r\n    Debug.Print cmb.Name\r\nNext cmb<\/pre>\n<p>Auf ein bestimmtes Steuerelement in einer Symbolleiste greifen Sie mittels der Controls-Auflistung zu. Zur Identifikation k&ouml;nnen Sie entweder den Index oder den Namen des Steuerelements angeben. Der Index innerhalb einer Symbolleiste startet mit 1 beim ersten Steuerelement. Der Zugriff &uuml;ber den Namen ist jedoch vorzuziehen, da sich dieser nicht &auml;ndert, wenn Sie die Steuerelemente der Symbolleiste neu anordnen, der Index hingegen schon.<\/p>\n<p>Den Namen eines Symbolleisten-Steuerelements legen Sie &uuml;ber die Eigenschaft Caption fest. Achten Sie darauf, dass alle Steuerelemente einer Befehlsleiste unterschiedliche Beschriftungstexte haben, da ein Befehl sonst nicht mehr eindeutig identifiziert werden kann.<\/p>\n<p>F&uuml;r den Zugriff auf eine Steuerelement-Eigenschaft verwenden Sie die folgende Syntax:<\/p>\n<pre>Commandbars(&lt;Symbolleistenname&gt;).Controls(&lt;Steuerelementname&gt;).&lt;Eigenschaft&gt;<\/pre>\n<p>oder<\/p>\n<pre>Commandbars(&lt;Symbolleistenname&gt;).Controls(&lt;Index&gt;).&lt;Eigenschaft&gt;<\/pre>\n<p>Um beispielsweise die Schaltfl&auml;che Weitersuchen der Symbolleiste Suchen-Symbolleiste zu deaktivieren, verwenden Sie die folgende Zeile:<\/p>\n<pre>CommandBars(\"Suchen-Symbolleiste\").Controls(\"Weitersuchen\").Enabled = False<\/pre>\n<p>&auml;quivalent dazu k&ouml;nnen Sie auch den Index des Steuerelements angeben. Wenn das Weitersuchen-Symbol der zweite Befehl in der Symbolleiste ist, dann lautet der Aufruf wie folgt:<\/p>\n<pre>CommandBars(\"Suchen-Symbolleiste\").Controls(2).Enabled = False<\/pre>\n<p>Im Folgenden erzeugen Sie Schritt f&uuml;r Schritt die Suchen-Symbolleiste mit allen n&ouml;tigen Steuerelementen und dem zugeh&ouml;rigen Programmcode. Legen Sie zun&auml;chst &uuml;ber den Dialog Anpassen eine neue Symbolleiste mit dem Namen Suchen-Symbolleiste an und beenden Sie anschlie&szlig;end den Dialog (siehe Bild 1).<\/p>\n<p><IMG height=\"379\" src=\"..\/fileadmin\/_temp_\/{031B1CEA-8042-4291-AA82-5FE0CE5BA8AA}\/pic001.png\" width=\"385\" border=\"0\"><\/p>\n<p><b><\/b><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 1:  Erzeugen einer neuen Symbolleiste<\/span><\/b><\/p>\n<h2>Steuerelemente erzeugen<\/h2>\n<p>F&uuml;r die Symbolleiste ben&ouml;tigen Sie zwei Schaltfl&auml;chen f&uuml;r das Suchen und Weitersuchen, ein Kombinationsfeld zur Auswahl des Suchfeldes und ein Textfeld f&uuml;r die Eingabe des Suchtextes. Au&szlig;erdem soll &uuml;ber ein Kombinationsfeld die Art des Suchtextvergleichs vorgegeben werden.<\/p>\n<p><b>Quellcode 1: Anlegen eines Steuerelements in einer Symbolleiste<\/b><\/p>\n<pre>Public Sub SteuerelementAnlegen(Symbolleiste As String, Typ As Office.MsoControlType, _    Beschriftung As String)\r\n    Dim c As CommandBarControl\r\n    Set c = CommandBars(Symbolleiste).Controls.Add(Type:=Typ)\r\n    c.Caption = Beschriftung\r\nEnd Sub<\/pre>\n<p><b>Quellcode 2: Steuerelemente der Suchen-Symbolleiste anlegen<\/b><\/p>\n<pre>Public Sub SuchleisteAnlegen()\r\n    Dim strSymbolleiste As String\r\n    strSymbolleiste = \"Suchen-Symbolleiste\"\r\n    SteuerelementAnlegen strSymbolleiste, msoControlButton, \"Suche starten\"\r\n    SteuerelementAnlegen strSymbolleiste, msoControlButton, \"Weitersuchen\"\r\n    SteuerelementAnlegen strSymbolleiste, msoControlComboBox, \"Im Feld\"\r\n    SteuerelementAnlegen strSymbolleiste, msoControlEdit, \"Suchen nach\"\r\n    SteuerelementAnlegen strSymbolleiste, msoControlComboBox, \"Vergleichen\"\r\nEnd Sub<\/pre>\n<p>Neue Symbolleisten-Steuerelemente legen Sie mit der Add-Methode des Control-Objekts an. Den Steuerelementtyp geben Sie &uuml;ber die Type-Eigenschaft vor. Die Prozedur aus Quellcode 1 k&ouml;nnen Sie universell zum Erzeugen von Schaltfl&auml;chen, Text- und Kombinationsfeldern einsetzen. Der Parameter Symbolleiste bestimmt die Symbolleiste, der das Steuerelement hinzugef&uuml;gt werden soll. Als Typ geben Sie eine der drei Konstanten aus Tab. 1 an.<\/p>\n<table border=1>\n<tr>\n<td>\n<p><b>Konstante<\/b><\/p>\n<\/td>\n<td>\n<p><b>Wert<\/b><\/p>\n<\/td>\n<td>\n<p><b>Steuerelementtyp<\/b><\/p>\n<\/td>\n<\/tr>\n<tr>\n<td>\n<p>msoControlButton <\/p>\n<\/td>\n<td>\n<p>1<\/p>\n<\/td>\n<td>\n<p>Schaltfl&auml;chen<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td>\n<p>msoControlEdit<\/p>\n<\/td>\n<td>\n<p>2<\/p>\n<\/td>\n<td>\n<p>Textfelder<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td>\n<p>msoControlComboBox<\/p>\n<\/td>\n<td>\n<p>4<\/p>\n<\/td>\n<td>\n<p>Kombinationsfelder<\/p>\n<\/td>\n<\/tr>\n<\/table>\n<p><b>Tab. 1: Konstanten der Type-Eigenschaft eines Symbolleisten-Steuerelements<\/b><\/p>\n<p><!--30percent--><\/p>\n<p>Die Beschriftung des Steuerelements ist gleichzeitig der Name, &uuml;ber den Sie auf das Steuerelement zugreifen. Rufen Sie die Prozedur SteuerelementAnlegen mit der Routine aus Quellcode 2 f&uuml;nf Mal auf, um die Steuerelemente f&uuml;r die Suchen-Symbolleiste zu erzeugen (siehe Bild 2).<\/p>\n<p><IMG height=\"75\" src=\"..\/fileadmin\/_temp_\/{031B1CEA-8042-4291-AA82-5FE0CE5BA8AA}\/pic002.png\" width=\"362\" border=\"0\"><\/p>\n<p><b><\/b><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 2:  Die erste Version der Suchen-Symbolleiste l&auml;sst Beschriftungen vermissen.<\/span><\/b><\/p>\n<h2>Eigenschaften einstellen<\/h2>\n<p>Im n&auml;chsten Schritt stellen Sie die Eigenschaften der einzelnen Steuerelemente ein. F&uuml;r die Schaltfl&auml;chen Suchen und Weitersuchen kopieren Sie einfach die Symbole der Standardschaltfl&auml;chen von Access. Sie finden diese im Anpassen-Dialog im Register Befehle in der Rubrik Bearbeiten.<\/p>\n<p>Um die Symbole zu kopieren, ziehen Sie die beiden Befehle Suchen&#8230; und Weitersuchen tempor&auml;r in die neue Symbolleiste, w&auml;hlen dort den Kontextmen&uuml;eintrag Schaltfl&auml;chenbild kopieren aus, markieren dann die Zielschaltfl&auml;che und f&uuml;gen das Symbol mit dem entsprechenden Befehl des Kontextmen&uuml;s ein (siehe Bild 3). Die tempor&auml;ren Schaltfl&auml;chen l&ouml;schen Sie anschlie&szlig;end wieder.<\/p>\n<p>Bei den Text- und Kombinationsfeldern &auml;ndern Sie &uuml;ber das Eigenschaften-Fenster den Stil in Bezeichnungsfeld anzeigen. Geben Sie au&szlig;erdem bei allen Steuerelementen noch einen sinnvollen QuickInfo-Text ein.<\/p>\n<p>Einige Eigenschaften k&ouml;nnen Sie nicht &uuml;ber das Eigenschaftsfenster einstellen, sondern nur mittels VBA &uuml;ber die Eigenschaften des Control-Objekts. Das gilt zum Beispiel f&uuml;r die Breite der Text- und Kombinationsfelder. Um die Breite eines Steuerelements neu zu definieren, benutzen Sie die Eigenschaft Width. Die folgenden drei Codezeilen passen die Breite der Steuerelemente an:<\/p>\n<p><IMG height=\"291\" src=\"..\/fileadmin\/_temp_\/{031B1CEA-8042-4291-AA82-5FE0CE5BA8AA}\/pic003.png\" width=\"500\" border=\"0\"><\/p>\n<p><b><\/b><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 3:  Anpassen der Symbole der beiden Schaltfl&auml;chen zum Suchen. Die &uuml;brigen Eigenschaften wurden ebenfalls schon wie im Text beschrieben eingestellt.<\/span><\/b><\/p>\n<p><b>Quellcode 3: Erzeugen von Listeneintr&auml;gen eines Symbolleisten-Kombinationsfeldes<\/b><\/p>\n<pre>Sub KombinationsfeldEintr&auml;geAnlegen()\r\n    Dim c As CommandBarComboBox\r\n    Set c = CommandBars(\"Suchen-Symbolleiste\").Controls(\"Vergleichen:\")\r\n    \r\n    ''Alle Eintr&auml;ge l&ouml;schen\r\n    c.Clear\r\n    \r\n    ''Eintr&auml;ge hinzuf&uuml;gen\r\n    c.AddItem \"Teil des Feldinhaltes\", 1\r\n    c.AddItem \"Anfang des Feldes\", 2\r\n    c.AddItem \"Ende des Feldes\", 3\r\n    c.AddItem \"Ganzes Feld\", 4\r\n    ''Standardwert festlegen\r\n    c.Text = \"Teil des Feldinhaltes\"\r\nEnd Sub<\/pre>\n<p><b>Quellcode 4: Konstanten und Variablen f&uuml;r die Funktionalit&auml;t der Suchen-Symbolleiste<\/b><\/p>\n<pre>Const CommandbarName As String = \"Suchen-Symbolleiste\"\r\nConst CommandbarControlFeld As String = \"Im Feld:\"\r\nConst CommandbarControlSuchenNach As String = \"suchen nach:\"\r\nConst CommandbarControlVergleichen As String = \"Vergleichen:\"\r\nPublic CommandbarRecordset As Recordset\r\nCommandBars(\"Suchen-Symbolleiste\"). _    Controls(\"Im Feld:\").Width = 220\r\nCommandBars(\"Suchen-Symbolleiste\"). _Controls(\"suchen nach:\").Width = 200\r\nCommandBars(\"Suchen-Symbolleiste\"). _Controls(\"Vergleichen:\").Width = 200<\/pre>\n<h2>Listeneintr&auml;ge und Standardwert f&uuml;r das Kombinationsfeld eintragen<\/h2>\n<p>Das Kombinationsfeld Vergleichen: soll dem Benutzer vier M&ouml;glichkeiten zur Wahl stellen, wie Access den Suchtext mit den Daten eines Formulars vergleicht. Dazu legen Sie f&uuml;r das Kombinationsfeld die entsprechenden Listeneintr&auml;ge &uuml;ber die AddItem-Methode an. Die Prozedur aus Quellcode 3 erzeugt die Listeneintr&auml;ge.<\/p>\n<p>Die Zahlenwerte bei der AddItem-Methode geben die Position in der Liste vor. Am Ende der Prozedur wird &uuml;ber die Text-Eigenschaft der Standardwert festgelegt, der im Kombinationsfeld erscheint.<\/p>\n<h2>Steuerelemente mit Programmcode verkn&uuml;pfen<\/h2>\n<p>Die Symbolleiste ist nun soweit fertig konfiguriert. Jetzt fehlt noch eine Funktion zum Suchen und Weitersuchen, die beim Klicken auf eine der entsprechenden Schaltfl&auml;chen ausgef&uuml;hrt wird.<\/p>\n<p>Diese Aufgabe &uuml;bernimmt die Funktion CommandbarSuchen, die Sie in einem Standardmodul namens mdlSuchenSymbolleiste anlegen. F&uuml;gen Sie zun&auml;chst im Deklarationsbereich des Moduls die Zeilen aus Quellcode 4 ein. Durch die Deklaration der Konstanten k&ouml;nnen Sie die Namen der Steuerelemente leichter umbenennen. Sie m&uuml;ssen nicht den gesamten Programmcode durchsuchen, wenn Sie einen Steuerelementnamen &auml;ndern. Die Variable rstCommandbar nimmt bei der Suche die Daten des aktuellen Formulars auf.<\/p>\n<p><b>Quellcode 5: Diese Funktion wird beim Suchen ausgel&ouml;st.<\/b><\/p>\n<pre>Public Function Suchen()\r\n    On Error GoTo Suchen_Err\r\n    Dim c As CommandBarControl\r\n    Dim f As Form\r\n    Dim SuchenNach As String\r\n    Dim SuchenIn As String\r\n    Dim Vergleichen As String\r\n    ''In der Symbolleiste eingegebene Paremeter ermitteln\r\n    Set c = CommandBars(CommandbarName).Controls(CommandbarControlSuchenNach)\r\n    SuchenNach = c.Text\r\n    Set c = CommandBars(CommandbarName).Controls(CommandbarControlFeld)\r\n    SuchenIn = c.Text\r\n    Set c = CommandBars(CommandbarName).Controls(CommandbarControlVergleichen)\r\n    Vergleichen = c.Text\r\n    ''Das aktive Formular ermitteln\r\n    Set f = Screen.ActiveForm\r\n    ''Das angeklickte Steuerelement ermiteln\r\n    Set c = CommandBars.ActionControl\r\n    If c.Caption &lt;&gt; \"Weitersuchen\" Then\r\n        ''Suchen-Schaltfl&auml;che wurde angeklickt oder\r\n        ''Suchen nach-Feld wurde mit der EIngabetaste best&auml;tigt\r\n        Set rstCommandbar = f.RecordsetClone\r\n        Select Case Vergleichen\r\n            Case \"Teil des Feldinhaltes\":\r\n                rstCommandbar.FindFirst \"[\" & SuchenIn & \"] like ''*\" & SuchenNach & \"*''\"\r\n            Case \"Anfang des Feldes\":\r\n                rstCommandbar.FindFirst \"[\" & SuchenIn & \"] like ''\" & SuchenNach & \"*''\"\r\n            Case \"Ende des Feldes\":\r\n                rstCommandbar.FindFirst \"[\" & SuchenIn & \"] like ''*\" & SuchenNach & \"''\"\r\n            Case \"Ganzes Feld\":\r\n                rstCommandbar.FindFirst \"[\" & SuchenIn & \"] =''\" & SuchenNach & \"''\"\r\n        End Select\r\n    Else\r\n        ''Weitersuchen-Schaltfl&auml;che wurde angeklickt\r\n        Select Case Vergleichen\r\n            Case \"Teil des Feldinhaltes\":\r\n                rstCommandbar.FindNext \"[\" & SuchenIn & \"] like ''*\" & SuchenNach & \"*''\"\r\n            Case \"Anfang des Feldes\":\r\n                rstCommandbar.FindNext \"[\" & SuchenIn & \"] like ''\" & SuchenNach & \"*''\"\r\n            Case \"Ende des Feldes\":\r\n                rstCommandbar.FindNext \"[\" & SuchenIn & \"] like ''*\" & SuchenNach & \"''\"\r\n            Case \"Ganzes Feld\":\r\n                rstCommandbar.FindNext \"[\" & SuchenIn & \"] =''\" & SuchenNach & \"''\"\r\n        End Select\r\n    End If\r\n    If rstCommandbar.NoMatch Then\r\n        MsgBox \"Suchtext nicht gefunden!\", vbExclamation, \" \"\r\n        ''Weitersuchen-Schaltfl&auml;chen deaktivieren\r\n        CommandBars(CommandbarName).Controls(\"Weitersuchen\").Enabled = False\r\n    Else\r\n        ''Im Formular auf den gefundenen Datensatz positionieren\r\n        f.Bookmark = rstCommandbar.Bookmark\r\n        ''Weitersuchen-Schaltfl&auml;chen aktivieren\r\n        CommandBars(CommandbarName).Controls(\"Weitersuchen\").Enabled = True\r\n    End If\r\nSuchen_Exit:\r\n    Exit Function\r\nSuchen_Err:\r\n    MsgBox \"Es ist kein Formular aktiv, in dem gesucht werden kann oder Sie haben keine \" & _\r\n    \"Suchtext oder Suchfeld eingegeben!\", vbInformation, \"Fehler...\"\r\n    Resume Suchen_Exit\r\nEnd Function<\/pre>\n<p>Die Funktion Suchen aus Quellcode 5 ermittelt zun&auml;chst die Inhalte der Symbolleisten-Steuerelemente und weist diese Variablen zu. Anschlie&szlig;end legt Sie das aktive Formular fest. Ist kein Formular aktiv, kommt es zu einem Fehler und die Funktion bricht mit einer Meldung ab.<\/p>\n<p><IMG height=\"315\" src=\"..\/fileadmin\/_temp_\/{031B1CEA-8042-4291-AA82-5FE0CE5BA8AA}\/pic004.png\" width=\"500\" border=\"0\"><\/p>\n<p><b><\/b><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 4:  Einstellen der Funktion, die beim Bet&auml;tigen eines Steuerelements ausgel&ouml;st werden soll.<\/span><\/b><\/p>\n<p><b>Quellcode 6: Diese Routine f&uuml;llt die Suchfelder der Suchen-Symbolleiste.<\/b><\/p>\n<pre>Function SuchfelderFuellen(Formularname As String, _    Standard As String)\r\n    On Error GoTo SuchfelderFuellen_Err\r\n    Dim c As CommandBarComboBox\r\n    Dim f As Form\r\n    Dim r As Recordset\r\n    Dim fld As Field\r\n    Set c = CommandBars(CommandbarName). _        Controls(CommandbarControlFeld)\r\n    Set f = Forms(Formularname)\r\n    Set r = f.RecordsetClone\r\n    ''Weitersuchen-Schaltfl&auml;chen deaktivieren\r\n    CommandBars(CommandbarName).Controls(\"Weitersuchen\"). _        Enabled = False\r\n    ''Kombifeld mit Feldnamen des aktuellen Formulars f&uuml;llen\r\n    c.Clear\r\n    For Each fld In r.Fields\r\n        c.AddItem fld.Name\r\n    Next fld\r\n    ''Standardwert im Kombinationsfeld anzeigen\r\n    c.Text = Standard\r\n    r.Close\r\nSuchfelderFuellen_Exit:\r\n    Exit Function\r\nSuchfelderFuellen_Err:\r\n    Resume SuchfelderFuellen_Exit\r\nEnd Function<\/pre>\n<p>Die n&auml;chste Anweisung stellt mit der ActionControl-Eigenschaft fest, welches Steuerelement bet&auml;tigt wurde. Hat das Steuerelement nicht die Beschriftung Weitersuchen, dann wurde eine neue Suche gestartet, indem entweder auf die Schaltfl&auml;che Suche starten geklickt oder ein Suchtext im Feld suchen nach: eingegeben wurde. In diesem Fall legt die Funktion zun&auml;chst eine neue Datensatzgruppe auf Basis der Formular-Datensatzherkunft an und durchsucht diese anschlie&szlig;end mit der FindFirst-Methode nach der ersten &uuml;bereinstimmung. Den Vergleichen-Parameter ber&uuml;cksichtigt dabei eine Select Case-Anweisung.<\/p>\n<p>Wurde auf die Weitersuchen-Schaltfl&auml;che geklickt, sucht die Funktion mit der FindNext-Methode nach dem n&auml;chsten Eintrag. Nach dem Suchvorgang pr&uuml;ft die Funktion, ob ein entsprechender Datensatz gefunden wurde. Wenn ja, wird im Formular auf diesen Datensatz positioniert und die Weitersuchen-Schaltfl&auml;che aktiviert. Wurde keine &uuml;bereinstimmung gefunden, macht eine Meldung darauf aufmerksam und die Weitersuchen-Schaltfl&auml;che wird deaktiviert. Den Funktionsaufruf =Suchen() tragen Sie in der Eigenschaft Bei Aktion der Symbolleistensteuerelemente Suche starten, Weitersuchen und Suchen nach: ein.<\/p>\n<h2>Symbolleiste mit Formularen verkn&uuml;pfen<\/h2>\n<p>Die Suchen-Symbolleiste erf&uuml;llt bereits in der jetzigen Form ihren Zweck (siehe Bild 5). Allerdings m&uuml;ssen Sie den Namen des Feldes, in dem gesucht werden soll, explizit angeben. Damit alle Datenfeldnamen automatisch bei Aktivierung eines Formulars in dem Kombinationsfeld Im Feld: eingetragen werden, legen Sie noch die Funktion Suchfelderfuellen aus Quellcode 6 in einem Standardmodul an.<\/p>\n<p><IMG height=\"226\" src=\"..\/fileadmin\/_temp_\/{031B1CEA-8042-4291-AA82-5FE0CE5BA8AA}\/pic005.png\" width=\"500\" border=\"0\"><\/p>\n<p><b><\/b><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 5:  Die Suchen-Schaltfl&auml;che im Einsatz &#8211; hier am Beispiel eines Artikel-Formulars.<\/span><\/b><\/p>\n<p>Sie &uuml;bergeben der Funktion den Namen des Formulars, von dem aus die Funktion aufgerufen wird, und den Standardfeldnamen. <\/p>\n<p>Mit der AddItem-Methode legt die Funktion dann eine Liste aller Feldnamen der Formular-Datensatzherkunft im Kombinationsfeld an. Am Schluss gibt die Text-Eigenschaft den Standardfeldnamen vor. Tragen Sie den Funktionsaufruf in allen Formularen der Datenbank, die eine Suchm&ouml;glichkeit erhalten sollen, in der Bei Aktivierung-Eigenschaft ein. F&uuml;r das Formular frmArtikel lautet der Aufruf beispielsweise:<\/p>\n<pre>=SuchfelderFuellen(\"Artikel\";\"Artikelname\")<\/pre>\n<p>Damit die Feldnamen bei Deaktivierung eines Formulars wieder aus dem Kombinationsfeld gel&ouml;scht werden, tragen Sie noch in die gleichnamige Eigenschaft des Formulars den folgenden Ausdruck ein:<\/p>\n<pre>=SuchfelderLeeren()<\/pre>\n<p>Die Funktion l&ouml;scht &uuml;ber die Clear-Methode die Inhalte des Kombinationsfeldes zur Auswahl des Suchfeldes.<\/p>\n<pre>Function SuchfelderLeeren()\r\n    CommandBars(\"Suchen-Symbolleiste\"). _        Controls(\"Im Feld:\").Clear\r\nEnd Function<\/pre>\n<p>Damit Sie aufw&auml;ndig gestaltete Symbolleisten wie die oben beschriebene Suchen-Symbolleiste nicht f&uuml;r jede Datenbank neu erstellen m&uuml;ssen, k&ouml;nnen Sie mit Access Symbolleisten importieren. Gehen Sie wie folgt vor:<\/p>\n<p><IMG height=\"332\" src=\"..\/fileadmin\/_temp_\/{031B1CEA-8042-4291-AA82-5FE0CE5BA8AA}\/pic006.png\" width=\"489\" border=\"0\"><\/p>\n<p><b><\/b><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 6:  Import von Men&uuml;s und Symbolleisten<\/span><\/b><\/p>\n<p>Da Sie mit dieser Vorgehensweise alle Men&uuml;- und Symbolleisten einer Datenbank importieren, l&ouml;schen Sie anschlie&szlig;end noch die nicht ben&ouml;tigten Symbolleisten &uuml;ber den Anpassen-Dialog. Nat&uuml;rlich m&uuml;ssen Sie noch die entsprechenden Ereigniseigenschaften f&uuml;r die Formulare einstellen, in denen Sie mit der Suchen-Symbolleiste suchen m&ouml;chten.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Mit den im Beitrag &#8222;Men&uuml;s f&uuml;r die Anwendung&#8220; (Shortlink 300) beschriebenen Techniken lassen sich lediglich Symbolleisten mit Schaltfl&auml;chen gestalten, die Text, ein Symbol oder beides enthalten. In vielen Anwendungen gibt es aber noch andere Elemente in Symbolleisten wie zum Beispiel Text- oder Kombinationsfelder. Diese Steuerelemente k&ouml;nnen Sie auch in Ihrer Datenbank nutzen, um den Komfort der Oberfl&auml;che zu erh&ouml;hen. Das folgende Beispiel zeigt, wie Sie eine Suchen-Symbolleiste erzeugen, die eine &auml;hnliche Funktionalit&auml;t wie der Suchen-Dialog hat. Im Gegensatz zum Dialog ist die Symbolleiste aber jederzeit pr&auml;sent und nimmt wesentlich weniger Platz weg.<\/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":[662005,66062005,44000036,44000023],"tags":[],"class_list":["post-55000313","post","type-post","status-publish","format-standard","hentry","category-662005","category-66062005","category-Daten_suchen_sortieren_gruppieren","category-Mit_Formularen_arbeiten"],"yoast_head":"<!-- This site is optimized with the Yoast SEO Premium plugin v20.9 (Yoast SEO v27.4) - https:\/\/yoast.com\/product\/yoast-seo-premium-wordpress\/ -->\n<title>Suchleiste f&uuml;r Formulare - 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\/Suchleiste_fuer_Formulare\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Suchleiste f&uuml;r Formulare\" \/>\n<meta property=\"og:description\" content=\"Mit den im Beitrag &quot;Men&uuml;s f&uuml;r die Anwendung&quot; (Shortlink 300) beschriebenen Techniken lassen sich lediglich Symbolleisten mit Schaltfl&auml;chen gestalten, die Text, ein Symbol oder beides enthalten. In vielen Anwendungen gibt es aber noch andere Elemente in Symbolleisten wie zum Beispiel Text- oder Kombinationsfelder. Diese Steuerelemente k&ouml;nnen Sie auch in Ihrer Datenbank nutzen, um den Komfort der Oberfl&auml;che zu erh&ouml;hen. Das folgende Beispiel zeigt, wie Sie eine Suchen-Symbolleiste erzeugen, die eine &auml;hnliche Funktionalit&auml;t wie der Suchen-Dialog hat. Im Gegensatz zum Dialog ist die Symbolleiste aber jederzeit pr&auml;sent und nimmt wesentlich weniger Platz weg.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-06T15:18:10+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg02.met.vgwort.de\/na\/fb2e1dd87c6c41c8affb2e97586b1f6d\" \/>\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=\"12\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Suchleiste f&uuml;r Formulare\",\"datePublished\":\"2020-05-06T15:18:10+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/\"},\"wordCount\":1740,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/fb2e1dd87c6c41c8affb2e97586b1f6d\",\"articleSection\":[\"2005\",\"6\\\/2005\",\"Daten suchen, sortieren, gruppieren\",\"Mit Formularen arbeiten\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/\",\"name\":\"Suchleiste f&uuml;r Formulare - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/fb2e1dd87c6c41c8affb2e97586b1f6d\",\"datePublished\":\"2020-05-06T15:18:10+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/fb2e1dd87c6c41c8affb2e97586b1f6d\",\"contentUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/fb2e1dd87c6c41c8affb2e97586b1f6d\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suchleiste_fuer_Formulare\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Suchleiste f&uuml;r Formulare\"}]},{\"@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":"Suchleiste f&uuml;r Formulare - 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\/Suchleiste_fuer_Formulare\/","og_locale":"de_DE","og_type":"article","og_title":"Suchleiste f&uuml;r Formulare","og_description":"Mit den im Beitrag \"Men&uuml;s f&uuml;r die Anwendung\" (Shortlink 300) beschriebenen Techniken lassen sich lediglich Symbolleisten mit Schaltfl&auml;chen gestalten, die Text, ein Symbol oder beides enthalten. In vielen Anwendungen gibt es aber noch andere Elemente in Symbolleisten wie zum Beispiel Text- oder Kombinationsfelder. Diese Steuerelemente k&ouml;nnen Sie auch in Ihrer Datenbank nutzen, um den Komfort der Oberfl&auml;che zu erh&ouml;hen. Das folgende Beispiel zeigt, wie Sie eine Suchen-Symbolleiste erzeugen, die eine &auml;hnliche Funktionalit&auml;t wie der Suchen-Dialog hat. Im Gegensatz zum Dialog ist die Symbolleiste aber jederzeit pr&auml;sent und nimmt wesentlich weniger Platz weg.","og_url":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-06T15:18:10+00:00","og_image":[{"url":"http:\/\/vg02.met.vgwort.de\/na\/fb2e1dd87c6c41c8affb2e97586b1f6d","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"12\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Suchleiste f&uuml;r Formulare","datePublished":"2020-05-06T15:18:10+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/"},"wordCount":1740,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/#primaryimage"},"thumbnailUrl":"http:\/\/vg02.met.vgwort.de\/na\/fb2e1dd87c6c41c8affb2e97586b1f6d","articleSection":["2005","6\/2005","Daten suchen, sortieren, gruppieren","Mit Formularen arbeiten"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/","url":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/","name":"Suchleiste f&uuml;r Formulare - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/#primaryimage"},"thumbnailUrl":"http:\/\/vg02.met.vgwort.de\/na\/fb2e1dd87c6c41c8affb2e97586b1f6d","datePublished":"2020-05-06T15:18:10+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/#primaryimage","url":"http:\/\/vg02.met.vgwort.de\/na\/fb2e1dd87c6c41c8affb2e97586b1f6d","contentUrl":"http:\/\/vg02.met.vgwort.de\/na\/fb2e1dd87c6c41c8affb2e97586b1f6d"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Suchleiste_fuer_Formulare\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Suchleiste f&uuml;r Formulare"}]},{"@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\/55000313","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=55000313"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000313\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000313"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000313"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000313"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}