Default Woche

[boehnli01]

Hallo Zusammen,

Ich habe ein Tabellen Formular "frm_Shift_Pattern_Details"  die basiert auf Tabella "tab_Shift_Pattern" das sieht wie folgt aus:

WEEK1    DATE1                SCHICHT1 ETC
W-29      18.07.2013          20 PERS
W-29      19.07.2013          10 PERS
W-30      22.07.2013          9 PERS
W-30      23.07.2013          15 PERS

Nun möchte das beim Oeffnen diese Formulares automatisch NUR die aktuelle Woche erscheint.

Weis jemand wie das funktioniert ?

Danke Cédric

[daolix]

Hallo

z.b. mit nem Filter, welcher beim Laden gesetzt wird

Code [Auswählen] Erweitern


private sub form_load()
me.filteron = false
me.filter = "right(WEEK1,2) = '" & datePart("ww", now()) & "'"
me.filteron=true
end sub

Bedenke aber die Berechnung der KW mit Datepart ist nicht ISO-konform.

[boehnli01]

Super. Vielen Dank.

[MzKlMu]

Hallo,

die Berechnung der KW mit Datepart ist nicht ISO-konform.

Dazu hat DatePart noch 2 Parameter.

Code [Auswählen] Erweitern

DatePart("ww", Now(), vbMonday, vbFirstFourDays)

bzw. für SQL:

Code [Auswählen] Erweitern

DatePart("ww", Now(), 2, 2)

[ebs17]

Ein Tabelleneintrag wie "W-30" ist schon eine erhebliche Ungeschicklichkeit, was sich schon daran zeigt, dass ein Links-Rechts-Teil-Trallala notwendig ist, um eine gewünschte Woche zu ermitteln.
In einer richtigen Datenbank (wichtig für Betrieb, viele Daten, Notwendigkeit auf Performance) weitet sich die Ungeschicklichkeit auf groben Fehler aus.

MfgA
ebs

[daolix]

Hallo

die Berechnung der KW mit Datepart ist nicht ISO-konform.

Dazu hat DatePart noch 2 Parameter.

Code [Auswählen] Erweitern

DatePart("ww", Now(), vbMonday, vbFirstFourDays)

Für fast alle Datumse stimmt diese Formel, aber ich hatte eher die etwas genauere Formel im Sinn.