Automatisches Generieren der Anrede / BriefAnrede
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: