Export von Access nach Word

[Jedo65]

Es geht um Textmarken in Word und den passenden VBA Code in Access.

Ich gebe Ihnen hier ein Beispiel:

Das Feld [KFZ vorhanden] ist ein JA/Nein Feld in Access 2013

Das Feld [Tüv Bericht] ist ein Textfeld (langer Text) in Access 2013

Wenn also [KFZ vorhanden] aktiviert und ein Text im Textfeld [Tüv Bericht] steht, soll im Word-Formular mit Hilfe der Textmarke "Bemerkung" folgender Text : "Eine Aufstellung der Mängel liegt vor." eingefügt werden.
Wenn  [KFZ vorhanden] aktiviert und kein Text im Textfeld [Tüv Bericht] steht, soll im Word-Formular mit Hilfe der Textmarke "Bemerkung" folgender Text : "Eine Aufstellung der Mängel liegt nicht vor." eingefügt werden.

Mein VBA Code sieht so aus:

If rsKunde![KFZ vorhanden] = True And rsKunde![Tüv Bericht] = True Then

worddoc.Bookmarks("Bemerkung").Range = "Eine Aufstellung der Mängel liegt vor."
Else
worddoc.Bookmarks("Bemerkung").Range = "Eine Aufstellung der Mängel liegt nicht vor."
End If
Leider funktioniert der nicht.
Kann mir jemand helfen?

[DF6GL]

Zunächst mal guten Tag...


Ein Text kann nicht True oder False sein.

Etwa So:

Code [Auswählen] Erweitern


If rsKunde![KFZ vorhanden]  And Len(nz(rsKunde![Tüv Bericht],0)) > 0 Then

[Jedo65]

DANKE für die schnelle Antwort.
Leider funktioniert das auch nicht

[DF6GL]

WAS funktioniert nicht ? 

Gibt es Fehlermeldungen und wie lauten die?

WIE lautet die gesamte Prozedur?

Wird der Code überhaupt durchlaufen?  (Einzelschritt)


Weiterhin sollte die Zuweisung eines Strings sollte an die TEXT-Eigenschaft des Range-Objectes erfolgen:


worddoc.Bookmarks("Bemerkung").Range.Text = "Eine Aufstellung der Mängel liegt vor."