Briefanrede per Funktion

Diese Funktion bietet die Möglichkeit eine Fertige Briefanrede in einer Abfrage zur Verfügung zu stellen um damit z.B. in Word einen Serienbrief zu erstellen. In die Funktion müssen die Anrede ("Herr" oder "Frau"), der Titel (z.B. "Dr." oder "Prof."), der Nachname und die Sprache ("deu" oder "eng") übergeben werden.

Code:

Public Function BriefAnrede(Anrede As Variant, Titel As Variant, _ NachN As Variant, Spra As String)   ' ---------------------------------------------------------- ' Diese Funktion setzt aus "Anrede", "Titel" und "Nachname" ' die korreket Brief-Anrede zusammen und gibt diese zurück. ' Zusätzlich kann in die Funktion die Sprache mit über- ' geben werden. Aktuell stehen in der Funktion "deu" für ' deutsch und "eng" für englisch zur Verfügung. ' ----------------------------------------------------------   On Error GoTo fehler   ' Titel vorbelegen If IsNull(Titel) Or Titel = "" Then Titel = "" Else Titel = " " & Titel End If   ' Nachname vorbelegen NachN = " " & NachN   ' Auswerten der Daten If IsNull(Anrede) Or Anrede = "" Then Select Case Spra Case "deu" BriefAnrede = "Sehr geehrte Damen und Herren," Case "eng" BriefAnrede = "Dear Sirs," End Select Else Select Case Spra Case "deu" Select Case Anrede Case "Frau", "Fr", "Fr.", "Frl.", "Frl", _ "Fräulein", "Misses", "Mrs", "Mrs." BriefAnrede = "Sehr geehrte Frau" & _ Titel & NachN & "," Case "Herr", "Herrn", "Mister", "Mr", "Mr." BriefAnrede = "Sehr geehrter Herr" & _ Titel & NachN & "," End Select Case "eng" Select Case Anrede Case "Frau", "Fr", "Fr.", "Frl.", "Frl", _ "Fräulein", "Misses", "Mrs", "Mrs." BriefAnrede = "Dear Mrs." & Titel & _ NachN & "," Case "Herr", "Herrn", "Mister", "Mr", "Mr." BriefAnrede = "Dear Mr." & Titel & _ NachN & "," End Select End Select End If   ende: Exit Function   fehler: Resume ende   End Function

Der Aufruf im Direktfenster ? Briefanrede("Herr", "", "Müller", "deu") liefert folgendes Ergebnis zurück "Sehr geehrter Herr Müller,"

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!