hallo
möchte in access das ein textfeld automatisch
Sehr geehrter&" „&[Ansprechpartner]
und
Sehr geehrte&“ "&[Ansprechpartner]
anzeigt.
ich will also das in das feld [Ansprechpartner] die ersten 4 Zeichen erkennt (frau oder Herr) werden und wenn eines davon wahr ist, dann soll in das leere feld automatisch das obige erscheinen.
und wenn nichts drinn steht, soll: Sehr geehrte Damen und Herren, drin stehen.
und wenn : geschäftsleitung drin steht soll auch Sehr geehrte Damen und Herren, drin stehen.
ich nehme an ich müsste es mit einem macro schreiben, weiss aber nicht wie.
kein plan ansonsten
wer kann mir helfen?
ich will also das in das feld [Ansprechpartner] die ersten 4
Zeichen erkennt (frau oder Herr) werden und wenn eines davon
wahr ist, dann soll in das leere feld automatisch das obige
erscheinen.
Hi,
eine kurze Variante wäre z.B. diese:
MeinText = "Sehr geehrte" & iif(left([Ansprechpartner],1)="H","r "," ") & [Ansprechpartner]
und wenn : geschäftsleitung drin steht soll auch Sehr geehrte
Damen und Herren, drin stehen.
Da könnte man nun zu basteln anfangen und IIF verschachteln, aber das obige Beispiel ist schon abschreckend genug 
Vielleicht doch lieber so:
MeinText="Sehr geehrte"
select case left([ansprechpartner],1)
case "h"
MeinText = MeinText & "r " & [Ansprechpartner]
case "f"
MeinText = MeinText & " " & [Ansprechpartner]
case else
MeinText = MeinText & " Damen und Herren!"
end select
Gruß,
Claudio
hallo Claudio
danke erstmal für deine mühen!
ich weiss nur sozusagen nicht genau wie ich das makro aktivieren kann.
im VBA hab ich das schon drinn, aber irgendwie mach ich da noch was falsch.
wäre nett wenn du mir eine kleine beschreibung zurückantworten könntest.
gruss kevin
wäre nett wenn du mir eine kleine beschreibung zurückantworten
könntest.
Das kommt jetzt ganz darauf, wo die Umwandlung geschehen soll. Bei der Eingabe im einem Formular? Bei der Ausgabe als Bericht oder in eine Textdatei?
Ein Makro im Sinne von Access ist es übrigens nicht. Wenn Du den Code in ein Modul steckst und eine Funktion daraus machst, könnte es so aussehen:
Function cAnrede(cAnsprechpartner as string) as string
cAnrede = "Sehr geehrte"
select case left(cAnsprechpartner,1)
case "h"
cAnrede = cAnrede & "r " & cAnsprechpartner
case "f"
cAnrede = cAnrede & " " & cAnsprechpartner
case else
cAnrede = cAnrede & " Damen und Herren!"
end select
end function
An anderer Stelle kannst Du dann einfach schreiben:
MeinText = cAnrede([Ansprechpartner])