![\"Entwurf](\"..\/tl_files\/images\/pic_348_002.png\")
<\/a><\/p>\nBild 1: Entwurf der Tabelle tblKunden<\/p>\n
Bild 2: Beispielvorlage als Textdatei<\/p>\n tblAnreden <\/b>enthält die Felder ID <\/b>(Primärschlüsselfeld) und Bezeichnung<\/b> sowie zwei Felder mit speziellen Formen der Anrede: AnredeAdresse <\/b>nimmt die Form der Anrede für den Adressblock auf (Herrn<\/b>\/Frau<\/b>), AnredeBrief <\/b>die Anrede für die erste Zeile des Brieftextes (Sehr geehrter Herr<\/b>\/Sehr geehrte Frau<\/b>) – siehe Bild 3.<\/p>\n Bild 3: Die Tabelle tblAnreden mit einigen Werten<\/p>\n Nun benötigen wir noch eine Abfrage, welche die Daten der beiden Tabellen so zusammenführt, dass wir diese in der anschließend zu erstellenden VBA-Prozedur zum Ersetzen der Platzhalter nutzen können. Diese Abfrage soll die beiden Tabellen tblKunden <\/b>und tblAnreden <\/b>als Datenherkunft nutzen und alle Felder dieser beiden Tabellen mit Ausnahme des Feldes AnredeID <\/b>der Tabelle tblKunden <\/b>und des Feldes ID <\/b>der Tabelle tblAnreden <\/b>enthalten. Der Entwurf dieser Abfrage, die wir unter dem Namen qryKundenMitAnrede <\/b>speichern, sieht wie in Bild 4 aus.<\/p>\n Bild 4: Entwurf der Abfrage qryKundenMitAnrede<\/p>\n Das Ergebnis der Abfrage aus Bild 5 liefert alle Daten der Tabelle tblKunden <\/b>plus die dazugehörigen Anreden aus der Tabelle tblAnreden<\/b>.<\/p>\n Bild 5: Die Abfrage qryKundenMitAnrede in der Datenblattansicht<\/p>\n Die Funktionen zum Auswählen der Vorlage mit den Platzhaltern, zum Auswählen der Zieldatei und zum Festlegen des Kunden, für den die Vorlage gefüllt werden soll, wollen wir in eine Benutzeroberfläche integrieren – sprich: in ein Formular. Dieses sieht in der Entwurfsansicht wie in Bild 6 aus. Es enthält im oberen Bereich zwei Textfelder namens txtVorlage <\/b>und txtZiel<\/b>. In beiden soll der Benutzer die Namen der Dateien eintragen, die verwendet werden sollen. Beide Dateien sollen der Einfachheit halber im Verzeichnis der aktuellen Datenbankdatei liegen.<\/p>\n Bild 6: Das Formular frmPlatzhalterErsetzen in der Entwurfsansicht<\/p>\n Die Schaltfläche rechts vom Textfeld für die Vorlagendatei soll die angegebene Datei zum Betrachten und Bearbeiten öffnen. Dazu löst diese die Prozedur cmdVorlageOeffnen <\/b>aus (siehe Listing 1). Diese fügt den mit CurrentProject.Path <\/b>ermittelten Datenbankpfad und die im Textfeld txtVorlage <\/b>angegebene Datei in einer Variablen namens strVorlage <\/b>zusammen und prüft mithilfe der Dir<\/b>-Funktion, ob die Datei überhaupt vorhanden ist. Diese Funktion würde in diesem Fall den reinen Dateinamen zurückliefern. Hat Dir(strVorlage) <\/b>also eine Länge größer 0<\/b>, dann ist die Datei vorhanden.<\/p>\n Listing 1: Anzeige der Vorlagendatei im Text-Editor<\/p>\n In diesem Fall ruft die Prozedur eine weitere Routine namens DateiOeffnen <\/b>auf, die im Modul mdlTools <\/b>angelegt ist. Diese verwendet eine API-Funktion namens ShellExecute<\/b>, um die mit dem Parameter strPfad <\/b>übergebene Datei zu öffnen (siehe Listing 2).<\/p>\n Listing 2: Diese Prozedur öffnet ein neues Formular oder zeigt dieses an, wenn es bereits geöffnet ist.<\/p>\n Das Listenfeld lstKunden <\/b>dient der Anzeige aller Kunden der Abfrage qryKundenMitAnrede <\/b>und der Auswahl des Kunden, für den die Platzhalter in der Vorlage ersetzt werden sollen. Dazu stellen Sie die Eigenschaft Datensatzherkunft <\/b>auf den Namen der Abfrage qryKundenMitAnrede <\/b>ein. Damit das Primärschlüsselfeld der Abfrage nicht angezeigt wird, sondern nur die ersten beiden Felder Vorname <\/b>und Nachname<\/b>, stellen Sie die Eigenschaft Spaltenanzahl <\/b>auf den Wert 3 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf den Wert 0cm;4cm;4cm <\/b>ein.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\nAbfrage als Quelle für die Platzhalter<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nFormular zum Füllen der Platzhalter in der Textdatei<\/h2>\n
<\/a><\/p>\nVorlagendatei öffnen<\/h2>\n
Private Sub <\/span>cmdVorlageOeffnen_Click()\r\n Dim <\/span>strVorlage As String<\/span>\r\n strVorlage = CurrentProject.Path & \"\\\" & Me!txtVorlage\r\n If <\/span>Len<\/span>(Dir(strVorlage)) > 0 Then<\/span>\r\n DateiOeffnen strVorlage\r\n Else<\/span>\r\n MsgBox<\/span> \"Die Datei '\" & Me!txtVorlage & \"' ist nicht im aktuellen Ordner der Datenbank vorhanden.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic <\/span>Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hWnd As Long<\/span>, ByVal lpOperation As String<\/span>, ByVal lpFile As String<\/span>, ByVal lpParameters As String<\/span>, ByVal lpDirectory As String<\/span>, ByVal nshowcmd As Long<\/span>) As Long<\/span>\r\nPublic <\/span>Const SW_NORMAL = 1\r\nPublic Function <\/span>DateiOeffnen(strPfad As String<\/span>) As Boolean<\/span>\r\n Call<\/span> ShellExecute(0, \"open\", strPfad, \"\", \"\", SW_NORMAL)\r\nEnd Function<\/span><\/pre>\nAuswahl des Kunden, mit dem die Platzhalter gefüllt werden sollen<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t