PDA

Vollständige Version anzeigen : Frage zu Formularen


Wusel38
23.03.2004, 12:14
Hallo Accessgemeinde,
Bitte helft mir bei meinem Problem.
Ich habe zwei Tabellen, Anrede und Kontaktpersonen
In Anrede zwei Spalten, ID (autowert) und Anrede (Herr, Frau)
In Kontaktarten möchte ich eine Spalte machen, wo das Anschreiben formuliert wird (Sehr geehrter Herr, Frau). In Anrede wird Herr oder Frau ausgewählt und in Anschreiben soll dann gleich das fertige Anschreiben stehen (Sehr geehrter Herr Müller). Das Herr Müller bekomme ich über
=[Anrede] & " " & [Nachname], aber wie bekomme ich das sehr geehrter auch mit da hinein? Vielen Dank für Eure Mühe.

Arne Dieckmann
23.03.2004, 12:21
Ungetestet:

="Sehr geehrte" & WENN([Anrede]="Herr";"r ";" ") & [Anrede] &" " & [Nachname]

TommyK
23.03.2004, 12:27
Hallo Landsmann,

kopiere die Funktion in ein Modul in Deine DB:
Public Function GetAnrede(strAnrede As String, strName As String) As String
If strAnrede = "Herr" Then
GetAnrede = "Sehr geehrter " & strAnrede & " " & strName
Else
GetAnrede = "Sehr geehrte " & strAnrede & " " & strName
End If
End Function

Der Aufruf wäre dann:

=GetAnrede([Anrede];[Nachname])

Wusel38
23.03.2004, 12:31
für Deine schnelle Antwort, funktioniert ausgezeichnet. Könnte man das WENN noch erweitern? Z.B. Wenn in Anrede Hallo steht das dann in Anschreiben Hallo und der Vorname Steht?
Schon mal danke für Deine Nachsicht mit einem Unwissenden.

Arne Dieckmann
23.03.2004, 12:36
Könnte man sicherlich, aber dann wird es meistens etwas unübersichtlich. Mit einigen Abwandlungen in Tommys Funktion ist das sicherlich einfacher zu managen:

Public Function GetAnrede(strAnrede As String, strName As String, strVorname) As String

select case strAnrede
case is = "Herr"
GetAnrede = "Sehr geehrter " & strAnrede & " " & strName
case is ="Frau"
GetAnrede = "Sehr geehrte " & strAnrede & " " & strName
case is ="Hallo"
GetAnrede="Hallo " & strVorname
end Select

End Function


Und dann als Steuerelementinhalt:

=GetAnrede([Anrede];[Nachname];[Vorname])

Wusel38
23.03.2004, 12:51
für Eure schnelle Hilfe, genau so etwas habe ich gesucht.