Herausforderung:

Der Anwender soll nicht die "Anrede" und "BriefAnrede" manuell erfassen. Über ein Auswahlfeld "Geschlecht" sollen anschließend über ein Makro die "Anrede" und "BriefAnrede" automatisch generiert werden.

Lösung:

In der Anlage finden Sie eine beispielhafte Ansicht mit einem Schalter "BriefAnrede generieren" hinter der der Makro liegt. Links gibt es ein Adressfeld für die Eingabe mit einem Optionsfeld "Geschlecht". Rechts gibt es ein schreibgeschütztes Standardadressfeld mit "Anrede" und "BriefAnrede", so dass man direkt die Eingabe und Funktion des Schalters prüfen kann.

Voraussetzung:
Es gibt ein Feld "Geschlecht" vom Typ Kennzeichen mit den Ausprägungen:
w = weiblich
m = männlich

Zielsetzung:
Damit sollen die Felder "Anrede" (NameSalutation) und "BriefAnrede" (Salutation) automatisch bestückt werden.

Erweiterung:
In Verbindung mit einem Feld vom Typ Kennzeichen "Korrespondenzsprache" könnte man auch verschieden sprachige Anreden geniereren.

Der Makro selbst:
' "BriefAnrede", "Anrede" aus Geschlecht füllen

If ActiveAddress.Fields("NameTitle").Value <> "" then
 Select Case ActiveAddress.Fields("DAS_Geschlecht").Value
  Case "M"
   ActiveAddress.Fields("NameSalutation").Value = "Herr"
   ActiveAddress.Fields("Salutation").Value = "Sehr geehrter Herr " & ActiveAddress.Fields("NameTitle").Value & " " & ActiveAddress.Fields("NameLast").Value & ","
  Case "W"
   ActiveAddress.Fields("NameSalutation").Value = "Frau"
   ActiveAddress.Fields("Salutation").Value = "Sehr geehrte Frau " & ActiveAddress.Fields("NameTitle").Value & " " & ActiveAddress.Fields("NameLast").Value & ","
 End Select
Else
 Select Case ActiveAddress.Fields("DAS_Geschlecht").Value
  Case "M"
   ActiveAddress.Fields("NameSalutation").Value = "Herr"
   ActiveAddress.Fields("Salutation").Value = "Sehr geehrter Herr " & ActiveAddress.Fields("NameLast").Value & ","
  Case "W"
   ActiveAddress.Fields("NameSalutation").Value = "Frau"
   ActiveAddress.Fields("Salutation").Value = "Sehr geehrte Frau " &  ActiveAddress.Fields("NameLast").Value & ","
 End Select
End If

Angehängte Dateien:

• BriefAnrede_generieren.zip