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?
Zunächst mal guten Tag...
Ein Text kann nicht True oder False sein.
Etwa So:
If rsKunde![KFZ vorhanden] And Len(nz(rsKunde![Tüv Bericht],0)) > 0 Then
DANKE für die schnelle Antwort.
Leider funktioniert das auch nicht :-\
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."