Daten eines Formulars einer Access Datenbank sollen in Word ausgegeben werden. Das funktioniert ganz wunderbar nur leider wird immer nur der erste Datensatz übergeben und die Filter (Daten jeweils einer bestimmten Nr) nicht berücksichtigt.
Sub HinzuwordAusz()
‚Öffnet das Wordformular Brief und fügt die Daten zu.‘
Dim db As Database, Ab As Recordset
Dim word As Variant
Set db = CurrentDb
Set Ab = db.OpenRecordset(„ESFAnteilAuszahlung“)
db.OpenRecordset („ESFAnteilAuszahlung“)
Set word = GetObject(, „Word.Application“)
word.Visible = True
word.Documents.Open FileName:=„C:\Programme\Microsoft Office\Vorlagen\ABMA.dot“
word.ActiveDocument.FormFields(„Text9“).Result = Ab![PrüferKürzel]
word.ActiveDocument.FormFields(„Text10“).Result = Ab![Durchwahl]
word.ActiveDocument.FormFields(„Text11“).Result = Ab![PNr]
word.ActiveDocument.FormFields(„Text12“).Result = Ab![Projektname]
word.ActiveDocument.FormFields(„Text13“).Result = Ab![Abgerechnet 99:]
End Sub