Serienbrief

Computer: Software & Programmierung Microsoft Access
#1

Hallo Leute,
ich habe einen Serienbrief, den ich mit folgender Prozedur mit den Spalteninhalten füllen lasse.

Private Sub Rahmenvertrag_ausdrucken_Click()

Dim oApp As Object
Dim vorlage As String
Dim text As String
Dim Vorname As String
Dim Vorname1 As String

Set oApp = CreateObject(„Word.Application“)
oApp.Visible = True

vorlage = („X:\GDD\Oeffentlich\Rahmenvertrag Serienbrief.doc“)

oApp.Documents.Add Template:=vorlage

If Not IsNull(Me!Nachname) Then
oApp.Selection.Goto What:=-1, Name:=„Nachname“
text = Me!Nachname
oApp.Selection.TypeText text:=text
End If
If Not IsNull(Me!Vorname) Then
oApp.Selection.Goto What:=-1, Name:=„Vorname“
text = Me!Vorname
oApp.Selection.TypeText text:=text
End If
usw.

Ich möchte nun eine If,Then Else schleife einbauen, die zunächst die Spalte Anrede abfragt, ob Text „Herr“ darin steht und dann unter der Textmarke „Sonstige_Vereinbarungen“ den Text „-Keine-“ schreibt. Sonst Text „Alle“.

Das hab ich bisher:
If (Me!Anrede) = „Herr“ Then
oApp.Selection.Goto What:=-1, Name:=„Sonstige_Vereinbarungen“
text = „-Keine-“
Else: text = „-Alle-“
oApp.Selection.TypeText text:=text
End If

Leider funktioniert das noch nicht ganz. Hat jemand von Euch eine Idee ?

Gruß Christian

#2

Hallo,

und WAS geht nicht?

vermutlich muß es so heißen:

If nz(Me!Anrede,"") = „Herr“ Then

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

ne, das war’s noch nicht !

Hallo Franz, er setzt den Text einfach nicht an der gewünschten Textmarke ein.
Er meckert zwar nicht, aber er tut auch nicht das was ich möchte !

Gruß Christian

Name der Textmarke: „Sonstige_Vereinbarungen“

#4

Hallo,

entfern mal den Unterstrich…

#5

auch das war´s noch nicht.
Habe sowohl aus vba als auch aus dem Seriendokument die Textmarke berichtigt.

Noch ne Idee ?

Christian

#6

… Hallo Franz,
ich glaub ich ich bin einen Schritt weiter.
wenn ich die Else Anweisung blockiere, macht er das.
Ich muss die Else Anweisung nochmal überprüfen !
wenn Du eine Idee hast, immer her damit.

Gruß Chrischi

#7

Guten Tag.

If (Me!Anrede) = „Herr“ Then
oApp.Selection.Goto What:=-1,
Name:=„Sonstige_Vereinbarungen“
text = „-Keine-“
Else: text = „-Alle-“
oApp.Selection.TypeText text:=text
End If

Was soll der Doppelpunkt hinter Else? Das wäre, wenn es so funktioniert, eine Sprungmarke … außerdem wären mir Bezeichner „Name“ und Bezeichner „Text“ schon mal rotzverdächtig (reservierte Wörter!).

GEK

#8

Hallo Franz,

Klasse ich habs hinbekommen !! - Danke

Christian