Nochmal access

Computer: Software & Programmierung Microsoft Access
#1

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?

#2

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 :smile:

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

#3

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

#4

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])