<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
Vokabeln in einer Datenbank speichern Wo es doch so viele Vokabelprogramme und -trainer auf dem Markt gibt Doch, das hat durchaus einen Sinn. Denn wer bereits einmal eine Datenbank mit Access erstellt hat, ist mit der Flexibilität einer solchen Datenbank vertraut. Und eine Vokabeldatenbank, mit der man auf die Schnelle mal einige Fachbegriffe übersetzen kann, wird auf Grund der Globalisierung in vielen Branchen immer häufiger benötigt. Dem soll die vorliegende Musterlösung Rechnung tragen: Sie ermöglicht die Eingabe von Vokabeln unter der Angabe beliebiger Kategorien und – was besonders interessant ist – in beliebig vielen Sprachen. Neben der schnellen Abfrage der einen oder anderen Vokabel können Sie auch eine Liste bestimmter Vokabeln per Bericht ausdrucken.<\/b><\/p>\n
Der Softwaremarkt beherbergt eine Riesenmenge von Programmen, die zum Lernen von Vokabeln einer Fremdsprache dienen. Die Programme erfüllen die unterschiedlichsten Anforderungen und haben dementsprechende Preise – von der kostenlosen Freeware bis zur teuren Profianwendung ist hier alles zu finden.<\/p>\n
Unterschiedliche Anforderungen<\/b><\/p>\n
Die Anforderungen an ein Vokabelprogramm unterscheiden sich von Anwender zu Anwender. Der eine gibt sich mit einem Programm mit dem Standardwortschatz einer Sprache zufrieden, die er per Eingabe des gesuchten Wortes abfragen kann, der andere sucht eine Anwendung, mit der er interaktiv eine neue Sprache lernen kann.<\/p>\n
Dabei kann durchaus die Möglichkeit der Eingabe neuer Wörter gefordert sein. Die formatierte Ausgabe in Listenform auf Papier ist hingegen eher selten anzutreffen – ein Grund mehr, um sich eine eigene Vokabeldatenbank zu basteln.<\/p>\n
Darüber hinaus bieten nur wenige Vokabelprogramme die Möglichkeit, Vokabeln einmal anzulegen und direkt in mehrere Sprachen zu übersetzen.<\/p>\n
Eigenschaften der Musterlösung<\/b><\/p>\n
In der hier vorgestellten Musterlösung lernen Sie, wie Sie eine an Ihre Bedürfnisse angepasste Vokabeldatenbank erstellen können. Die Datenbank soll die folgenden Möglichkeiten bieten:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic002.png\")
<\/p>\n
Bild 1: Improvisierte Verwaltung von Vokabeln mit Excel<\/span><\/b><\/p>\n <\/b><\/p>\n In einer der folgenden Ausgaben des Update-Heftes soll die Lösung um eine Funktion zum Lernen von Vokabeln und der Ermittlung des dabei erzielten Lernfortschritts erweitert werden. Aus Platzgründen kann diese Erweiterung nicht mehr im vorliegenden Heft untergebracht werden. Auch die Beschreibung der Erstellung eines Formulars zur komfortablen Eingabe von Wörtern in der Lautschrift folgt im zweiten Teil dieses Beitrags. <\/p>\n Auf das Datenmodell ist aufgrund der Anforderung, Wörter in mehrere Sprachen übersetzen zu können, besonderes Augenmerk zu legen. Es passiert nämlich sonst schnell, dass man eine unübersichtliche und schnell wachsende Menge an Tabellen erhält.<\/p>\n Vokabeln mit anderen Office-Programmen verwalten<\/b><\/p>\n Um mal eben eine kleine Zusammenstellung wichtiger Vokabeln zu erstellen, können Sie beispielsweise die Textverarbeitung oder die Tabellenkalkulation Ihres Office-Paketes verwenden. Wenn Sie die Tabellenkalkulation verwenden, können Sie die Vokabelliste wenigstens nach dem Alphabet sortieren.<\/p>\n Sinnvoll ist diese Vorgehensweise nicht, denn ab einer bestimmten Menge Vokabeln verliert man erstens die übersicht und zweitens fehlt die Möglichkeit, die Vokabeln andersherum darzustellen – also z. B. Englisch-Deutsch anstatt Deutsch-Englisch. Das funktioniert zumindest dann nicht, wenn Sie beispielsweise einem deutschen Wort mehrere englische Bedeutungen zugeordnet haben. In dem Fall müssen Sie zunächst für jedes englische Wort eine neue Zeile erstellen und dann jeweils die deutsche Bedeutung einsetzen. Und dann haben Sie auch noch – wie in Bild 1 – einige englische Bedeutungen, die doppelt vorkommen und die Sie dementsprechend wieder streichen müssen.<\/p>\n Die Vorgehensweise birgt erstens jede Menge Arbeit und zweitens redundante Daten in sich, denen sich früher oder später die eine oder andere Inkonsistenz hinzugesellt.<\/p>\n Vokabeln mit Access verwalten<\/b><\/p>\n Da Sie allerdings mit Microsoft Access über ein relationales Datenbankmanagementsystem verfügen, sollen Sie dessen Fähigkeiten auch zur Verwaltung Ihrer Daten einsetzen.<\/p>\n Wie Sie bereits gesehen haben, können Sie manchen deutschen Wörtern mehrere englische Bedeutungen zuordnen und umgekehrt. Das schreit geradezu nach einer m:n-Verknüpfung.<\/p>\n Normalerweise würden Sie eine solche Verknüpfung wie in Bild 2 realisieren.<\/p>\n <\/b><\/p>\n Das geht aber leider nur so lange gut, bis Sie noch eine dritte Sprache hinzufügen möchten. Dann müssen Sie noch eine weitere Tabelle mit den Wörtern der dritten Sprache und zwei weitere Tabellen zur Verknüpfung der Wörter der ersten mit der dritten und der zweiten mit der dritten Sprache erstellen. Dementsprechend kommen bei der vierten Sprache vier weitere und bei der fünften Sprache fünf weitere Tabellen hinzu, wenn Sie die Wörter der jeweiligen Sprachen einander zuordnen möchten.<\/p>\n Das ist sehr umständlich und unübersichtlich und nimmt dem Anwender außerdem die Möglichkeit, eigenständig weitere Sprachen hinzuzufügen – oder soll er etwa im Datenmodell der fertigen Anwendung herumdoktern<\/p>\n Die Lösung ist die Erstellung einer einzigen Tabelle für die Wörter aller Sprachen. Damit Sie die Wörter der einzelnen Sprachen auseinanderhalten können, enthält die Tabelle ein zusätzliches Feld mit der entsprechenden Sprache.<\/p>\n Doch wie sollen Sie nun die relationale Verknüpfung realisieren, wenn es nur eine Tabelle gibt Ganz einfach: Sie verknüpfen die Tabelle mit den Wörtern über die Verknüpfungstabelle einfach mit sich selbst. Auf diese Weise können Sie jedes Wort der Wörtertabelle mit jedem anderen Wort kombinieren. Natürlich legen Sie später einige Restriktionen fest – z. B., um die Zuordnung von einem Wort zu sich selbst oder zu einem weiteren Wort der gleichen Sprache zu verhindern.<\/p>\n Tabellen derVokabeldatenbank<\/b><\/p>\n Das Datenmodell der Datenbank sieht auf den ersten Blick recht wüst aus (siehe Bild 3).<\/p>\n Wichtig sind aber zunächst nur zwei Tabellen: die Tabelle tblWoerter und die Tabelle tblUebersetzungen. Die Tabelle tblWoerter_1 ist lediglich eine Kopie der Tabelle tblWoerter, mit der die zweifache Verknüpfung der Tabellen tblWoerter und tblUebersetzungen verdeutlicht werden soll.<\/p>\n Die Funktion aller weiteren Tabellen verdeutlicht ein Blick auf die Tabelle tblWoerter und die mit ihr verknüpften Tabellen.<\/p>\n Die Vokabeldatenbank soll nicht nur die Bedeutungen der Wörter, sondern auch noch einige weitere Informationen beinhalten. Dabei handelt es sich um die Sprache, die Wortart sowie unterschiedliche Kategorien und Kontexte.<\/p>\n Einige der Informationen befinden sich direkt in der Tabelle tblWoerter, während andere über Verknüpfungsfelder ausgewählt werden können.<\/p>\n Das Feld WortNr bildet den Primärindex der Tabelle. über das Feld SpracheNr wählen Sie die Sprache aus der Tabelle tblSprachen aus, zu der das Wort gehört.<\/p>\n Im Feld Wort geben Sie das Wort selbst ein. über das Feld WortartNr können Sie eine Wortart auswählen – also beispielsweise Nomen oder Verb. Das Feld Aussprache ist für Bastler vorgesehen: Mit einer speziellen Schriftart können Sie die so genannte Lautschrift darstellen, mit der – international genormt – die Aussprache unterschiedlicher Wörter vereinheitlicht dargestellt wird. Dazu ist jedoch ein spezieller Zeichensatz (einer Schriftart mit allen Lautschrifteichen) erforderlich. Die Eingabe von Text in der Lautschrift ist aber nicht gerade komfortabel.<\/p>\n Die Erstellung eines eigenen Formulars zur Eingabe von Begriffen in Lautschrift wird im zweiten Teil dieses Beitrags in einer der folgenden Ausgaben erläutert. <\/p>\n Im Feld Weiteres können Sie je nach Wunsch weitere Informationen oder Beispiele zu einem Wort angeben.<\/p>\n Von einer übersetzung kann man erst sprechen, wenn man zwei Wörter verschiedener Sprachen einander zuordnet. Diese Aufgabe übernimmt die Tabelle tblUebersetzungen. Sie enthält zwei Felder – ErsteSprache und ZweiteSprache. Beide Felder sind mit dem Primärindexfeld WortNr der Tabelle tblWoerter verknüpft.<\/p>\n Falls Sie sich fragen, wie Sie die Auswahl zweier Wörter der gleichen Sprache verhindern können, finden Sie die Antwort weiter hinten in der Beschreibung der Formulare der Datenbank.<\/p>\n Die Datenbank soll die Möglichkeit bieten, zu jedem Wort beliebig viele Kontexte zu speichern. Der Kontext soll zur Veranschaulichung der Bedeutung und des Einsatzes des Wortes in der jeweiligen Sprache dienen und erfüllt außerdem eine Aufgabe beim Abfragen gelernter Vokabeln.<\/p>\n Die Tabelle enthält drei Felder: das Primärindexfeld KontextNr, das Feld WortNr, über das der dazugehörende Eintrag der Tabelle tblWoerter ausgewählt werden kann sowie das Memo-Feld Kontext, in das Sie Beispielsätze für die jeweiligen Wörter eingeben können.<\/p>\n Sowohl für die Erstellung von Vokabellisten als auch bei der Abfrage von Vokabeln ist es manchmal nützlich, die Vokabeln in unterschiedliche Kategorien einzuteilen.<\/p>\n Dabei soll man jedes Wort beliebig vielen Kategorien zuordnen können. Also benötigen Sie wiederum eine m:n-Beziehung, die sich diesmal allerdings auf herkömmliche Weise auf zwei unterschiedliche Tabellen bezieht.<\/p>\n Die Tabelle tblKategorien enthält lediglich ein Primärindexfeld sowie die Bezeichnung der Kategorie.<\/p>\n Legen Sie in der Tabelle tblKategorien auf jeden Fall einen Datensatz mit dem Wert Alle an. Sie benötigen ihn später, wenn Sie in einer Vokabelliste einmal alle Vokabeln ausdrucken möchten und nicht nur die Vokabeln einer bestimmten Kategorie. <\/p>\n Die Tabelle tblWoerterKategorien stellt die Beziehung zwischen den beiden Tabellen tblWoerter und tblKategorien her, indem Sie jeweils ein Feld mit einer Verknüpfung auf die Primärindexfelder der beiden Tabellen enthält. Mit Hilfe dieser Tabelle können Sie jedem Wort beliebig vielen Kategorien zuordnen.<\/p>\n In der Tabelle tblSprachen können Sie die Bezeichnungen der gewünschten Sprachen unterbringen. Sie besteht aus den beiden Feldern SpracheNr und Sprache.<\/p>\n Die Tabelle tblWortarten enthält die Wortarten, die in den unterschiedlichen Sprachen vorkommen. Sie besteht aus dem Primärindexfeld Wort- artNr und dem Feld Wortart.<\/p>\n Zu jedem Wort, welches Sie der Tabelle tblWoerter hinzufügen, geben Sie einige weitere Informationen an. Diese Informationen befinden sich in Tabellen, die mit der Tabelle tblWoerter verknüpft sind. Theoretisch kann es vorkommen, dass Sie ein Wort aus der Tabelle tblWoerter löschen möchten. Damit gleichzeitig automatisch die Daten der anderen Tabellen, die sich auf das gelöschte Wort beziehen, gelöscht werden, tun Sie Folgendes:<\/p>\n <\/b><\/p>\n Bild 4: Aktivierung der Löschweitergabe<\/span><\/b><\/p>\n Führen Sie die gleiche Prozedur mit allen Detailtabellen der Tabelle tblWoerter durch, also zusätzlich mit den Tabellen tblWoerterKategorien und tblUebersetzungen.<\/p>\n Die Vokabeldatenbank mit allen Funktionen, die im Rahmen des vorliegenden Beitrags vorgestellt werden, besteht aus den folgenden Formularen: <\/p>\n Das übersichtsformular<\/b><\/p>\n Das übersichtsformular ist wahrscheinlich das einfachste Formular der Vokabeldatenbank. Es enthält lediglich einige Schaltflächen zur Anzeige der übrigen Formulare und zum Beenden der Datenbank (siehe Bild 5).<\/p>\n Daher entnehmen Sie bitte den Aufbau des Formulars sowie der Ereignisprozeduren der Formulare der auf der Heft-CD befindlichen Beispieldatenbank.<\/p>\n <\/b><\/p>\n Bild 5: Das Hauptmenü der Vokabeldatenbank<\/span><\/b><\/p>\n Das Formular zur Eingabe vonVokabeln<\/b><\/p>\n Das Formular frmVokabeleingabe dient zur Eingabe von neuen Vokabeln und deren Eigenschaften. Das Grundgerüst des Formulars erstellen Sie folgendermaßen:<\/p>\n <\/b><\/p>\n <\/b><\/p>\n Neben den Informationen, die durch die soeben erstellten Felder angezeigt werden, soll das Formular noch die Möglichkeit bieten, Kategorien auszuwählen und Kontexte zu den Wörtern einzugeben. Dazu benötigen Sie zwei Unterformulare, die in den folgenden Abschnitten beschrieben werden.<\/p>\n Zur Erstellung des Unterformulars zur Eingabe von Kontexten (siehe Bild 6) gehen Sie folgendermaßen vor:<\/p>\n <\/p>\n Fertig! Sie können das Formular nun vorerst schließen und sich dem nächsten Unterformular zuwenden.<\/p>\n Das Unterformular frmKategorien soll zur Auswahl einer oder mehrerer Kategorien eines Wortes dienen. Seine Erstellung verläuft identisch mit der des Formulars frmKontexte. Der einzige Unterschied besteht in der Datenherkunft des Formulars. Hier müssen Sie eine neue Abfrage erstellen, die aus den Tabellen tblWoerterKategorien und tblKategorien besteht:<\/p>\n Nachdem Sie die Abfrage geschlossen haben, können Sie das Feld KategorieNr aus der Feldliste in den Detailbereich des Formulars ziehen. <\/p>\n Damit das auf diese Weise erstellte Kombinationsfeld auch die Kategorien und nicht nur die Nummern der Kategorie anzeigt, müssen Sie noch die Eigenschaften des Kombinationsfeldes anpassen.<\/p>\n ändern Sie zunächst die Eigenschaft Datensatzherkunft auf den folgenden Wert ab:<\/p>\n Wie weiter oben beschrieben, enthält die Tabelle tblKategorien auf jeden Fall einen Eintrag: Alle. Er soll später bei der Auswahl der zu druckenden Vokabeln die Möglichkeit bieten, nicht nur Vokabeln einer bestimmten Kategorie, sondern alternativ alle Vokabeln auszuwählen. Der Wert Alle soll aber keinem Wort als Kategorie zugeordnet werden und wird mit dem angegebenen Ausdruck aus der Datenherkunft ausgeschlossen.<\/p>\n Stellen Sie anschließend die Eigenschaft Spaltenanzahl auf den Wert 2 und die Eigenschaft Spaltenbreite auf den Wert 0cm;3cm ein. Nachdem Sie als Standardansicht den Wert Datenblatt ausgewählt haben, können Sie das Formular speichern und schließen.<\/p>\n Der schnellste Weg, um ein Unterformular in ein Hauptformular zu integrieren, ist der folgende:<\/p>\n Sie sollten nun noch ein wenig Mühe in die optische Gestaltung des Formulars und seiner Unterformulare investieren. Wie das Ergebnis aussehen könnte, zeigt Abb. 8.<\/p>\n Legen Sie außerdem noch zwei Schaltflächen mit den Beschriftungen Vokabel übernehmen und Abbrechen an. Die dazugehörenden Ereignisprozeduren werden später vorgestellt, da ihre Funktion entscheidend davon abhängt, auf welche Weise das Formular vom Formular zur Verwaltung der Vokabeln aufgerufen wurde.<\/p>\n <\/b><\/p>\n Bild 8: Das Formular zur Eingabe und Bearbeitung von Vokabeln<\/span><\/b><\/p>\n Das Formular zur Verwaltung der Vokabeln<\/b><\/p>\n Die Erstellung des Formulars frmVokabelverwaltung ist relativ umfangreich. Damit Sie einen überblick über die bevorstehenden Aufgaben erhalten, finden Sie in Bild 9 zunächst einmal das fertige Formular mit allen noch anzulegenden Steuerelementen.<\/p>\n Die beiden Kombinationsfelder cmbErsteSprache und cmbZweiteSprache dienen zur Auswahl der Sprachen, zu deren Umfang das gewünschte Wort und seine übersetzung gehören.<\/p>\n <\/b><\/p>\n Das linke Listenfeld zeigt alle vorhandenen Wörter in der ersten Sprache an. Wenn eines der Wörter angeklickt ist, soll das obere rechte Listenfeld alle vorhanden übersetzungen des ausgewählten Wortes in der gewünschten Sprache anzeigen. Das Listenfeld darunter zeigt alle übrigen Wörter der zweiten Sprache an.<\/p>\n Durch Betätigen der Schaltfläche mit der Beschriftung Neues Wort eingeben können Sie das Formular frmVokabeleingabe zur Eingabe eines neuen Wortes in der ersten Sprache öffnen.<\/p>\n Die daneben liegende Schaltfläche dient zum Löschen des markierten Wortes aus der Tabelle tblWoerter.<\/p>\n Die Schaltfläche Neues Wort eingeben öffnet das Formular frmVokabeleingabe zur Eingabe einer neuen Bedeutung des im linken Listenfeld ausgewählten Wortes. <\/p>\n Die daneben liegende Schaltfläche mit der Beschriftung Bedeutung löschen dient nicht zum Löschen des im rechten Listenfeldes markierten Wortes, es löscht lediglich die Verknüpfung der beiden Wörter über den Eintrag in die Tabelle tblUebersetzungen.<\/p>\n Mit einem Doppelklick auf ein Wort im linken oder im oberen rechten Listenfeld können Sie das Formular frmVokabeleingabe zum Bearbeiten des gewünschten Wortes öffnen.<\/p>\n Ein Doppelklick auf eines der Wörter im unteren linken Listenfeld fügt das gewünschte Wort den übersetzungen im oberen linken Listenfeld hinzu.<\/p>\n Nach der Kurzbeschreibung der Funktionen des Formulars wenden Sie sich nun seiner Erstellung zu. Sie können zunächst einmal einem neuen Formular die benötigten Steuerelemente hinzufügen. Einige Eigenschaften der Steuerelemente finden Sie in Tab. 1.<\/p>\n Beschriftung \/ Funktion<\/b><\/p>\n<\/td>\n Name<\/b><\/p>\n<\/td>\n<\/tr>\n Kombinationsfeld zur Auswahl der ersten Sprache<\/p>\n<\/td>\n cmbErsteSprache<\/p>\n<\/td>\n<\/tr>\n Kombinationsfeld zur Auswahl der zweiten Sprache<\/p>\n<\/td>\n cmbZweiteSprache<\/p>\n<\/td>\n<\/tr>\n Schaltfläche Neues Wort eingeben<\/p>\n<\/td>\n btnNeuesWort<\/p>\n<\/td>\n<\/tr>\n Schaltfläche Wortlöschen<\/p>\n<\/td>\n btnWortLoeschen<\/p>\n<\/td>\n<\/tr>\n Schaltfläche Neue übersetzung eingeben<\/p>\n<\/td>\n btnNeueUebersetzung<\/p>\n<\/td>\n<\/tr>\n Schaltflächeübersetzung löschen<\/p>\n<\/td>\n btnUebersetzungLoeschen<\/p>\n<\/td>\n<\/tr>\n Listenfeld Erste Sprache<\/p>\n<\/td>\n lstErsteSprache<\/p>\n<\/td>\n<\/tr>\n Listenfeld ZweiteSprache<\/p>\n<\/td>\n lstZweiteSprache<\/p>\n<\/td>\n<\/tr>\n Listenfeld ZweiteSprache, übrige<\/p>\n<\/td>\n lstZweiteSpracheAlle<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Steuerelemente des Formulars frmVokabeleingabe und ihre Namen<\/b><\/p>\n Beide Kombinationsfelder haben die Tabelle tblSprachen als Datenherkunft. Während das erste Kombinationsfeld alle Datensätze der Tabelle anzeigen darf – dazu wählen Sie die Tabelle tblSprachen als Datensatzherkunft aus – soll das zweite Kombinationsfeld alle Sprachen mit Ausnahme der im ersten Kombinationsfeld ausgewählten Sprachen anzeigen. Realisieren Sie das mit folgendem Ausdruck für die Datensatzherkunft:<\/p>\n Stellen Sie die Spaltenzahl und die Spaltenbreiten beider Kombinationsfelder auf die Werte 2 bzw. 0cm;3cm ein.<\/p>\n Das Listenfeld soll alle Wörter anzeigen, die zu der im Kombinationsfeld angegebenen Sprache gehören. Der für die Eigenschaft Datensatzherkunft einzugebende Ausdruck heißt:<\/p>\n Damit nur die Wörter angezeigt werden, müssen Sie die Eigenschaften Spaltenanzahl und Spaltenbreiten noch entsprechend anpassen.<\/p>\n Die Datenherkunft dieses Listenfeldes ist etwas komplizierter und soll deshalb über den Abfrageeditor erstellt werden. öffnen Sie den Editor, indem Sie auf die Eigenschaft Datensatzherkunft des Listenfeldes klicken und mit einem weiteren Mausklick auf die daraufhin erscheinende Schaltfläche ausführen. Gehen Sie dann folgendermaßen vor:<\/p>\n Die Kriterien sorgen dafür, dass das Listenfeld nur die Wörter anzeigt, die erstens über die Tabelle tblUebersetzungen mit dem im ersten Listenfeld markierten Wort verknüpft sind und zweitens der im zweiten Kombinationsfeld ausgewählten Sprache entsprechen.<\/p>\n Normalerweise müssten Sie die Abfrage nicht gesondert speichern. Im vorliegenden Fall benötigen Sie die Abfrage aber noch einmal und verschaffen sich damit einen einfacheren Zugriff darauf.<\/p>\n <\/b><\/p>\n Das Listenfeld lstZweiteSpracheAlle soll alle Wörter anzeigen, deren Sprache, welche im zweiten Kombinationsfeld ausgewählt ist, entsprechen, die aber keine übersetzung des im ersten Listenfeld ausgewählten Wortes sind.<\/p>\n Das Listenfeld soll dazu dienen, bereits vorhandene Wörter der zweiten Sprache den Wörtern der ersten Sprache zuzuordnen. Auf diese Weise ersparen Sie sich die mehrfache Eingabe von Wörtern und deren Eigenschaften.<\/p>\n Die Datensatzherkunft legen Sie wie im vorherigen Listenfeld über den Abfrageeditor an. Ziehen Sie die Tabelle tblWoerter sowie die soeben erstellte Abfrage qryErsteSprache in das Entwurfsfenster. Gehen Sie dann folgendermaßen vor:<\/p>\n <\/b><\/p>\n Bild 11: Die Verknüpfungseigenschaften in der Abfrage qryDrittesListenfeld<\/span><\/b><\/p>\n Nach der Zuweisung der Datensatzherkünfte der Kombinations- und Listenfelder haben Sie bereits einen großen Teil der Arbeit erledigt. Nun müssen Sie die Steuerelemente des Formulars noch mit ein wenig Funktionalität versehen, damit die Inhalte der Listenfelder auch den jeweils gewünschten Stand haben.<\/p>\n Funktionalität des Formulars frmVokabelverwaltung<\/b><\/p>\n <\/b><\/p>\n Das Formular hat im Wesentlichen zwei Funktionen: Die erste Funktion besteht aus der Aktualisierung nach der Auswahl eines Eintrags in eines der Kombinations- oder Listenfelder. Die zweite Funktion besteht aus Aktionen, die durch die Schaltflächen ausgelöst werden.<\/p>\n Nach der Auswahl der ersten Sprache soll sich auf jeden Fall der Inhalt des Listenfeldes lstErsteSprache ändern. Außerdem muss überprüft werden, ob die im ersten und im zweiten Kombinationsfeld ausgewählten Sprachen nun gleich sind. In dem Fall soll der Inhalt des zweiten Kombinationsfeldes gelöscht werden. Zusätzlich müssen die Inhalte der anderen beiden Listenfelder mit den übersetzungen aktualisiert werden. Dafür sorgt die Prozedur aus Quellcode 1, die Sie für die Ereigniseigenschaft Nach Aktualisierung hinterlegen.<\/p>\n Nach der Auswahl eines Eintrages des Kombinationsfeldes cmbZweiteSprache sollen die beiden Listenfelder mit den übersetzungen aktualisiert werden. Die entsprechende Prozedur (s. Quellcode 2) soll ebenfalls beim Eintreten des Ereignisses Nach Aktualisierung ausgelöst werden.<\/p>\n Wenn der Anwender auf einen Eintrag des ersten Listenfeldes klickt, sollen die beiden anderen Listenfelder die entsprechenden übersetzungen anzeigen. Da die Datensatzherkunft der beiden Listenfelder bereits vorbereitet ist, müssen die beiden Listenfelder nur noch aktualisiert werden.<\/p>\n Legen Sie daher eine Prozedur für das Ereignis Beim Klicken an, die aus genau den gleichen Befehlen besteht, wie die Prozedur Nach Aktualisierung des Kombinationsfeldes cmbZweiteSprache.<\/p>\n Ein Doppelklick auf einen Eintrag des Listenfeldes lstErsteSprache soll das Formular frmVokabeleingabe öffnen und direkt die angeklickte Vokabel anzeigen. Dafür sorgt eine Prozedur, die bei einem Doppelklick auf einen der Einträge des Listenfeldes ausgelöst wird (s. Quellcode 3).<\/p>\n Die Schaltfläche btnNeuesWortEingeben startet die Eingabe eines neuen Wortes in der aktuell im Kombinationsfeld cmbErsteSprachen ausgewählten Sprache. Dazu öffnet die durch einen Mausklick gestartete Prozedur das Formular frmVokabeleingabe (s. Quellcode 4). Im Anschluss an die Eingabe des gewünschten Wortes und seiner Eigenschaften aktualisiert die Prozedur das Listenfeld lstErsteSprache.<\/p>\n Die Schaltfläche btnVokabelLoeschen soll die aktuell ausgewählte Vokabel des Listenfeldes lstErsteSprache löschen.<\/p>\n Die Prozedur, die beim Auslösen des Beim Klicken-Ereignisses der Schaltfläche ausgelöst wird, löscht mit Hilfe einer SQL-Anweisung das im Listenfeld lstErsteSprache ausgewählte Wort und aktualisiert anschließend das entsprechende Listenfeld (s. Quellcode 5)<\/p>\n Die Schaltfläche btnNeueUebersetzung dient dem Anlegen eines neuen Wortes, das gleichzeitig als übersetzung des im ersten Listenfeldes ausgewählten Wortes festgelegt wird. Dazu öffnet die entsprechende Ereignisprozedur (s. Quellcode 6) das Formular frmVokabeleingabe mit dem öffnungsparameter ZweiteSprache.<\/p>\n Das Formular frmVokabeleingabe wertet das öffnungsargument entsprechend aus und legt direkt ein neues Wort in der im Kombinationsfeld cmbZweiteSprache ausgewählten Sprache an. Dabei übernimmt es direkt die Kategorien und die Wortart des im ersten Listenfeld ausgewählten Wortes.<\/p>\n Anschließend aktualisiert die Prozedur das Listenfeld lstZweiteSprache.<\/p>\n Wenn Sie im ersten Listenfeld einen Eintrag ausgewählt haben, zeigen die beiden anderen Listenfelder die übersetzungen in der mit dem Kombinationsfeld cmbZweiteSprache ausgewählten Sprache an.<\/p>\n Dabei enthält das obere Listenfeld die Wörter, die dem Wort aus dem Listenfeld lstErsteSprache zugeordnet sind und das Listenfeld lstZweiteSprache die übrigen.<\/p>\n Nun sollen Sie mit der Schaltfläche btnUebersetzungLoeschen bestehende übersetzungen löschen und durch einen Doppelklick auf die Einträge des Listenfeldes lstZweiteSpracheAlle weitere Wörter als übersetzung hinzufügen können.<\/p>\n Für die Schaltfläche btnUebersetzungLoeschen müssen Sie dazu die Ereignisprozedur aus Quellcode 7 anlegen.<\/p>\n Die beiden SQL-Anweisungen der Prozedur löschen die Einträge mit den in den beiden Listenfeldern lstErsteSprache und lstZweiteSprache ausgewählten Wörtern aus der Tabelle tblUebersetzungen, nicht aber die Wörter selbst. Anschließend aktualisiert die Prozedur die beiden Listenfelder mit den übersetzungen.<\/p>\n Um dem im Listenfeld lstErsteSprache ausgewählten Wort ein Wort des Listenfeldes lstZweiteSpracheAlle zuzuweisen, legen Sie für die Ereigniseigenschaft Beim Doppelklicken des Listenfeldes lstZweiteSpracheAlle die Prozedur aus Quellcode 8 an.<\/p>\n Die Prozedur legt in der Tabelle tblUebersetzungen einen neuen Datensatz mit den in den Listenfeldern lstErsteSprache und lstZweiteSpracheAlle ausgewählten Wörtern an.<\/p>\n Zu guter Letzt sollen Sie auch noch die Einträge des Listenfeldes lstUebersetzungen bearbeiten können. Dazu legen Sie für die Ereigniseigenschaft Beim Doppelklicken die Prozedur aus Quellcode 9 an.<\/p>\n Wenn Sie nun noch eine Schaltfläche zum Schließen des Formulars anlegen und die folgende Prozedur für die Ereigniseigenschaft Beim Klicken der Schaltfläche anlegen, ist das Formular fertig:<\/p>\n Anpassen des FormularsfrmVokabeleingabe<\/b><\/p>\n Es gibt einige Fälle, in der Anwender das Formular frmVokabeleingabe von dem Formular frmVokabelverwaltung aus öffnen Das passiert beispielsweise dann, wenn ein neues Wort oder eine neue übersetzung eingegeben oder wenn ein bestehendes Wort nachträglich bearbeitet werden soll.<\/p>\n Das Formular frmVokabeleingabe übergibt – je nach dem Grund des Aufrufes – unterschiedliche öffnungsargumente an das Formular frmVokabeleingabe.<\/p>\n Die öffnungsargumente werden direkt beim Aufruf des Formulars frmVokabeleingabe und teilweise auch erst beim erneuten Schließen in entsprechenden VBA-Prozeduren verarbeitet. Ei-ne genaue Beschreibung dieser Prozeduren würde den Rahmen dieses Beitrags sprengen, daher sind hier nur die wichtigsten Aufgaben genannt:<\/p>\n Damit Sie die eingegebenen Vokabeln auch noch in Form eines Berichtes ausgeben können, benötigen Sie zunächst ein weiteres Formular, mit dem Sie die gewünschten Eigenschaften für die auszugebenden Vokabeln einstellen können.<\/p>\n Formular zur Einstellung derAusgabeparameter<\/b><\/p>\n Das Formular heißt frmVokabelliste und besteht aus den in Bild 13 zu sehenden Steuerelementen.<\/p>\n Die Kombinationsfelder cmbErsteSprache und cmbZweiteSprache sind mit den gleichnamigen Steuerelementen des Formulars frmVokabelnverwaltung identisch – abgesehen von der Aktualisierung der Listenfelder.<\/p>\n Für das Kombinationsfeld cmbKategorie können Sie den folgenden SQL-Ausdruck eingeben:<\/p>\n Versehen Sie die Kontrollkästchen mit den Namen chkWortart, chkWeiteres, chkKontext und chkLautschrift und setzen Sie deren Standardwert auf 0.<\/p>\n Die Schaltflächen sind ebenfalls schnell erstellt und mit Prozeduren versehen.<\/p>\n Ergänzen Sie die Ereignisprozedur für die Schaltfläche btnVorschau um die folgende Zeile:<\/p>\n Für die Schaltfläche btnDrucken verwenden Sie die gleiche Prozedur, ersetzen aber den Parameter acViewPreview durch acViewNormal.<\/p>\n Die Schaltfläche btnBack ist mit der gleichnamigen Schaltfläche des Formulars frmVokabelverwaltung identisch.<\/p>\n <\/b><\/p>\n Bild 13: Einstellung der auszudruckenden Informationen<\/span><\/b><\/p>\n Abfrage des Berichts zur Ausgabe der Vokabeln<\/b><\/p>\n Die Erstellung des Berichtes ist an zwei Stellen relativ kompliziert: bei der Erstellung der zugrundeliegenden Abfrage für die Wörter der ersten Sprache sowie bei der Zusammenstellung der Wörter für die zweite Sprache während der Berichtsformatierung per VBA.<\/p>\n Das Aussehen der Abfrage können Sie der Abb. 14 entnehmen. Ziehen Sie zunächst die Tabellen tblWoerterKategorien, tblUebersetzungen sowie zweimal die Tabelle tblWoerter in das Entwurfsfenster. Stellen Sie die Beziehungen wie in der Abbildung her und ziehen Sie die angegebenen Felder in das Entwurfsraster. Setzen Sie für das Feld SpracheNr der Tabelle tblWoerter zweimal das folgende Kriterium ein:<\/p>\n <\/b><\/p>\n Für das gleiche Feld der Tabelle tblWoerter_1 verwenden Sie diesen Ausdruck:<\/p>\n Der Grund für das Anlegen zweier mit Oder verknüpften Kriterien ist das Kriterium Kategorie: Wie weiter oben erwähnt, können Sie entweder eine bestimmte Kategorie oder den Wert Alle verwenden, um sämtliche Wörter auszugeben. Daher legen Sie zwei mit Oder verknüpfte Kriterien fest, von denen eines alle Datensätze ausgibt, die der ausgewählten Kategorie entsprechen – oder die Abfrage gibt ungeachtet der Kategorie alle Wörter aus, wenn der Wert des Kombinationsfeldes zur Auswahl der Kategorie 1 ist. Und der Wert 1 entspricht der Kategorie Alle.<\/p>\n Schließlich sollten Sie noch die Eigenschaft Keine Duplikate der Abfrage auf den Wert Ja ändern, damit die Wörter der ersten Sprache nicht für jede übersetzung einmal angezeigt werden. Die Abfrage würde sonst Wörter, für die es mehr als eine übersetzung in der ausgewählten Sprache gibt, auch mehr als nur einmal ausgeben.<\/p>\n Wenn Sie die Funktionalität der Abfrage nun testen möchten, speichern Sie diese zunächst unter dem Namen qryVokabelliste ab. Wählen Sie dann aus dem Formular frmVokabelliste die beiden Sprachen sowie die gewünschte Kategorie aus und öffnen Sie die Abfrage in der Datenblattansicht.<\/p>\n Anlegen des Berichtes zur Ausgabe einer Vokabelliste<\/b><\/p>\n Legen Sie nun einen neuen Bericht an und legen Sie die soeben erstellte Abfrage als Datenherkunft fest. Ziehen Sie anschließend die Felder Wort und WortNr in den Detailbereich des Berichtes.<\/p>\n Setzen Sie die Eigenschaft Sichtbar des Feldes WortNr direkt auf den Wert Nein – Sie benötigen das Feld nur, um die dazugehörenden übersetzungen zu ermitteln. Zusätzlich legen Sie noch ein Feld namens txtUebersetzung an.<\/p>\n Damit der Anwender direkt erkennen kann, auf welche Sprachen und auf welche Kategorie sich die Vokabelliste bezieht, bringen Sie diese Informationen direkt im Berichtskopf und im Seitenkopf unter. Die Anordnung der Steuerelemente können Sie der Abb. 15 entnehmen. Sorgen Sie auf jeden Fall dafür, dass die Eigenschaft Vergrößerbar der Textfelder Wort und txtUebersetzung auf den Wert Ja eingestellt ist.<\/p>\n Und nun kommt der interessante Teil: Sie benötigen noch eine Prozedur, die zu jedem Wort die entsprechenden übersetzungen sowie die gewünschten Eigenschaften zu einer Zeichenkette zusammensetzt und die Zeichenkette in das Textfeld txtUebersetzung schreibt.<\/p>\n <\/b><\/p>\n Die Prozedur soll für jeden Eintrag des Detailbereichs der Berichts je einmal ausgeführt werden. Grundlage der Prozedur ist eine Abfrage, die entsprechend der Abb. 16 aufgebaut ist.<\/p>\n <\/b><\/p>\n Ziehen Sie alle Felder der Tabelle tblUebersetzungen sowie alle Felder der Tabellen tblWoerter und tblWortarten mit Ausnahme der Primärindexfelder in das Entwurfsraster und speichern Sie die Abfrage unter dem Namen qryUebersetzungen.<\/p>\n Anschließend können Sie für die Ereigniseigenschaft Beim Drucken des Detailbereichs die Prozedur aus Quellcode 10 einsetzen. Die Prozedur legt zunächst zwei Datensatzgruppen an: Die erste beinhaltet die Daten der Abfrage qryUebersetzungen und die zweite die Tabelle tblKontexte.<\/p>\n Anschließend filtert die Prozedur die Datensatzgruppen derart, das nur noch die Datensätze vorhanden sind, die sich auf das aktuelle Wort des Detailbereiches und die Sprache der übersetzung beziehen.<\/p>\n Die in den letzten beiden Abschnitten beschriebenen Anweisungen sind nicht mit abgedruckt. Sie können die entsprechende Prozedur aber im angegebenen Modul der Beispieldatenbank finden. <\/p>\n In den folgenden Schritten setzt die Prozedur entsprechend den markierten Kontrollkästchen des Formulars frmVokabelliste die Zeichenkette mit der übersetzung und den weiteren Informationen zusammen.<\/p>\n <\/b><\/p>\n![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic003.png\")
<\/p>\nHinweis<\/h3>\n
Der falsche Weg …<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic004.png\")
<\/p>\n… und der bessere Weg<\/h3>\n
Tabelle zur Speicherung der Wörter<\/h3>\n
Hinweis<\/h3>\n
Tabelle zur Definition einer übersetzung<\/h3>\n
Kontexte zu den unterschiedlichen Wörtern<\/h3>\n
Kategorien der Wörter<\/h3>\n
Hinweis<\/h3>\n
Tabelle der Sprachen<\/h3>\n
Tabelle der Wortarten<\/h3>\n
Automatisches Löschen verknüpfter Daten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic008.png\")
<\/p>\nUnterformular zur Eingabe von Kontexten<\/h3>\n
Unterformular zur Auswahl von Kategorien<\/h3>\n
Anpassen des Kombinationsfeldes zur Auswahl von Kategorien<\/h3>\n
SELECT [KategorieNr], [Kategorie] FROM tblKategorien WHERE [Kategorie])<>\"Alle\";<\/pre>\n
Einfügen der Unterformulare in dasHauptformular<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic009.png\")
<\/p>\nFunktionen des Formulars frmVokabelverwaltung<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic010.png\")
<\/p>\nAnlegen der Steuerelemente des Formulars<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Kombinationsfeld zur Auswahl der Sprachen<\/h3>\n
SELECT [SpracheNr],[Sprache]FROM tblSprachen WHERE [SpracheNr]<>[Forms]![frmVokabelverwaltung]![cmbErsteSprache];<\/pre>\n
Listenfeld mit den zu übersetzenden Wörtern<\/h3>\n
SELECT [WortNr], [SpracheNr], [Wort]FROM tblWoerter WHERE [SpracheNr]=[Forms]![frmVokabelverwaltung]![cmbErsteSprache];<\/pre>\n
Listenfeld zur Anzeige der übersetzungen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic011.png\")
<\/p>\nListenfeld zur Anzeige der restlichenübersetzungen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic012.png\")
<\/p>\nPrivate Sub cmbErsteSprache_AfterUpdate()\r\n Me.cmbZweiteSprache.Requery\r\n If Me.cmbErsteSprache = Me.cmbZweiteSprache Then\r\n Me.cmbZweiteSprache = Null\r\n End If\r\n Me.lstErsteSprache.Requery\r\n Me.lstZweiteSprache.Requery\r\n Me.lstZweiteSpracheAlle.Requery\r\nEnd Sub\r\nPrivate Sub cmbZweiteSprache_AfterUpdate()\r\n Me.lstZweiteSprache.Requery\r\n Me.lstZweiteSpracheAlle.Requery\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic013.png\")
<\/p>\nAuswahl der ersten Sprache<\/h3>\n
Auswahl der zweiten Sprache<\/h3>\n
Auswahl eines Eintrages des Listenfeldes lstErsteSprache<\/h3>\n
Private Sub lstErsteSprache_DblClick(Cancel As Integer)\r\n DoCmd.OpenForm \"frmVokabeleingabe\", OpenArgs:=\"Edit\", _ Wherecondition:=\"[WortNr]=\" & Me.lstErsteSprache, _\r\n WindowMode:=acDialog, DataMode:=acFormEdit\r\nEnd Sub\r\nQuellcode 3\r\nPrivate Sub btnNeuesWort_Click()\r\n If IsNull(Me.cmbErsteSprache) Then\r\n MsgBox \"Wählen Sie zunächst die gewünschte Sprache aus.\"\r\n Exit Sub\r\n End If\r\n DoCmd.OpenForm \"frmVokabeleingabe\", WindowMode:=acDialog, DataMode:=acFormAdd, _ OpenArgs:=\"ErsteSprache\"\r\n DoCmd.Close acForm, \"frmVokabeleingabe\"\r\n Me.lstErsteSprache.Requery\r\nEnd Sub\r\nQuellcode 4<\/pre>\n
Bearbeiten eines Eintrages des Listenfeldes lstErsteSprache<\/h3>\n
Anlegen einer neuen Vokabel in der ersten Sprache<\/h3>\n
Löschen einer Vokabel<\/h3>\n
Anlegen einer neuen übersetzung<\/h3>\n
Private Sub btnWortLoeschen_Click()\r\n DoCmd.RunSQL \"DELETE * FROM tblWoerter WHERE WortNr = \" & Me.lstErsteSprache\r\n Me.lstErsteSprache.Requery\r\nEnd Sub\r\nPrivate Sub btnNeueUebersetzung_Click()\r\n ''Abfrage, ob Einträge der Kombifelder und des ersten Listenfeldes ausgewählt sind\r\n DoCmd.OpenForm \"frmVokabeleingabe\", WindowMode:=acDialog, DataMode:=acFormAdd, _ OpenArgs:=\"ZweiteSprache\"\r\n DoCmd.Close acForm, \"frmVokabelEingabe\"\r\n Me.lstZweiteSprache.Requery\r\nEnd Sub\r\nPrivate Sub btnUebersetzungLoeschen_Click()\r\n DoCmd.RunSQL \"DELETE * FROM tblUebersetzungen WHERE ErsteSprache = \" & _ Me.lstErsteSprache & \" AND ZweiteSprache = \" & Me.lstZweiteSprache\r\n DoCmd.RunSQL \"DELETE * FROM tblUebersetzungen WHERE ErsteSprache = \" & _ Me.lstZweiteSprache & \" AND ZweiteSprache = \" & Me.lstErsteSprache\r\n Me.lstZweiteSprache.Requery\r\n Me.lstZweiteSpracheAlle.Requery\r\nEnd Sub<\/pre>\n
Hinzufügen und Löschen von übersetzungen<\/h3>\n
Private Sub lstZweiteSpracheAlle_DblClick(Cancel As Integer)\r\n DoCmd.RunSQL \"INSERT INTO tblUebersetzungen (ErsteSprache, ZweiteSprache) \" _ & \"VALUES(\" & [Forms]![frmVokabelverwaltung]![lstErsteSprache] & \", \" & _ [Forms]![frmVokabelverwaltung]![lstZweiteSpracheAlle] & \");\"\r\n DoCmd.RunSQL \"INSERT INTO tblUebersetzungen (ErsteSprache, ZweiteSprache) \" _ & \"VALUES(\" & [Forms]![frmVokabelverwaltung]![lstZweiteSpracheAlle] _ & \", \" & [Forms]![frmVokabelverwaltung]![lstErsteSprache] & \");\"\r\n Me.lstZweiteSprache.Requery\r\n Me.lstZweiteSpracheAlle.Requery\r\nEnd Sub\r\nPrivate Sub lstZweiteSprache_DblClick(Cancel As Integer)\r\n DoCmd.OpenForm \"frmVokabelEingabe\", OpenArgs:=\"Edit\", _ WhereCondition:=\"[WortNr] = \" & Me.lstZweiteSprache, WindowMode:=acDialog, _ DataMode:=acFormEdit\r\nEnd Sub<\/pre>\n
Bearbeiten einer übersetzung<\/h3>\n
Schaltfläche zum Schließen des Formulars<\/h3>\n
Private Sub btnBack_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
SELECT [KategorieNr], [Kategorie]FROM tblKategorien;<\/pre>\n
DoCmd.OpenReport \"repVokabeln\", _ acViewPreview<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic014.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic015.png\")
<\/p>\n=[Forms]![frmVokabelliste]![cmbErsteSprache]<\/pre>\n
=[Forms]![frmVokabelliste]![cmbZweiteSprachen]<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic016.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic017.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{66C5BC28-D5E0-4023-954E-CFB69CBE5CBD}\/pic018.png\")
<\/p>\n