if then Alternative

01/12/2009 - 01:30 von Lupus Goebel | Report spam
Hallöschen,

mh, grübel gerade über eine Funktion.

In einer For i schleife verarbeite ich einen Datumszeitraum, der
unterschiedlich lang sein kann.
In der Schleife soll geprüft werden, ob darin Sonntage, Samstag
enthalten sind. Je nach dem, ob an den tagen was sein soll oder nicht,
wird ein Befehl ausgeführt.

Also
1. Mo - Party
2. Di - Party
3. Mi - Party
4. Do - Party
5. Fr - Party
6. Sa - Party
7. So - Party

Nun kann per Formular der Booleanwert strAuchSa und strAuchSa TRue oder
False geschaltet werden.

Dann könnte das so aussehen:

1. Mo - Party
2. Di - Party
3. Mi - Party
4. Do - Party
5. Fr - Party
6. So - Party

Die Daten werden dann so auch in eine Tabelle übergeben.

Mache es zur zeit so
\\\
If Weekday(i, vbMonday) = 7 Or Weekday(i, vbMonday) = 6 Then
If Weekday(i, vbMonday) = 7 Then
If strAuchSo = True Then
Debug.Print "Sonntag auch"
Ausführen Insert SQL mit Sonntag
End If
End If

If Weekday(i, vbMonday) = 6 Then
If strAuchSa = True Then
Debug.Print "Samstag auch"
Ausführen Insert SQL mit Samstag
End If
End If
Else
Debug.Print "Werktage immer"
End If
///

Nun frage ich mich, geht das auch einfacher? Nur mal aus neugierde.


MfG - Lupus Goebel
Der Sumpf- Morasthobbybastler und Anfaenger mit
Wissensdurst (http://www.lupusdw.de http://foto.lupusdw.de)
Urlaub macht man in Irland: http://www.eaglesnest-bb.com/
 

Lesen sie die antworten

#1 Henry Habermacher
01/12/2009 - 02:54 | Warnen spam
Hallo Lupus

Lupus Goebel wrote:
Nun frage ich mich, geht das auch einfacher? Nur mal aus neugierde.



Schreibe mal "SELECT" im VBA editor and drücke dann F1 ;-)

SELECT CASE Weekday(i, vbMonday)
CASE 7
...
CASE 6
...
CASE ELSE
END SELECT

HTH
Henry



Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen