Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: Arnostone am August 09, 2013, 09:18:45

Titel: E-Mail-Text mittels Access-VBA verschicken
Beitrag von: Arnostone am August 09, 2013, 09:18:45
Hallo,

jetzt wirds knifflig:
Ich verschicke mittels VBA einen Standard-E-Mail-Text. Das geht auch problemlos. Nun ist es aber so, dass ich im Formular 3 Kontrollkästchen für Fächer (Mathe, Deutsch, Bio) habe, die jeweils per Haken ausgewählt werden können. Hiermit wird jeweils in einem Feld bei Auswahl eine "-1" geschrieben.
Kann ich nun den Standard-E-Mail-Text derart verändern, dass bei einem Häkchen (also Eintrag "-1") der Standard-Text um ein Wort (z.B. "Mathe, Deutsch") erweitert wird? Der Text soll dann z.B. heißen "Sie haben die Prüfung 'in Mathe', 'Deutsch' bestanden" statt "Sie haben die Prüfung bestanden". 
Wie kann man das in VBA programmieren, geht das überhaupt (vielleicht mittels if-Regel?).

Danke, Arno
Titel: Re: E-Mail-Text mittels Access-VBA verschicken
Beitrag von: DF6GL am August 09, 2013, 09:36:30
Hallo,

sicher geht das...

wobei erst noch zu klären ist, ob es von Deinem Konzept aus zulässig ist , mehrere KKs anhaken zu können...

Wie Du schon erwähnt hast, kann das Ganze mittels If-Bedingungen oder besser einer Select Case - Konstruktion behandelt werden.
Titel: Re: E-Mail-Text mittels Access-VBA verschicken
Beitrag von: Arnostone am August 09, 2013, 10:30:14
Wie schnell man hier antworten bekommt, super. Ja, es ist zulässig, mehrere Haken zu setzen, im Prinzip also 0 bis 3. Da ich VBA-Laie bin, wäre mir an einem entsprechenden Beispiel für eine solche if-Programmierung sehr gelegen, so dass ich es lernend nachvollziehen kann.
Danke
Titel: Re: E-Mail-Text mittels Access-VBA verschicken
Beitrag von: DF6GL am August 09, 2013, 10:44:09
Hallo,

wieso 0 bis... ?

Bei 3 KKs sind 8  Möglichkeiten denkbar, die (im Prinzip) allesamt mit einer IIF-Schachtelung abgefragt werden müssen:


If Me!deutsch and not Me!Mathe and Not Me!Bio Then
 strMsg =" Deutsch bestanden"
ElseIf Me!deutsch and  Me!Mathe and Not Me!Bio Then
 strMsg =" Deutsch und Mathe  bestanden"
ElseIf Me!deutsch and  Me!Mathe and  Me!Bio Then
 strMsg =" Deutsch, Mathe und Bio bestanden"
ElseIf Not Me!deutsch and  Me!Mathe and  Me!Bio Then
 strMsg =" Mathe und Bio bestanden"
.
.
.
ElseIf Not Me!deutsch and  Not Me!Mathe and  Not Me!Bio Then
 strMsg ="Nix bestanden"

End If
Titel: Re: E-Mail-Text mittels Access-VBA verschicken
Beitrag von: Arnostone am August 09, 2013, 12:47:50

Hervorragend, das klappt wirklich wie gedacht. Großen Dank!
Arno ;D