Hallo,
ich möchte die Daten, von 2 Datensätzen, die miteinander verknüpft sind in ein Word-Formular an vorher definierte Textmarken ausgeben.
Der Datensatz1 (tab_Kunden) wird im aktuellen Formular Forms!frm_HFKunden angezeigt.
In diesem Datensatz befindet sich für den Kunden ein Anredeschlüssel (01 für Frau, 02 für Herrn, usw.). Die ausgeschriebene Anrede ist in der Tabelle tab_Anrede abgespeichert.
Wie kann ich in meinem Modul die ausgeschriebene Anrede aus der Tabelle tab_Anrede aufgrund des vorhandenen Anredeschlüssels auslesen und nach Word ausgeben.
Nachfolgend ein Auszug aus meinem Modul:
strNameFirma = Forms!frm_HFKunden!Firma
strFirmaAnsprechpartnerAnrede = Forms!frm_HFKunden!Ap1Anredeschlüssel '(Dahinter versteckt sich der Anredeschlüssel 01, 02, …)
Set appWord = CreateObject(„Word.Application“)
With appWord
.Documents.Add Pfad & „“ & Dokument '(Speicherort des Rohdokuments)
.ActiveDocument.ShowSpellingErrors = False
.Selection.Goto wdGotoBookmark, Name:=„NameFirma“
.Selection.TypeText strNameFirma
Vielen Dank.
Bernd
PS: Weiß jemand, wie man Textmarken in Excel definieren kann? Als nächstes muß ich Daten in ein Excelformular ausgeben…Reicht man den kleinen Finger, wird gleich die ganze Hand…