{"id":55000208,"date":"2014-02-01T00:00:00","date_gmt":"2020-01-24T15:58:56","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=208"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Platzhalter_in_Texten_ersetzen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Platzhalter_in_Texten_ersetzen.html","title":{"rendered":"Platzhalter in Texten ersetzen"},"content":{"rendered":"

In Datenbanken kommt es sehr oft vor, dass an bestimmten Stellen Texte einzufügen sind. Meist bildet man dies durch den Einsatz von Textfeldern ab, welche die Daten der entsprechenden Datensätze aufnehmen. Oft sollen jedoch auch Fließtexte flexibel mit Texten gefüllt werden – beispielsweise Texte von E-Mails oder Word-Dokumente. Wir kümmern uns in diesem Artikel um den weniger komplexen Fall der reinen Textdatei, wie er auch in E-Mails zum Einsatz kommt. Eine E-Mail soll mit einem Text gefüllt werden, der zunächst noch Platzhalter enthält, die aber durch entsprechende Einträge einer Tabelle oder Abfrage ersetzt werden sollen.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1307_PlatzhalterInTextenErsetzen.mdb<\/b>.<\/p>\n

Beispielbeschreibung<\/h2>\n

Im Beispiel sollen ein Text nur einmal getippt, aber mehrfach genutzt werden können – quasi als eine Art Textvorlage. Diese Vorlage soll Platzhalter in einem bestimmten Format enthalten, die später durch Einträge in einer Tabelle der Datenbank ersetzt werden sollen.<\/p>\n

Ziel ist es, ein Formular wie das aus Bild 1 zu erstellen. Das Formular speichert die auf der linken Seite dargestellten Daten in einer Tabelle, um Textvorlagen und Quelltabellen wiederverwendbar zu machen. Oben wählen Sie die Textvorlage anhand der Bezeichnung aus.<\/p>\n

\"Beispielformular<\/a><\/p>\n

Bild 1: Beispielformular für das Ersetzen von Platzhaltern<\/p>\n

Dann legen Sie die Datenquelle fest, aus der die für die Platzhalter einzusetzenden Daten stammen. Das Textfeld Textvorlage <\/b>schließlich nimmt den Text mit den Platzhaltern auf. Ein Klick auf die Schaltfläche Platzhalter ersetzen <\/b>soll den Text von links mit konkreten Werten aus der angegebenen Tabelle füllen und den Inhalt rechts abbilden.<\/p>\n

Zu Beispielzwecken geschieht das Ersetzen zunächst nur mit dem ersten Datensatz der angegebenen Datenquelle.<\/p>\n

Tabelle zum Speichern der Textvorlagen<\/h2>\n

Die Textvorlagen speichern wir in einer Tabelle namens tblTextvorlagen<\/b>. Diese enthält neben dem Primärschlüsselfeld TextvorlageID <\/b>noch ein Textfeld namens Bezeichnung <\/b>sowie ein Memofeld namens Textvorlage<\/b>, welche den eigentlichen Text aufnimmt. Außerdem bereiten wir ein Feld namens Datenquelle <\/b>vor, dass die Tabelle oder Abfrage aufnimmt, deren Daten für die Platzhalter eingesetzt werden soll. Den Entwurf der Tabelle finden Sie in Bild 2.<\/p>\n

\"Entwurfsansicht<\/a><\/p>\n

Bild 2: Entwurfsansicht der Tabelle tblTextvorlagen<\/p>\n

Die im Feld Textvorlage<\/b> gespeicherten Texte sollen Platzhalter in der Form [Platzhalter] <\/b>aufnehmen. Diese sollen dann für einen bestimmten Datensatz der dafür vorgesehenen Tabelle oder Abfrage mit den entsprechenden Werten ersetzt werden. <\/p>\n

Formulare zum Ersetzen der Platzhalter<\/h2>\n

Erstellen Sie ein neues Formular und speichern Sie es unter dem Namen frmPlatzhalter<\/b>. Stellen Sie dann die Datenherkunft des Formulars auf die Tabelle tblTextvorlagen <\/b>ein. Ziehen Sie die Felder Bezeichnung<\/b>, Datenquelle <\/b>und Textvorlage <\/b>in den Entwurf des Formulars und platzieren Sie diese etwa so wie in Bild 3.<\/p>\n

\"Entwurfsansicht<\/a><\/p>\n

Bild 3: Entwurfsansicht des Formulars frmPlatzhalter<\/p>\n

Ganz oben legen wir ein Kombinationsfeld an, mit dem Sie schnell eine der Textvorlagen auswählen können. Dieses heißt cboSchnellauswahl <\/b>und erhält die folgende Abfrage als Datensatzherkunft:<\/p>\n

SELECT TextvorlageID, Bezeichnung \r\nFROM tblTextvorlagen;<\/pre>\n
Stellen Sie die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf die Werte 2 <\/b>und 0cm <\/b>ein, damit nur die Bezeichnungen der Textvorlagen im Kombinationsfeld angezeigt werden.<\/p>\n
Damit das Formular nach der Auswahl eines der Einträge gleich den entsprechenden Datensatz anzeigt, hinterlegen Sie für die Ereigniseigenschaft Nach Aktualisierung <\/b>die Prozedur aus Listing 1.<\/p>\n
Private Sub <\/span>cboSchnellauswahl_AfterUpdate()\r\n     Me.Recordset.FindFirst \"TextvorlageID = \" & Me!cboSchnellauswahl\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Aktualisieren der Textvorlage<\/p>\n
Das Feld Datenquelle <\/b>des Formulars wandeln Sie nach dem Hineinziehen aus der Feldliste von einem Textfeld in ein Kombinationsfeld um. Dies erledigen Sie mit dem Eintrag ändern zu|Kombinationsfeld <\/b>des Steuerelements in der Entwurfsansicht des Formulars. Damit das Kombinationsfeld alle Tabellen und Abfragen der aktuellen Datenbank anzeigt, stellen sie die Eigenschaft Datensatzherkunft<\/b> des Kombinationfelds auf den folgenden Ausdruck ein:<\/p>\n
SELECT Name FROM MSysObjects \r\nWHERE Type IN (1,5);<\/pre>\n
Platzhalter ersetzen<\/h2>\n
Nun fehlt eigentlich nur noch die Ereignisprozedur, die durch das Ereignis Beim Klicken <\/b>der Schaltfläche Platzhalter ersetzen <\/b>ausgelöst wird.<\/p>\n
Diese finden Sie in Listing 2. Die Prozedur deklariert drei Variablen:<\/p>\n
Private Sub <\/span>cmdPlatzhalterErsetzen_Click()\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>rst As <\/span>DAO.Recordset\r\n     Dim <\/span>fld As <\/span>DAO.Field\r\n     Dim <\/span>strText As String<\/span>\r\n     Set<\/span> db = CurrentDb\r\n     Set<\/span> rst = db.OpenRecordset(\"SELECT TOP 1 * FROM \" & Me!cboDatenquelle)\r\n     strText = Me!Textvorlage\r\n     For Each fld In rst.Fields\r\n         strText = Replace<\/span>(strText, \"[\" & fld.Name & \"]\", fld.Value)\r\n     Next<\/span> fld\r\n     Me!txtGefuellterText = strText\r\nEnd Sub<\/span><\/pre>\n
Listing 2: Ersetzen der Platzhalter durch die Inhalte der Felder des ersten Datensatzes der angegebenen Datenquelle<\/p>\n